Oh, ik krijg niet alle variabelen in mijn inbox, ligt dat aan de mail.cgi?
########## ---- MODIFY VARIABLES
$mailprogram = '/usr/sbin/sendmail'; # Location of your sendmail program.
$my_email = 'sizzler@fok.nl'; # Where you want the messages to go to
$homepage = 'http://www.installcgi.com'; # URL of your home page
$website_name = 'Installcgi.com'; # Your web site's name
$subject='Feedback Form'; # The subject of your e-mail message to your visitor
$thankyou_page='Hartelijk dank voor uw tijd. De enquete is verzonden!'; # Text your visitor will see on a thank-you page
$logo_url='http://www.episcopalchurch.org/images/IS_thumbs_up_medres.jpg'; # URL of your logo or image to display
########## --- DO NOT CHANGE ANYTHING BELOW
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;
$FORM{$name} = $value;
}
if ($FORM{'email'})
{
$email = $FORM{'email'};
}
# Sending message to your address
open (MAIL,"|$mailprogram -t");
print MAIL "To: $my_email\n";
print MAIL "From: $email\n";
print MAIL "Subject: $subject\n";
print MAIL "U heeft het volgende bericht ontvangen:\n\n";
@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;
print MAIL "$name: $value\n";
}
close(MAIL);
# Print thank-you page
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Dank u!</TITLE></HEAD>\n";
print "<center><table border=1 cellpadding=8 width=350><tr><td bgcolor=\"#CAAAAD\">";
print "<CENTER><font face=verdana size=4>Dank u!</font></td></tr><tr><td><center><font face=verdana size=-1>";
print $thankyou_page; print "<br><br>";
print "<img src=$logo_url><p>";
print "Ook een formulier maken? Ga naar: <a href=$homepage>$website_name</a>";
print "</td></tr></table>";
"I reject your reality and substitute my own"- Adam Savage