WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/admin_build_test_page.asp

 //
 function jiraTest()
+{
     //  Show that testing has started
     var el = document.getElementById("jiraTest");
-    el.innerText = 'Testing';
+    el.innerHTML = 'Testing';
     ajaxOpr('Opr=getAllKeys',
-            function(myJson){ el.innerText = 'Test OK'; },
+            function(myJson){ el.innerHTML = 'Test OK'; },
-            function(txt){ el.innerText = "Test Failed:" + txt}
+            function(txt){ el.innerHTML = "Test Failed:" + txt}
            );
+}
 </script>
 <html>
 <link rel="stylesheet" href="images/navigation.css" type="text/css">
 <script language="JavaScript" src="images/common.js"></script>
 <!-- DROPDOWN MENUS -->
 <!--#include file="_menu_def.asp"-->
 <script language="JavaScript1.2" src="images/popup_menu.js"></script>
+<!-- StyleSheet Extensions -->
+<style>
+.pagebody {margin-left:auto; margin-right:auto; width:50%;border-width: 0px;border-spacing: 2px; background-color: rgb(255, 204, 0)}
+.pagebody td{white-space:nowrap;vertical-align: top;text-align: left;padding-left: 3px;padding-right: 3px; background: #f2f0e4}
+.tablehdr td{background-color: rgb(255, 204, 0)}
+</style>
 </head>
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 <!-- MENU LAYERS -------------------------------------->
 <div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
 </div>
 <!-- TIPS LAYERS -------------------------------------->
 <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 <!-- HEADER -->
 <!--#include file="_header.asp"-->
+<p>
+<!-- Body of the page -->
+<table class="pagebody">
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <tr class="body_col tablehdr">
+      <td>Test</td>
+      <td>Result</td>
+   </tr>
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <tr class="body_row">
+      <td>User ID</td>
+      <td><%=objAccessControl.UserId%></td>
+   </tr>
+   <tr class="body_row">
+      <td>User Name</td>
+      <td><%=objAccessControl.UserName%></td>
+   </tr>
+   <tr class="body_row">
+      <td>User Email</td>
+      <td><%=objAccessControl.UserEmail%></td>
+   </tr>
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <tr class="body_row">
+      <td>DataBase Name</td>
+      <td><%=OraDatabase.DatabaseName%></td>
+   </tr>
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <tr class="body_row">
+      <td>Archive Server</td>
+      <td><%=archive_server%></td>
+   </tr>
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <tr class="body_row">
+      <td>Package Archive Access - Map File System</td>
+   <%
+   Dim objWSH,rv,result
+   Set objWSH = Server.CreateObject("WScript.Shell")
+   rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestMapArchive", 0, TRUE)
+   Set objWSH = Nothing
+   If rv = 0 Then
+       result = "OK"
+   Else
+       result = "Error ("&rv&")"
+   End IF
+   %>
+      <td><%=result%></td>
+   </tr>
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <tr class="body_row">
+      <td>Package Archive Access - Remote cmd execution</td>
+      <td><%=makeButton("Test", "remExec",rvRemExec)%></td>
+   </tr>
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <tr class="body_row">
    <%
+       Dim sKey1, sKey2, sValue1, sValue2, kFragment
+       kFragment = "rsa2@22:" & archive_server
-   '-- FROM START ---------------------------------------------------------------------------------------------------------
+       sKey1 = "HKEY_USERS\S-1-5-20\Software\SimonTatham\PuTTY\SshHostKeys\" & kFragment
+       sKey2 = "HKEY_USERS\.DEFAULT\Software\SimonTatham\PuTTY\SshHostKeys\" & kFragment
+       sValue1 = testFromRegistry(sKey1)
+       sValue2 = testFromRegistry(sKey2)
    %>
-   <tr>
-      <td background="images/bg_login.gif">
+      <td>Plink Key [<%=sKey1%>]</td>
-         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
-            <tr>
-               <td><%=ProgressBar%></td>
+      <td><%=sValue1%></td>
-               <td align="right">&nbsp;          </td>
-            </tr>
-         </table>
-      </td>
    </tr>
-   <tr>
-      <td>
-         <table style="margin-left:auto; margin-right:auto; width:50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
+   <tr class="body_row">
-               <td valign="top" nowrap class="body_col">Test</td>
+      <td>Plink Key [<%=sKey2%>]</td>
-               <td valign="top" nowrap class="body_col">Result</td>
-            </tr>
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User ID</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=objAccessControl.UserId%></td>
-            </tr>
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=objAccessControl.UserName%></td>
-            </tr>
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Email</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=objAccessControl.UserEmail%></td>
-            </tr>
+      <td><%=sValue2%></td>
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DataBase Name</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=OraDatabase.DatabaseName%></td>
-            </tr>
+   </tr>
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Archive Server</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=archive_server%></td>
-            </tr>
+   <tr class="body_row">
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Archive Access - Map File System</td>
-            <%
-            Dim objWSH,rv,result
+      <td>Email Server</td>
-            Set objWSH = Server.CreateObject("WScript.Shell")
-            rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestMapArchive", 0, TRUE)
-            Set objWSH = Nothing
+      <td><%=MAIL_SERVER%></td>
-            If rv = 0 Then
-                result = "OK"
-            Else
-                result = "Error ("&rv&")"
-            End IF
-            %>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=result%></td>
-            </tr>
+   </tr>
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
+   <tr class="body_row">
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Archive Access - Remote cmd execution</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">
-                    <%=makeButton("Test", "remExec",rvRemExec)%>
-                </td>
+      <td>Admin Email</td>
-            </tr>
+      <td><%=adminEmail%></td>
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
-            <%
-                Dim sKey1, sKey2, sValue1, sValue2, kFragment
-                kFragment = "rsa2@22:" & archive_server
-                sKey1 = "HKEY_USERS\S-1-5-20\Software\SimonTatham\PuTTY\SshHostKeys\" & kFragment
-                sKey2 = "HKEY_USERS\.DEFAULT\Software\SimonTatham\PuTTY\SshHostKeys\" & kFragment
-                sValue1 = testFromRegistry(sKey1)
-                sValue2 = testFromRegistry(sKey2)
-            %>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Plink Key [<%=sKey1%>]</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=sValue1%></td>
-            </tr>
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Plink Key [<%=sKey2%>]</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=sValue2%></td>
-            </tr>
+   </tr>
-           <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Email Server</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=MAIL_SERVER%></td>
-            </tr>
+   <tr class="body_row">
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Admin Email</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=adminEmail%></td>
-            </tr>
+      <td>Send Email</td>
-            <tr>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Send Email</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">
-                    <%=makeButton("eMail", "email",rvEmail)%>
+      <td><%=makeButton("eMail", "email",rvEmail)%></td>
-              </td>
-            </tr>
+   </tr>
-            <tr>
+   <tr class="body_row">
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Send Email With attachment</td>
+      <td>Send Email With attachment</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">
-                    <%=makeButton("eMail", "email1",rvEmail1)%>
+      <td><%=makeButton("eMail", "email1",rvEmail1)%></td>
-            </tr>
+   </tr>
-            <tr>
+   <tr class="body_row">
-              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Send Email from WSH script</td>
+     <td>Send Email from WSH script</td>
-              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">
-                    <%=makeButton("eMail", "email2",rvEmail2)%>
+     <td><%=makeButton("eMail", "email2",rvEmail2)%></td>
-            </tr>
+   </tr>
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
+   <tr class="body_row">
-             <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Generate error event</td>
+    <td>Generate error event</td>
-             <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">
-                    <%=makeButton("event", "event",rvEvent)%>
+    <td><%=makeButton("event", "event",rvEvent)%></td>
-            </tr>
+   </tr>
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
+   <tr class="body_row">
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Jira Server</td>
+      <td>Jira Server</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=JIRA_URL%></td>
+      <td><%=JIRA_URL%></td>
-            </tr>
+   </tr>
-            <tr>
+   <tr class="body_row">
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Jira Test</td>
+      <td>Jira Test</td>
-               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">
-                    <%=makeAjaxButton("Test", "jiraTest")%>
+      <td><%=makeAjaxButton("Test", "jiraTest")%></td>
-              </td>
-            </tr>
+   </tr>
-            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-            <tr>
+   <tr class="body_col tablehdr">
-               <td valign="top" nowrap class="body_col">End of Tests</td>
+      <td>End of Tests</td>
-               <td><a class="form_btn" href="admin_build_test_page.asp" title="Refresh Page">Refresh</a></td>
+      <td><a class="form_btn" href="admin_build_test_page.asp" title="Refresh Page">Refresh</a></td>
-            </tr>
+   </tr>
-         </table>
-      </td>
-  </tr>
+</table>
-  <input type="hidden" name="action" value="true">
+<input type="hidden" name="action" value="true">
-  <p>
+<p>
 </body>
 </html>
 <!-- FOOTER -->
 <!--#include file="_footer.asp"-->
 <%

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/admin_build_test_page.asp @ 4399 – Rev 4246 → 4399