<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| '| ADMIN Page '| Build Service '| admin_build_test_page.asp '| '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim active Dim FileSystemObject Dim dpkgArchiveAvailable '------------ Constants Declaration ----------- '------------ Variable Init ------------------- active = canActionControl("ConfigureBuildService") ' Determine if dpkg_archive can be accessed directly via a UNC If testArchiveAccessPkg("","") Then dpkgArchiveAvailable = "Exists" Else dpkgArchiveAvailable = "Not Accessible" End If '---------------------------------------------- function testFromRegistry (strRegistryKey ) Dim WSHShell, value On Error Resume Next Set WSHShell = CreateObject("WScript.Shell") value = WSHShell.RegRead( strRegistryKey ) testFromRegistry = NOT (err.number <> 0) set WSHShell = nothing end function '---------------------------------------------- 'Returns the current database date-time Function getDataBaseDateTime() Dim sqry: sqry = "SELECT TO_CHAR (ora_sysdatetime, 'Dy DD-Mon-YYYY HH24:MI:SS') FROM DUAL" Dim rsTemp Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) ) getDataBaseDateTime = rsTemp(0) rsTemp.Close() Set rsTemp = Nothing End Function '---------------------------------------------- Function WebServerDateTime () WebServerDateTime = DisplayDateTimeSecs(Now()) End Function Function makeAjaxButton( text, script ) If active Then makeAjaxButton = "  "&text&"" Else makeAjaxButton = "  "&text&"" End If End Function %> Admin Test Page

<% Dim sKey2, sValue2, kFragment kFragment = "rsa2@22:" & archive_server sKey2 = "HKEY_USERS\.DEFAULT\Software\SimonTatham\PuTTY\SshHostKeys\" & kFragment sValue2 = testFromRegistry(sKey2) %>
Test Result
User ID <%=objAccessControl.UserId%>
User Name <%=objAccessControl.UserName%>
User Email <%=objAccessControl.UserEmail%>
Database Name <%=OraDatabase.DatabaseName%>
Database Time <%=getDataBaseDateTime()%>
Web Server Time <%=WebServerDateTime()%>
Archive Server <%=archive_server%>
Archive Root: <%=dpkg_archiveURL%> <%=dpkgArchiveAvailable%>
Package Archive Access - Check Presence <%=makeAjaxButton("Test", "pkgAccess")%>
ABT Log Base <%=ABTLOG_URL%>
ABT Log Locate <%=makeAjaxButton("Test", "abtLogAccess")%>
Plink Key [<%=sKey2%>] <%=sValue2%>
Package Archive Access - Remote cmd execution <%=makeAjaxButton("Test", "remExec")%>
Zip File <%=makeAjaxButton("Test", "zipTest")%>
Email Server <%=MAIL_SERVER%>
Admin Email <%=ADMIN_EMAIL%>
Fault Email List <%=FAULT_EMAIL_LIST%>
Send Email <%=makeAjaxButton("eMail", "emailTest")%>
Send Email With attachment <%=makeAjaxButton("eMail", "emailTest1")%>
Generate error event <%=makeAjaxButton("Event", "eventTest")%>
Report Event <%=makeAjaxButton("Report", "reportEvent")%>
Jira Server <%=Application("JIRA_URL")%>
Jira Test <%=makeAjaxButton("Test", "jiraTest")%>
LXR Server <%=LXR_URL%>
LXR Test <%=makeAjaxButton("Test", "LXRTest")%>
End of Tests Refresh