IEAK Sample Reconfiguration Signup Page 2

#!/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; # Check if email name is in use &check_email; # Start HTML output &startHTML; # Display the HTML head &headHTML; # Display the HTML body if ($email_inuse eq "yes"){$ERROR=1;&errorHTML;} elsif ($pid_notnew eq "yes"){$ERROR=2;&errorHTML;} else { &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 "\n"; } ########################################################## sub headHTML { print "\n"; print "IEAK Sample Reconfiguration Signup Page 2\n"; print "\n"; } ########################################################## sub check_email { # Check a database or finger to see if the email name is already # being used. If so set a flag # Here is a sample of how to do the check on a unix machine. # Larger ISPs might want to check with a database # $check = 'finger $FORM{'EMAILNAME'}'; # if ($check =~ "no such user."){ $email_inuse="no";} # else { $email_inuse="yes";} # no means it is not in use $email_inuse="no"; # yes means it is in use } ########################################################## sub errorHTML { print "\n"; print "\n"; print "\n"; print "\n"; print "