#!/usr/bin/perl require ('cgi-lib.pl'); &PrintHeader; print "Content-type: text/html\n\n"; print ""; if (defined $ENV{'REMOTE_ADDR'}) { $remote_addr = $ENV{'REMOTE_ADDR'}; } else { $remote_addr = ""; } if (defined $ENV{'REMOTE_HOST'}) { $remote_addr = $ENV{'REMOTE_HOST'}; } # Get the vaules from the form and process them... &ReadParse (*input); $input{issue} =~ tr/,/ /; # remove any commas, since they're delimeters $issue = $input{issue}; $sound = $input{sound}; $sender_email = $input{sender_email}; $senders_name = $input{senders_name}; $image = "http://www.hansen1.com/gifs/$issue"; if ($issue eq "ulapic25.jpg") { $image = "http://www.contortionhomepage.com/ula/ulapic25.jpg"; } if ($issue eq "slugs.jpg") { $image = "http://www.best.com/~drzeus/Slugs.jpg"; } if ($issue eq "original.jpg") { $image = "http://www.inmind.com/people/dglass/original.jpg"; } print "

Customize your YikesCard


All information stays private.
Your Name: Your Email:
Their Name: Their Email:
\">
Enter your personal message above
"; if ($sender_email) { print "

Click here to see if there\'s a different Yikes! photograph you\'d like to send...
"; } print " "; die;