#!/usr/bin/perl
print "Content-type: text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($key, $value) = split(/=/, $pair);
$key =~ tr/+/ /;
$key =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~s///g;
if ($formdata{$key}) {
$formdata{$key} .= ", $value";
}
else {
$formdata{$key} = $value;
}
}
$gender = $formdata{'gender'};
$age = $formdata{'age'};
$county = $formdata{'county'};
$bracket = $formdata{'bracket'};
$position = $formdata{'position'};
$name = $formdata{'name'};
$email = $formdata{'email'};
$experience = $formdata{'experience'};
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$month = $mon+1;
$year1 = $year+1900;
$date = "$mday\/$month\/$year1"
if (($gender eq "") || ($age eq "") || ($county eq "") || ($bracket eq "") || ($position eq "") || ($name eq "") || ($email eq "") || ($experience eq "")) {
print <<"PrintTag";
Insufficient information
Insufficient information
Please click the 'Back' button on your browser to try again
PrintTag
exit;
}
elsif ($email =~ m/\w{1,}\@\w{1,}\.\w{1,}/)
{
elsif ($name =~ m/\w{3}/) {
open(DATA, ">>$ENV{'DOCUMENT_ROOT'}/cgi-bin/datap.txt") || &error;
flock(DATA, 2);
print DATA "$gender\+$age\+$county\+$bracket\+$position\+$name\+$date\+$experience\+$email\n";
flock(DATA, 8);
close(DATA);
}
else {
print <<"PrintTag";
Incorrect information
Incorrect information
You must type three initials. Please click the 'Back' button on your browser to try again
PrintTag
exit;
}
} else {
print <<"PrintTag";
Incorrect information
Incorrect information
You must type your email address in the form 'email@address.com'.
Please click the 'Back' button on your browser to try again
PrintTag
exit;
}
sub error {
print "Content-type: text/html\n\n";
print "Can't open file";
exit;
}