home *** CD-ROM | disk | FTP | other *** search
/ Adephia Powerlink / AdephiaPowerlink-030102.iso / pc / Install / WorkFlow / Bin / FlashFIn.dll / GUI_INFO / 135 next >
Encoding:
Text File  |  2002-11-15  |  5.1 KB  |  169 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><!--<tr><th colspan="2"><hr width="75%"></th></tr>
  24. <tr><th align="left">
  25.  
  26. <p>Path to help file:</p>    </th><th align="left">
  27. <input name="fileInputText" style="HEIGHT: 22px; WIDTH: 373px"><input type="button" name="browseButton" value="Browse..." onClick="BrowseClick(document.forms[0].HELP_FILE_PATH, document.forms[0].fileInputText);"><input type="file" name="HELP_FILE_PATH" style="DISPLAY: none; HEIGHT: 22px; WIDTH: 80px">
  28. </th></tr>
  29. <tr><th align="left">
  30. <p>Path to help content file:</p>    </th><th align="left">
  31. <input name="fileContentInputText" style="HEIGHT: 22px; WIDTH: 373px"><input type="button" name="browseButtonContent" value="Browse..." onClick="BrowseClick(document.forms[0].CONTENT_FILE_PATH, document.forms[0].fileContentInputText);"><input type="file" name="CONTENT_FILE_PATH" style="DISPLAY: none; HEIGHT: 22px; WIDTH: 80px">
  32. </th></tr>
  33. <tr><th align="left">
  34. Help Option String: </th>
  35. <th align="left"><input name="HelpOptionString" style="HEIGHT: 22px; WIDTH: 373px">
  36. </th></tr>
  37. -->
  38.  
  39. </table>Optimization Type:       
  40. <SELECT name=selectOptimization style="HEIGHT: 22px; WIDTH: 231px"> <OPTION 
  41.   selected>speed</OPTION><OPTION>size</OPTION></SELECT><BR><BR>$MENUITEMS$ 
  42. <hr>
  43. <table>
  44.   <TBODY>
  45. <tr><th align="right">
  46. <input type="hidden" name="saveState" value="0">
  47. <input type="hidden" name="WorkingDir">
  48. <input type="button" name="save" value="Save" style="HEIGHT: 28px; WIDTH: 72px" onClick="return SubmitForSave();"> 
  49. </form></TH>
  50. <th align="left"><form method="post" name="cancel_config" action="CALLBACKID-CancelConfigure"><INPUT name=cancel type=submit value=Cancel style="HEIGHT: 28px; WIDTH: 72px">
  51. </form>
  52. </th></TR></TBODY></TABLE>
  53. <hr>
  54.  
  55. <BR>
  56.  
  57. <A href="ConfigHelp.html#Display" target=_blank>Click here for help</A> | 
  58. <A href="FlashDoc.html" target=_blank>Click here for flash guidelines</A>
  59. <P> </P>
  60. </body>
  61. </html>
  62.  
  63. <SCRIPT LANGUAGE="JavaScript">
  64. var strInstanceName="";
  65. var strHelpFilePath = "";
  66. var strWorkingDir = "";
  67. var strHelpOptionString = "";
  68. var strHelpFileContentPath = "";
  69. var nOptimizationIndex = 0 ;
  70.  
  71. /*VARS*/
  72.  
  73. /*ENDVARS*/
  74.  
  75. //document.forms[0].WorkingDir.value = strWorkingDir;
  76. document.forms[0].instance_name.value = strInstanceName;
  77. //document.forms[0].fileInputText.value = strHelpFilePath;
  78. //document.forms[0].fileContentInputText.value = strHelpFileContentPath;
  79. //document.forms[0].HelpOptionString.value = strHelpOptionString;
  80. document.forms[0].selectOptimization.selectedIndex = nOptimizationIndex ;
  81.  
  82. function BrowseClick(theFileInput, theOutputLocation)
  83. {
  84.     var strOld;
  85.     var strNew;
  86.     
  87.     strOld = theFileInput.value;
  88.     theFileInput.click();
  89.     strNew = theFileInput.value;
  90.     
  91.     if (strOld != strNew)
  92.     {
  93.         theOutputLocation.value = strNew;
  94.     }
  95. }
  96.  
  97. </SCRIPT>
  98.  
  99. <SCRIPT LANGUAGE="VBScript">
  100.  
  101.  
  102. Function SubmitForSave()
  103.     document.forms(0).saveState.value = "1"
  104.     if (VerifyData()) then
  105.         if (document.forms(0).onSubmit()) then
  106.             document.forms(0).submit()
  107.         end if
  108.     end if
  109. End Function
  110.  
  111. Function VerifyPath(strThePath)
  112.     dim fso
  113.     dim bRes
  114.     dim strFilePath
  115.     dim bReturn
  116.     
  117.     bReturn = True
  118.     strFilePath = strThePath
  119.     strFilePath = LTrim(strFilePath)
  120.     strFilePath = RTrim(strFilePath)
  121.         
  122.     Set fso = CreateObject("Scripting.FileSystemObject")
  123.     bRes = fso.FileExists(strFilePath)
  124.     
  125.     if (NOT strFilePath="") then    'Verify that a path was even entered
  126.         if NOT bRes then
  127.             strWorkingDir = document.forms(0).WorkingDir.value
  128.             strFilePath = strWorkingDir & strThePath
  129.             strFilePath = LTrim(strFilePath)
  130.             strFilePath = RTrim(strFilePath)
  131.             bRes = fso.FileExists(strFilePath)
  132.             if NOT bRes then
  133.                 strFilePath = strThePath
  134.                 strFilePath = LTrim(strFilePath)
  135.                 strFilePath = RTrim(strFilePath)
  136.                 Call MsgBox(strFilePath & " does not exist.",,"Validation ERROR")
  137.                 bReturn = False
  138.             end if
  139.         end if
  140.     end if
  141.     
  142.     VerifyPath = bReturn
  143. End Function
  144.  
  145.  
  146. Function VerifyData()
  147.     dim strInstanceName
  148.     dim bReturn
  149.     dim strWorkingDir
  150.  
  151.     bReturn = True
  152.     
  153.     strInstanceName = document.forms(0).instance_name.value
  154.     strInstanceName = LTrim(strInstanceName)
  155.     strInstanceName = RTrim(strInstanceName)
  156.     
  157.     if (strInstanceName="") then
  158.         MsgBox("You must enter an Instance Name")
  159.         bReturn = False
  160.     'elseif (NOT VerifyPath(document.forms(0).fileInputText.value)) then
  161.     '    bReturn = False
  162.     'elseif (NOT VerifyPath(document.forms(0).fileContentInputText.value)) then
  163.     '    bReturn = False
  164.     end if
  165.     
  166.     VerifyData = bReturn
  167. end function
  168.  
  169. </SCRIPT>