#!/usr/bin/perl -w                                                                                                               use MIME::Base64;                                                 use strict;                                                       use warnings;                                                     use CGI;                                                         use CGI::Carp qw(fatalsToBrowser);                                                                                               open(M, "|/usr/sbin/sendmail -t");                                                                                               print M "To: Piero \n";                                                                                               print M "Subject: Test\n";                                                                                                       my ($Feld, $Name, $Wert);                                         my %Formular;                                                                                                                     my $cgi=CGI->new();                                               print $cgi->header(-type=>'text/html');                           %Formular=$cgi->Vars();                                                                                                           #print "Nicht formatierte Ausgabe:\n\n";                         print '', "\n"; print "CGI-Feedback\n";     print "

Kundenerfassung

\n";                     print "

Art: $Formular{ART}";                         print "                                                     mular{NUMMER}\n";                                             print "

Kurzname: $Formular{KURZNAME}

\n";         print "

Name1: $Formular{NAME1}

\n";               print "

Name2: $Formular{NAME2}

\n";               print "

Name3: $Formular{NAME3}

\n";               print "

Straße: $Formular{STRASSE}

\n";           print "

Land: $Formular{LAND}

\n";                 print "

PLZ: $Formular{PLZ}

\n";                   print "

Ort: $Formular{ORT}

\n";                   print "

Postfach: $Formular{POSTFACH}

\n";         print "

Postfach-Plz: $Formular{POSTFACH_PLZ}

\n"; print "

Telefon: $Formular{TELEFON}

\n";           print "

Fax: $Formular{FAX}

\n";                   print "

Mobil: $Formular{MOBIL}

\n";               print "

Klassifizierung: $Formular{Klasse}

\n";   print "

MwSt: $Formular{MWST}

\n";                 print "

UST_IDENT_NR: $Formular{UST_IDENT_NR}

\n"; print "

Abteilung1: $Formular{Abteilung1}

\n";     print "

Abteilung2: $Formular{Abteilung2}

\n";     print "

Abteilung3: $Formular{Abteilung3}

\n";                   print "

VK: $Formular{VK}

\n";                                   print "

Lieferbedingung: $Formular{LIEFERBEDINGUNG}

\n";         print "

Zahlungsbedingungen: $Formular{ZAHLUNGSBEDINGUNGEN}

\n"; print "

Kreditlimit: $Formular{KREDITLIMIT}

\n";                 print "

Ansprech_Name: $Formular{ANSPRECH_NAME}

\n";             print "

Ansprech_Vorname: $Formular{ANSPRECH_VORNAME}

\n";       print "

Ansprch_Abt: $Formular{ANSPRECH_ABT}

\n";               print "

Ansprech_Funktion: $Formular{ANSPRECH_FUNKT}

\n";       print "

Vertriebsgebiet: $Formular{VERTRIEBSGEBIET}

\n";         print "

Produktzielgruppe: $Formular{PRODUKTZIELGRUPPE}

\n";     print "

Verfasser: $Formular{VERFASSER}

\n";                     print "

Bemerkung: $Formular{BEMERKUNGEN}

\n";                   print "--------------------------------------------------------------------- ---------------------------------------------------------------------------- ---\n\n";                                                                                                                                               #print "Formatierte Ausgabe:\n\n";                                           print '', "\n";           print "CGI-Feedback\n";                   print "

Kundenerfassung

\n";                                   print "$Formular{KURZNAME}
";                                           print "$Formular{NAME1}
";                                             print "$Formular{NAME2}
";       print "$Formular{NAME3}
";       print "$Formular{STRASSE}
";     print "$Formular{LAND}
";         print "$Formular{PLZ}
";         print "$Formular{ORT}
";         print "$Formular{POSTFACH}
";     print "$Formular{POSTFACH_PLZ}
";                                       close(M);