#!/usr/local/bin/perl
# Name-Werte-Paare mittels "cgi-lib.pl" in
# einen Perl-Array namens "puffer" schreiben :
require 'cgi-lib.pl';
&ReadParse (*puffer);
$SENDMAIL="/usr/lib/sendmail -t";
print "Content-Type: text/html\n\n";
print "\n\n";
sub checkdata
{
if ( ($puffer{'company'} eq '') || ($puffer{'add1'} eq '') || ($puffer{'zip'} eq '')
|| ($puffer{'city'} eq '') || ($puffer{'contact'} eq '') || ($puffer{'email'} eq '') )
{
print "Fehler bei der Bestellung\n\n";
print "\n";
print "
\n";
if ($puffer{'company'} eq '')
{print "Bitte prüfen Sie Ihren eingegebenen Firmennamen\n";}
if ($puffer{'add1'} eq '')
{print "Bitte prüfen Sie Ihre eingegebene Adresse\n";}
if ($puffer{'zip'} eq '')
{print "Bitte prüfen Sie Ihre eingegebene PLZ\n";}
if ($puffer{'city'} eq '')
{print "Bitte prüfen Sie Ihren eingegebenen Wohnort\n";}
if ($puffer{'contact'} eq '')
{print "Bitte prüfen Sie Ihren eingegebenen Ansprechpartner\n";}
if ($puffer{'email'} eq '')
{print "Bitte prüfen Sie Ihre eingegebene E-Mail-Adresse\n";}
print <Ihr WWW-Service-Team
Zurück zur Homepage
EOF
exit (0);
}
}
sub mailit
{
open(SENDMAIL,"|$SENDMAIL") || die "Fehler beim Versenden der Bestellung\n";
print SENDMAIL "To: <$puffer{'mail'}>\n";
print SENDMAIL "Subject: Katalog-Bestellung\n";
print SENDMAIL "From: $puffer{'contact'} <$puffer{'email'}>\n";
print SENDMAIL<Vielen Dank!
Vielen Dank für Ihre Bestellung
Sie erhalten eine Auftragsbestätigung per E-Mail
Zurück zur Homepage