#!/usr/local/bin/perl $me = "http://la.znet.com/~schester/cgi-bin/addpage.cgi"; $sendmail = "formmail.cgi"; $pathinfo = $ENV{PATH_INFO}; print <Add My Page to this Index!

E-Mail Address Submission Form

Your Name:

Your E-mail address:

URL of HomePage (if you have one):

Comments:

EOF } sub post_form { # Get the input. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs. @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-f0-9][a-fA-f0-9])/pack("C", hex($1))/eg; $form{$name} = $value; } print < OOPS! Someting bad happened! EOF }