Subversion Repositories DevTools

Rev

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

Rev 6877 Rev 7260
Line 265... Line 265...
265 
            function(myJson){ el.innerHTML = 'Test OK'; },
 265 
            function(myJson){ el.innerHTML = 'Test OK'; },
266 
            function(txt){ el.innerHTML = "Test Failed:" + txt}
 266 
            function(txt){ el.innerHTML = "Test Failed:" + txt}
267 
           );
 267 
           );
268 
}
 268 
}
269 
 
 269 
 
- 
 
 270 
///////////////////////////////////////////////
- 
 
 271 
//  Function:       abtLogAccess
- 
 
 272 
//  Description:    http access of ABT Logs
- 
 
 273 
//
- 
 
 274 
function abtLogAccess()
- 
 
 275 
{
- 
 
 276 
    //  Show that testing has started
- 
 
 277 
    var el = document.getElementById("abtLogAccess");
- 
 
 278 
    el.innerHTML = 'Testing';
- 
 
 279 
 
- 
 
 280 
    ajaxOpr('_json_RmTests.asp',
- 
 
 281 
            {Opr:'abtLogAccess'},
- 
 
 282 
            function(myJson){ el.innerHTML = 'Test OK'; },
- 
 
 283 
            function(txt){ el.innerHTML = "Test Failed:" + txt}
- 
 
 284 
           );
- 
 
 285 
}
- 
 
 286 
 
270 
</script>
 287 
</script>
271 
<html>
 288 
<html>
272 
<head>
 289 
<head>
273 
 
 290 
 
274 
<title>Admin Test Page</title>
 291 
<title>Admin Test Page</title>
Line 345... Line 362...
345 
      <td>Package Archive Access - Check Presence</td>
 362 
      <td>Package Archive Access - Check Presence</td>
346 
      <td><%=makeAjaxButton("Test", "pkgAccess")%></td>
 363 
      <td><%=makeAjaxButton("Test", "pkgAccess")%></td>
347 
   </tr>
 364 
   </tr>
348 
 
 365 
 
349 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 366 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 367 
   <tr>
- 
 
 368 
      <td>ABT Log Base</td>
- 
 
 369 
      <td><%=ABTLOG_URL%></td>
- 
 
 370 
   </tr>
- 
 
 371 
 
- 
 
 372 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 373 
   <tr>
- 
 
 374 
      <td>ABT Log Locate</td>
- 
 
 375 
      <td><%=makeAjaxButton("Test", "abtLogAccess")%></td>
- 
 
 376 
   </tr>
- 
 
 377 
 
- 
 
 378 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
350 
   <%
 379 
   <%
351 
       Dim sKey2, sValue2, kFragment
 380 
       Dim sKey2, sValue2, kFragment
352 
       kFragment = "rsa2@22:" & archive_server
 381 
       kFragment = "rsa2@22:" & archive_server
353 
       sKey2 = "HKEY_USERS\.DEFAULT\Software\SimonTatham\PuTTY\SshHostKeys\" & kFragment
 382 
       sKey2 = "HKEY_USERS\.DEFAULT\Software\SimonTatham\PuTTY\SshHostKeys\" & kFragment
354 
       sValue2 = testFromRegistry(sKey2)
 383 
       sValue2 = testFromRegistry(sKey2)