#!/usr/local/apps/perl/bin/perl
#
# Copyright (c) Joshua Blake Polterock 1995
#
# Version 1.06 07/11/95
print "Content-type: text/html\n";
print "\n";
&htmldie ("This script must use the POST method")
if ($ENV{REQUEST_METHOD} ne "POST");
&htmldie ("This script only decodes forms")
if ($ENV{CONTENT_TYPE} !~ /application\/x-www-form-urlencoded/);
read (STDIN, $query, $ENV{CONTENT_LENGTH}); # Read data
@fields = split( /&/, $query);
foreach $item (@fields) {
$equal=index( $item, "=" );
$key=substr( $item, 0, $equal );
$value=substr( $item, $equal+1 );
$array{$key} .= $value;
}
$array{email} =~ tr/A-Z/a-z/;
&Get_Fields;
&Return_Page;
&Process_Request;
&Return_Page;
&Mail_Maintainer;
exit (0);
############################################################################
sub Get_Fields {
$firstname = "$array{firstname}";
$lastname = "$array{lastname}";
}
############################################################################
sub Return_Page {
print "\n";
print "\n";
print "Title of Document\n";
print "\n";
print "\n";
print "
\n";
print "Some body material\n";
print "\n";
print "\n";
}
############################################################################
sub Process_Request {
open( OUTFILE, ">>$surfer_data" ) || die "Can't open file $OUTFILE: $! \n";
print OUTFILE "$firstname $lastname:$email\n";
close( OUTFILE );
}
############################################################################
sub Mail_Maintainer {
open(MAIL, "| /usr/ucb/mail -s \"$firstname $lastname joined SurfMail\" $maintainer") || die "Can't open mail to $maintainer, $! \n";
print MAIL "$firstname $lastname\n";
print MAIL "Email: $email\nThreshhold: $threshhold\n";
close( MAIL);
############################################################################
sub htmldie {
local($string) = @_;
print "$string\n";
exit (-1);
}