Forms Sample #3

This script will take the information you've entered and mail it to you. It's important that you type in a real email address, and preferably your own.

Email Address:

Name:

I have: A fish A bird A cat A dog

I prefer:

The HTML

Here is the HTML that created that form:

<FORM METHOD="POST" ACTION="formex3.cgi">

Email Address: <INPUT SIZE=45 NAME="email" VALUE="">
<P>
Name: <INPUT SIZE=25 NAME="name" VALUE="">
<P>
I have:   <INPUT type="checkbox" NAME="haveafish" CHECKED>A fish 
          <INPUT type="checkbox" NAME="haveabird">A bird 
          <INPUT type="checkbox" NAME="haveacat" CHECKED>A cat 
          <INPUT type="checkbox" NAME="haveadog">A dog 
<P> 
I prefer: <SELECT NAME="prefer">
	  <OPTION>Fish
	  <OPTION>Birds
	  <OPTION SELECTED>Cats
	  <OPTION>Dogs
	  </SELECT>
<P>
<CENTER>
<INPUT TYPE=submit VALUE="Go for it!">
<INPUT TYPE=reset VALUE="No, no, start over">
</CENTER>

The Script

Here is the script that will be run:

#!/usr/sbin/perl
#
# This script was originally written by Michael Toy, and modified
# by Hagan Heller in March, 1995.
#
# The first line should be the path to "perl", which is the
# language that this script was written in. If you don't have
# perl, you can't run this. Also, MAKE SURE that the execute 
# permission is turned on for this file.
#

#
# If you're going to send mail, first you have to set up a mail program.
# This should match the mail program on your system.
#
$mailprog = '/usr/lib/sendmail';

#
# The information "returned" from this script must have a
# type, so that Netscape will know what to do with it. The
# type text/html tells it to display this as a document
#
# Anything that's print-ed after this shows up in the document.
#
print "Content-type: text/html\n\n";

#
# This reads in the information sent when the user pressed Submit
#
if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; }
else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }

#
# Now, using a little loop, we'll split up the data into name/value
# pairs, which makes them easier to work with. 
#
@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;

    $FORM{$name} = $value;
}

#
# Once the name/value pairs have been created, you can work with
# them by referring to the variable names you set up in the 
# original HTML, using $FORM{"varname"}.
#

#
# First, we make sure that they actually gave an email address
#
if ($FORM{"email"} eq "") {
    print "<TITLE>Entry Not Accepted</TITLE>";
    print "<H1>Entry Not Accepted:</H1><P>\n";
    print "<H1>Email: was left blank</H1>\n";
    print "You have left the email field blank.  Please fill in your ";
    print "correct email address and re-submit the form, so that it ";
    print "can send you email.";

#
# You need the exit command, otherwise it will keep going on
# in the script and do more stuff.
#
    exit(0);
}

#
# Send mail to hagan@netscape.com
#
if ($recipient eq "") { $recipient = $FORM{'email'}; }

#
# Open a mail file and begin writing to it
#
format MAIL =
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$value
.
#
# When you're printing, put in a newline \n to make a return
# Be careful using quotes inside of quotes. It's ok to use 'this "is" text'
# of "this 'is' text", but dont mix things up.
# Also, don't forget those semi-colons!
#

open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "From: $FORM{'email'}\n";
print MAIL "Subject: Form test from $FORM{'name'})\n\n";

print MAIL "Dear $FORM{name},\n\n";
print MAIL "Thank you for visiting us from $ENV{HTTP_REFERER}.\n";
print MAIL "We are so happy to hear that you prefer $FORM{prefer}.\n";
print MAIL "We have some valuable products to offer you! Please contact\n";
print MAIL "us!\n ";

close (MAIL);


# 
# Now that the mail has been sent, put up something in the document
# to let the user know it went well
#
print "<H2>Mail Has been sent.</H2>\n";
print " Your email has been sent to $FORM{'email'}.";