#!/usr/bin/perluse CGI;
#zur Fehlerausgabe auf dem Browser
use CGI::Carp qw(fatalsToBrowser);
my $sendmail="/usr/sbin/sendmail"; #Pfad von sendmail
my $empfaenger="xxxxxx@xxxxxx.com"; #Mailadresse (Anpassen)
my $subject="Webanfrage_de"; #Für den Betreff (Anpassen)
my @message="";
my @message1="";
my $ok=1;
$q=new CGI;
#Eingaben einlesen
my $firma=$q->param("F01_Firma");
my $anrede=$q->param("F02_Anrede");
my $vorname=$q->param("F03_Vorname");
my $nachname=$q->param("F04_Nachname");
my $strasse=$q->param("F05_Strasse");
my $nummer=$q->param("F06_Nummer");
my $plz=$q->param("F07_PLZ");
my $stadt=$q->param("F08_Stadt");
my $plzpostfach=$q->param("F09_PLZPostfach");
my $postfach=$q->param("F10_Postfach");
my $land=$q->param("F11_Land");
my $anderesland=$q->param("F12_anderesLand");
my $telefon=$q->param("F13_Telefon");
my $fax=$q->param("F14_Fax");
my $email=$q->param("Email");
my $infosenden=$q->param("F15_InfoSenden");
my $fragen_kommentare=$q->param("F16_Fragen_Kommentare");
if(!$nachname)
{ push(@message,"Nachname<br>"); $ok=0;}
elsif($nachname!~/^[A-Za-zÄÜÖäüö-]*$/)
{ push(@message1,"Bitte im Feld Nachname nur Buchstaben (keine Umlaute und Leerzeichen) eingeben.<br>"); $ok=0; }
if(!$strasse)
{ push(@message,"Strasse<br>"); $ok=0;}
if(!$nummer)
{ push(@message,"Hausnummer<br>"); $ok=0;}
if(!$plz)
{ push(@message,"Postleitzahl<br>"); $ok=0;}
if(!$stadt)
{ push(@message,"Stadt<br>"); $ok=0;}
if(!$telefon)
{ push(@message,"Telefonnummer<br>"); $ok=0;}
elsif($telefon!~/^[0-9]+$/)
{ push(@message1,"Bitte im Feld Telefonnummer nur Zahlen eingeben.<br>"); $ok=0; }
if(!$email)
{ push(@message,"E-Mailadresse<br>"); $ok=0; }
elsif($email!~/^.*?(\@).*?(\.).*?/)
{ push(@message1,"Eine gültige Email-Adresse muss ein @(At-Zeichen) und einen . (Punkt) enthalten.<br>"); $ok=0; }
print $q->header;
if($ok==1){
open(MAIL,"|$sendmail -oi -t") or die "Can't open pipe to $sendmail: $!\n";
print MAIL "To: $empfaenger\n";
print MAIL "From: $email\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Firma: $firma\n";
print MAIL "Anrede: $anrede\n";
print MAIL "Vorname: $vorname\n";
print MAIL "Nachname: $nachname\n";
print MAIL "Strasse/Nr: $strasse $nummer\n";
print MAIL "PLZ/Stadt: $plz $stadt\n";
print MAIL "PLZ/Postfach: $plzpostfach $postfach\n";
print MAIL "Land: $land\n";
print MAIL "anderes Land: $anderesLand\n";
print MAIL "Telefon: $telefon\n";
print MAIL "Fax: $fax\n";
print MAIL "Info senden: $infosenden\n\n";
print MAIL "Fragen_Kommentare: $fragen_kommentare\n";
close(MAIL) or die "Can't close pipe to $sendmail: $!\n";
$\="";
print <<"EOM";
<HTML>
<HEAD>
<TITLE>Herzlichen Dank!</TITLE>
</HEAD>
<center>
<img src="cgi-bin/logo_60x60.jpg">
<BODY BGCOLOR="#FFFFFF" TEXT="#003399" >
<FONT FACE="Arial,Helvetica,sans-serif" SIZE="5">
<br>
xxx GmbH<hr width 50% color="#003399"><br>
<p>
<FONT FACE="Arial,Helvetica,sans-serif" SIZE="3">
Herzlichen Dank, $anrede $nachname, für Ihre Interesse an unserem Unternehmen.<br>
Wir werden Ihre Anfrage schnellstmöglich bearbeiten.<p>
Sollten Sie Fragen oder Bemerkungen haben, werden wir diese per eMail an $email beantworten.<p>
<B>xxx GmbH</B><p>
<p><p>
<hr width 50% color="#003399">
</FONT>
</BODY>
</center>
</HTML>
</form>
EOM
}
else{
$\="";
print <<"EOM";
<HTML>
<HEAD>
<TITLE>xxx Eingabefehler!</TITLE>
</HEAD>
<center>
<img src="cgi-bin/logo_60x60.jpg">
<BODY BGCOLOR="#FFFFFF" TEXT="#003399" >
<FONT FACE="Arial,Helvetica,sans-serif" SIZE="5">
<br>
xxx<hr width=50% color="#003399"><br>
<p>
<FONT FACE="Arial,Helvetica,sans-serif" SIZE="3">
<u>
Bitte folgende Felder ausfüllen oder korrigieren:
</u><br>
@message\n<br><hr width=75% color="#003399"<br>
<p><p>
@message1\n<br><hr width=75% color="#003399"
<p><p>
</FONT>
</BODY>
</center>
</HTML>
</form>
EOM
}
script läuft nicht bei Schlund
