#!/usr/bin/perl # Written by Edward C Kubaitis # The host URL of the Signup Files $hostURL="http://myserver/"; # Parse the CGI input $BACKURL=&parse_input; # Start HTML output &startHTML; # Display the HTML head &headHTML; # Display the HTML body &bodyHTML; # End HTML output &endHTML; # Exit the CGI &quit; ########################################################## sub startHTML { print "Content-type: text/html\n\n";print "\n"; } ########################################################## sub endHTML { print "\n"; } ########################################################## sub quit { exit(0); } ########################################################## sub parse_input { @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $ABACKURL=$ABACKURL+"$name=$value\&"; # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; if ($allow_html != 1) { $value =~ s/<([^>]|\n)*>//g; } if ($value eq ""){$value=" ";} $FORM{$name} = $value; } chop($ABACKURL);return $ABACKURL; } ########################################################## sub bodyHTML { print "\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "Welcome To IEAK Sample Signup Server
\n"; print "Your signup is completed. Please note that it may take us up to 30 minutes to process and activate your \n"; print "account. If your account is not active within 30 minutes please notify our system administrators and \n"; print "they will rectify the problem for you.

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); $m="";$s="";$md="";$mn="";$mon++; if ($min < 10){$m="0";} if ($sec < 10){$s="0";} if ($mday < 10){$md="0";} if ($mon < 10){$mn="0";} $THETIME="$hour".$m."$min".$s."$sec"; $THEDATE="19$year".$mn."$mon".$md."$mday"; print "\n"; print "\n"; print "\n"; } ########################################################## sub headHTML { print "\n"; print "IEAK Sample Signup Page 4\n"; print "\n"; } ##########################################################