#!/usr/comp/bin/perl
print "Content-type:text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n/ /g; # replace newlines with spaces
$value =~ s/\r//g; # remove hard returns
$value =~ s/\cM//g; # delete ^M's
$FORM{$name} = $value;
}
open(OUTF,">>/home/staff/cstyng/public_html/cgi-bin/ic/test1.out")
or dienice("Couldn't open test1.out for writing: $!");
flock(OUTF,2);
seek(OUTF,0,2);
print OUTF "$FORM{'lname'}|$FORM{'fname'}|\n";
close(OUTF);
print <<EndHTML;
<html><head><title>Success</title></head>
<body>
$FORM{'lname'}|$FORM{'fname'}| <br>
Added.
</body></html>
EndHTML
sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;
}