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
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->