home *** CD-ROM | disk | FTP | other *** search
Wrap
<html> <head> <STYLE> body{ font-size : medium; } td { font-size : medium; } </STYLE> <SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript> <!-- Sub config_onclick valid_input = true 'ping values row 0 Ping1 = document.forms(0).ping1_0.value Ping2 = document.forms(0).ping2_0.value Ping3 = document.forms(0).ping3_0.value Ping4 = document.forms(0).ping4_0.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 0") valid_input = false end if 'ping values row 1 Ping1 = document.forms(0).ping1_1.value Ping2 = document.forms(0).ping2_1.value Ping3 = document.forms(0).ping3_1.value Ping4 = document.forms(0).ping4_1.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 1") valid_input = false end if 'ping values row 2 Ping1 = document.forms(0).ping1_2.value Ping2 = document.forms(0).ping2_2.value Ping3 = document.forms(0).ping3_2.value Ping4 = document.forms(0).ping4_2.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 2") valid_input = false end if 'ping values row 3 Ping1 = document.forms(0).ping1_3.value Ping2 = document.forms(0).ping2_3.value Ping3 = document.forms(0).ping3_3.value Ping4 = document.forms(0).ping4_3.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 3") valid_input = false end if 'ping values row 4 Ping1 = document.forms(0).ping1_4.value Ping2 = document.forms(0).ping2_4.value Ping3 = document.forms(0).ping3_4.value Ping4 = document.forms(0).ping4_4.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 4") valid_input = false end if 'ping values row 5 Ping1 = document.forms(0).ping1_5.value Ping2 = document.forms(0).ping2_5.value Ping3 = document.forms(0).ping3_5.value Ping4 = document.forms(0).ping4_5.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 5") valid_input = false end if 'ping values row 6 Ping1 = document.forms(0).ping1_6.value Ping2 = document.forms(0).ping2_6.value Ping3 = document.forms(0).ping3_6.value Ping4 = document.forms(0).ping4_6.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 6") valid_input = false end if 'ping values row 7 Ping1 = document.forms(0).ping1_7.value Ping2 = document.forms(0).ping2_7.value Ping3 = document.forms(0).ping3_7.value Ping4 = document.forms(0).ping4_7.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 7") valid_input = false end if 'ping values row 8 Ping1 = document.forms(0).ping1_8.value Ping2 = document.forms(0).ping2_8.value Ping3 = document.forms(0).ping3_8.value Ping4 = document.forms(0).ping4_8.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 8") valid_input = false end if 'ping values row 9 Ping1 = document.forms(0).ping1_9.value Ping2 = document.forms(0).ping2_9.value Ping3 = document.forms(0).ping3_9.value Ping4 = document.forms(0).ping4_9.value test_value = validate_ping_address(Ping1,Ping2,Ping3,Ping4) if(not(test_value))then window.alert("Problem with ping address 9") valid_input = false end if '************************************************************ '******************* OTHER STUFF **************************** '************************************************************ if(document.forms(0).instance_name.value = "") then window.alert("You must enter an instance name") valid_input = false end if if(document.forms(0).result_text_location.value = "") then window.alert("You must enter a dictionary path") valid_input = false end if tempValue = document.forms(0).number_retries.value if(tempValue = "") then window.alert("you must enter number of retries") valid_input = false else if(not isNumeric(tempValue)) then window.alert("number of retries must be numeric") valid_input = false end if end if tempValue = document.forms(0).timeout.value if(tempValue = "") then window.alert("Please enter a timeout value") valid_input = false else if(not isNumeric(tempValue)) then window.alert("timeout must be numeric") valid_input = false end if end if if(valid_input) then if (document.forms(0).onSubmit()) then document.forms(0).submit end if end if End Sub '******************************************************* '************** Test Ping Values *********************** '******************************************************* function validate_ping_address(ping1,ping2,ping3,ping4) validate_ping_address = true if(not(ping1=""))then if(not(ping2="")) then if(not(ping3="")) then if(not(ping4="")) then if(isNumeric(ping1) and isNumeric(ping2) and isNumeric(ping3) and isNumeric(ping4))then if(ping1<256 and ping2<256 and ping3<256 and ping4 <256)then validate_ping_address = true else validate_ping_address = false end if else validate_ping_address = false end if else validate_ping_address = false end if else validate_ping_address = false end if else validate_ping_address = false end if end if End Function --> </SCRIPT> </head> <body bgcolor="Silver" text="Maroon"> <h1></h1> <div align="center">Configure PingTest Worknode</div> <!--<form method="POST" action="http://">--> <form method="POST" name="configure" action="CALLBACKID-ConfigureWorknode"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> Enter the instance name: <input type="text" name="instance_name" size=50 maxlength=80 tabindex="1"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> </p> <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Enter a path in the global dictionary to display the ping address successfully pinged: <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <input type="text" name="result_text_location" size=70 maxlength=100 tabindex="2"> <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Enter a path in the global dicitonary to display the ping address that failed:<P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <input type="text" name="result_failed_location" size=70 maxlength=100 tabindex="2"> <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Enter a path in the global dictionary to display the complete list of ping addresses:<P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <input type="text" name="result_all_location" size=70 maxlength=100 tabindex="2"> <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Enter a path in the global dictionary to display the number of addresses that were successfully pinged:<P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <input type="text" name="result_int_location" size=70 maxlength=100 tabindex="2"> <hr> <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Enter a path in the global dictionary to find a list of addresses to ping:<P style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <input type="text" name="glob_dict_ping_address_location" size=70 maxlength=100 tabindex="2"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> <br> Ping Address 0: <input type="text" name="ping1_0" size=3 maxlength=3 tabindex="3">.<input type="text" name="ping2_0" size=3 maxlength=3 tabindex="4">.<input type="text" name="ping3_0" size=3 maxlength=3 tabindex="5">.<input type="text" name="ping4_0" size=3 maxlength=3 tabindex="6"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> Ping Address 1: <input type="text" name="ping1_1" size=3 maxlength=3 tabindex="7">.<input type="text" name="ping2_1" size=3 maxlength=3 tabindex="8">.<input type="text" name="ping3_1" size=3 maxlength=3 tabindex="9">.<input type="text" name="ping4_1" size=3 maxlength=3 tabindex="10"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> Ping Address 2: <input type="text" name="ping1_2" size=3 maxlength=3 tabindex="11">.<input type="text" name="ping2_2" size=3 maxlength=3 tabindex="12">.<input type="text" name="ping3_2" size=3 maxlength=3 tabindex="13">.<input type="text" name="ping4_2" size=3 maxlength=3 tabindex="14"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> Ping Address 3: <input type="text" name="ping1_3" size=3 maxlength=3 tabindex="15">.<input type="text" name="ping2_3" size=3 maxlength=3 tabindex="16">.<input type="text" name="ping3_3" size=3 maxlength=3 tabindex="17">.<input type="text" name="ping4_3" size=3 maxlength=3 tabindex="18"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> Ping Address 4: <input type="text" name="ping1_4" size=3 maxlength=3 tabindex="19">.<input type="text" name="ping2_4" size=3 maxlength=3 tabindex="20">.<input type="text" name="ping3_4" size=3 maxlength=3 tabindex="21">.<input type="text" name="ping4_4" size=3 maxlength=3 tabindex="22"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> Ping Address 5: <input type="text" name="ping1_5" size=3 maxlength=3 tabindex="23">.<input type="text" name="ping2_5" size=3 maxlength=3 tabindex="24">.<input type="text" name="ping3_5" size=3 maxlength=3 tabindex="25">.<input type="text" name="ping4_5" size=3 maxlength=3 tabindex="26"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> Ping Address 6: <input type="text" name="ping1_6" size=3 maxlength=3 tabindex="27">.<input type="text" name="ping2_6" size=3 maxlength=3 tabindex="28">.<input type="text" name="ping3_6" size=3 maxlength=3 tabindex="29">.<input type="text" name="ping4_6" size=3 maxlength=3 tabindex="30"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> Ping Address 7: <input type="text" name="ping1_7" size=3 maxlength=3 tabindex="31">.<input type="text" name="ping2_7" size=3 maxlength=3 tabindex="32">.<input type="text" name="ping3_7" size=3 maxlength=3 tabindex="33">.<input type="text" name="ping4_7" size=3 maxlength=3 tabindex="34"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> Ping Address 8: <input type="text" name="ping1_8" size=3 maxlength=3 tabindex="35">.<input type="text" name="ping2_8" size=3 maxlength=3 tabindex="36">.<input type="text" name="ping3_8" size=3 maxlength=3 tabindex="37">.<input type="text" name="ping4_8" size=3 maxlength=3 tabindex="38"> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0"> Ping Address 9: <input type="text" name="ping1_9" size=3 maxlength=3 tabindex="39">.<input type="text" name="ping2_9" size=3 maxlength=3 tabindex="40">.<input type="text" name="ping3_9" size=3 maxlength=3 tabindex="41">.<input type="text" name="ping4_9" size=3 maxlength=3 tabindex="42"> <hr> <p style="word-spacing: 0; line-height: s; margin-top: 0; margin-bottom: 0">Ping Attempts (per address): <input type="text" name="number_retries" size=3 maxlength=5 tabindex="43"> Timeout (Milliseconds): <input type="text" name="timeout" size=5 maxlength=7 tabindex="44"><p> <input type="checkbox" name="single_pass" value="ON"> Only 1 address must be successfully pinged to pass. <P><input type="button" name="config" value="Configure"> </form><hr> <form method="POST" name="cancel_config" action="CALLBACKID-CancelConfigure"> <P><input type="submit" name="cancel" value="Cancel"> </form><hr> <BR> <a href="ConfigHelp.html" target="_blank">Click here for help</a> </body> </html>