Subversion Repositories DevTools

Rev

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

Rev 4482 Rev 4617
Line 22... Line 22...
22 
%>
 22 
%>
23 
<!--#include file="_access_control_general.asp"-->
 23 
<!--#include file="_access_control_general.asp"-->
24 
<%
 24 
<%
25 
'------------ Variable Definition -------------
 25 
'------------ Variable Definition -------------
26 
Dim active
 26 
Dim active
- 
 
 27 
Dim FileSystemObject
- 
 
 28 
Dim dpkgArchiveAvailable
27 
 
 29 
 
28 
'------------ Constants Declaration -----------
 30 
'------------ Constants Declaration -----------
29 
'------------ Variable Init -------------------
 31 
'------------ Variable Init -------------------
30 
active = objAccessControl.IsActive("ConfigureBuildService")
 32 
active = objAccessControl.IsActive("ConfigureBuildService")
31 
 
 33 
 
- 
 
 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
- 
 
 37 
    dpkgArchiveAvailable = "Exists"
- 
 
 38 
Else
- 
 
 39 
    dpkgArchiveAvailable = "Not Accessible"
- 
 
 40 
End If
- 
 
 41 
 
32 
'----------------------------------------------
 42 
'----------------------------------------------
33 
 
 43 
 
34 
function testFromRegistry (strRegistryKey )
 44 
function testFromRegistry (strRegistryKey )
35 
    Dim WSHShell, value
 45 
    Dim WSHShell, value
36 
 
 46 
 
Line 323... Line 333...
323 
      <td><%=archive_server%></td>
 333 
      <td><%=archive_server%></td>
324 
   </tr>
 334 
   </tr>
325 
 
 335 
 
326 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 336 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
327 
   <tr class="body_row">
 337 
   <tr class="body_row">
- 
 
 338 
      <td>Archive Root: <%=dpkg_archiveRoot%></td>
- 
 
 339 
      <td><%=dpkgArchiveAvailable%></td>
- 
 
 340 
   </tr>
- 
 
 341 
 
- 
 
 342 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 343 
   <tr class="body_row">
328 
      <td>Package Archive Access - Map File System</td>
 344 
      <td>Package Archive Access - Map File System</td>
329 
      <td><%=makeAjaxButton("Test", "pkgAccess")%></td>
 345 
      <td><%=makeAjaxButton("Test", "pkgAccess")%></td>
330 
   </tr>
 346 
   </tr>
331 
 
 347 
 
332 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 348 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->