http://goldray.com/forms/advswitches.htm
used with: http://goldray.com/forms/advforms.htm
Jump.cgi
#!/usr/bin/perl
#above needs to point to PERL compiler on server
#
#This script loads a URL from a form input
#Use the GET method in the form to put the query into $QUERY_STRING
$in = $ENV{'QUERY_STRING'};
#now convert hex numbers to alphanumeric
$in =~ s/%(..)/pack("c",hex($1))/ge;
#now split into 2 variables
($key, $val) = split(/=/,$in,2);
#now go there
print "Location: $val\n\n";
exit 0; |
viewURL
<SCRIPT LANGUAGE="JavaScript">
<!-- hide JS code
function viewURL(form) // view selected RoloURL URL
{
if (form.urlSelect.options[0].selected)
location.href = "topone.htm"
else if (form.urlSelect.options[1].selected)
location.href = "second.htm"
else if (form.urlSelect.options[2].selected)
location.href = "third.htm"
return true
}
// end JS hide -->
</SCRIPT> |
switchURL
<SCRIPT LANGUAGE="JavaScript">
<!-- hide JS code
function switchURL(form)
{
location.href = form.pages.options[form.pages.selectedIndex].value
}
// end JS hide -->
</script>
|