Subversion Repositories DevTools

Rev

Rev 4617 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4617 Rev 4710
Line 30... Line 30...
30 
'------------ Constants Declaration -----------
 30 
'------------ Constants Declaration -----------
31 
'------------ Variable Init -------------------
 31 
'------------ Variable Init -------------------
32 
active = objAccessControl.IsActive("ConfigureBuildService")
 32 
active = objAccessControl.IsActive("ConfigureBuildService")
33 
 
 33 
 
34 
'   Determine if dpkg_archive can be accessed directly via a UNC
 34 
'   Determine if dpkg_archive can be accessed directly via a UNC
35 
Set FileSystemObject = server.createObject("Scripting.FileSystemObject")
 - 
 
36 
If FileSystemObject.FolderExists(dpkg_archiveRoot) Then
 35 
If testArchiveAccessPkg("","") Then
37 
    dpkgArchiveAvailable = "Exists"
36 
    dpkgArchiveAvailable = "Exists"
38 
Else
 37 
Else
39 
    dpkgArchiveAvailable = "Not Accessible"
38 
    dpkgArchiveAvailable = "Not Accessible"
40 
End If
 39 
End If
41 
 
 40 
 
42 
'----------------------------------------------
 41 
'----------------------------------------------
43 
 
 - 
 
44 
function testFromRegistry (strRegistryKey )
 42 
function testFromRegistry (strRegistryKey )
45 
    Dim WSHShell, value
 43 
    Dim WSHShell, value
46 
 
 44 
 
47 
    On Error Resume Next
 45 
    On Error Resume Next
48 
    Set WSHShell = CreateObject("WScript.Shell")
 46 
    Set WSHShell = CreateObject("WScript.Shell")
Line 58... Line 56...
58 
        makeAjaxButton = "&nbsp;&nbsp;<a id="""&script &""" href="""" class=""form_btn"" title=""" &text& """ onclick="""&script&"();return false;"">"&text&"</a>"
 56 
        makeAjaxButton = "&nbsp;&nbsp;<a id="""&script &""" href="""" class=""form_btn"" title=""" &text& """ onclick="""&script&"();return false;"">"&text&"</a>"
59 
    Else
 57 
    Else
60 
        makeAjaxButton = "&nbsp;&nbsp;<a class=""form_btn_disabled"" title=""" &text& """>"&text&"</a>"
 58 
        makeAjaxButton = "&nbsp;&nbsp;<a class=""form_btn_disabled"" title=""" &text& """>"&text&"</a>"
61 
    End If
 59 
    End If
62 
End Function
 60 
End Function
63 
 
 - 
 
64 
%>
 61 
%>
65 
<script type="text/javascript" src="scripts/json2.js"></script>
 62 
<script type="text/javascript" src="scripts/json2.js"></script>
66 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
 63 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
67 
<script type="text/javascript" charset="utf-8">
 64 
<script type="text/javascript" charset="utf-8">
68 
///////////////////////////////////////////////
 65 
///////////////////////////////////////////////
Line 333... Line 330...
333 
      <td><%=archive_server%></td>
 330 
      <td><%=archive_server%></td>
334 
   </tr>
 331 
   </tr>
335 
 
 332 
 
336 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 333 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
337 
   <tr class="body_row">
 334 
   <tr class="body_row">
338 
      <td>Archive Root: <%=dpkg_archiveRoot%></td>
 335 
      <td>Archive Root: <%=dpkg_archiveURL%></td>
339 
      <td><%=dpkgArchiveAvailable%></td>
 336 
      <td><%=dpkgArchiveAvailable%></td>
340 
   </tr>
 337 
   </tr>
341 
 
 338 
 
342 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 339 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
343 
   <tr class="body_row">
 340 
   <tr class="body_row">