home *** CD-ROM | disk | FTP | other *** search
/ Adephia Powerlink / AdephiaPowerlink-030102.iso / pc / Install / WorkFlow / Bin / SSFlashD.dll / GUI_INFO / 135 next >
Encoding:
Text File  |  2002-11-15  |  4.0 KB  |  144 lines
  1. <html>
  2. <head>
  3. <STYLE>
  4. body{
  5.     font-size : medium;
  6.     }
  7. td    {
  8.     font-size : medium;
  9.     }
  10. </STYLE>
  11. </head>
  12.  
  13. <body bgcolor="silver" text="maroon">
  14.  
  15. $MENUITEMS$
  16. <h1><div align="center">$WORKNODENAME$</div></h1><!--<form method="POST"  action="http://">-->
  17. <br>
  18. <h1><div align="center">General Parameters</div></h1><!--<form method="POST"  action="http://">-->
  19. <form method="post" name="configure" action="CALLBACKID-ConfigureStuff" onSubmit="return VerifyData();">
  20. <br>
  21. <table><tr><th align="left">
  22. <B>Enter the instance name:  </B></th><th align="left">
  23. <input name="instance_name" size=50 maxlength=80 style="HEIGHT: 22px; WIDTH: 373px"></th></tr>
  24. <tr><th align="left">
  25. Reboot Signal Output:  </th><th align="left">
  26. <input name="reboot_signal_name" size=50 maxlength=80 style="HEIGHT: 22px; WIDTH: 373px"></th></tr>
  27. <tr><th align="left">
  28. Print File Global Dict Path:  </th><th align="left">
  29. <input name="print_file_global_dict_path" size=50 maxlength=80 style="HEIGHT: 22px; WIDTH: 373px"></th></tr>
  30.  
  31. </table>Optimization 
  32. Type:          <SELECT 
  33. name=selectOptimization style="HEIGHT: 22px; WIDTH: 231px"> <OPTION 
  34.   selected>speed</OPTION><OPTION>size</OPTION></SELECT><BR><BR>$MENUITEMS$ 
  35. <hr>
  36. <table>
  37.   <TBODY>
  38. <tr><th align="right">
  39. <input type="hidden" name="saveState" value="0">
  40. <input type="hidden" name="WorkingDir">
  41. <input type="button" name="save" value="Save" style="HEIGHT: 28px; WIDTH: 72px" onClick="return SubmitForSave();"> 
  42. </form></TH>
  43. <th align="left"><form method="post" name="cancel_config" action="CALLBACKID-CancelConfigure"><INPUT name=cancel type=submit value=Cancel style="HEIGHT: 28px; WIDTH: 72px">
  44. </form>
  45. </th></TR></TBODY></TABLE>
  46. <hr>
  47.  
  48. <BR>
  49.  
  50. <A href="ConfigHelp.html#Display" target=_blank>Click here for help</A> | 
  51. <A href="FlashDoc.html" target=_blank>Click here for flash guidelines</A>
  52. <P> </P>
  53. </body>
  54. </html>
  55.  
  56. <SCRIPT LANGUAGE="JavaScript">
  57.  
  58. var strInstanceName="";
  59. var strRebootSignal = "";
  60. var strPrintGlobDictPath = "";
  61. var nOptimizationIndex = 0 ;
  62.  
  63. /*VARS*/
  64.  
  65. /*ENDVARS*/
  66.  
  67. document.forms[0].instance_name.value = strInstanceName;
  68. document.forms[0].reboot_signal_name.value = strRebootSignal;
  69. document.forms[0].print_file_global_dict_path.value = strPrintGlobDictPath;
  70. document.forms[0].selectOptimization.selectedIndex = nOptimizationIndex ;
  71.  
  72. </SCRIPT>
  73.  
  74. <SCRIPT LANGUAGE="VBScript">
  75.  
  76.  
  77. Function SubmitForSave()
  78.     document.forms(0).saveState.value = "1"
  79.     if (VerifyData()) then
  80.         if (document.forms(0).onSubmit()) then
  81.             document.forms(0).submit()
  82.         end if
  83.     end if
  84. End Function
  85.  
  86. Function VerifyPath(strThePath)
  87.     dim fso
  88.     dim bRes
  89.     dim strFilePath
  90.     dim bReturn
  91.     
  92.     bReturn = True
  93.     strFilePath = strThePath
  94.     strFilePath = LTrim(strFilePath)
  95.     strFilePath = RTrim(strFilePath)
  96.         
  97.     Set fso = CreateObject("Scripting.FileSystemObject")
  98.     bRes = fso.FileExists(strFilePath)
  99.     
  100.     if (NOT strFilePath="") then    'Verify that a path was even entered
  101.         if NOT bRes then
  102.             strWorkingDir = document.forms(0).WorkingDir.value
  103.             strFilePath = strWorkingDir & strThePath
  104.             strFilePath = LTrim(strFilePath)
  105.             strFilePath = RTrim(strFilePath)
  106.             bRes = fso.FileExists(strFilePath)
  107.             if NOT bRes then
  108.                 strFilePath = strThePath
  109.                 strFilePath = LTrim(strFilePath)
  110.                 strFilePath = RTrim(strFilePath)
  111.                 Call MsgBox(strFilePath & " does not exist.",,"Validation ERROR")
  112.                 bReturn = False
  113.             end if
  114.         end if
  115.     end if
  116.     
  117.     VerifyPath = bReturn
  118. End Function
  119.  
  120.  
  121. Function VerifyData()
  122.     dim strInstanceName
  123.     dim bReturn
  124.     dim strWorkingDir
  125.  
  126.     bReturn = True
  127.     
  128.     strInstanceName = document.forms(0).instance_name.value
  129.     strInstanceName = LTrim(strInstanceName)
  130.     strInstanceName = RTrim(strInstanceName)
  131.     
  132.     if (strInstanceName="") then
  133.         MsgBox("You must enter an Instance Name")
  134.         bReturn = False
  135.     'elseif (NOT VerifyPath(document.forms(0).fileInputText.value)) then
  136.     '    bReturn = False
  137.     'elseif (NOT VerifyPath(document.forms(0).fileContentInputText.value)) then
  138.     '    bReturn = False
  139.     end if
  140.     
  141.     VerifyData = bReturn
  142. end function
  143.  
  144. </SCRIPT>