#!/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 M '', "\n"; print  "CGI-Feedback\n"; print  "

Kundenerfassung

\n";                 print M "Art: $Formular{ART}\n";                           print M "Nummer: $Formular{NUMMER}\n";                     print M "Kurzname: $Formular{KURZNAME}\n";                 print M "Name1: $Formular{NAME1}\n";                       print M "Name2: $Formular{NAME2}\n";                       print M "Name3: $Formular{NAME3}\n";                       print M "Straße: $Formular{STRASSE}\n";                   print M "Land: $Formular{LAND}\n";                         print M "PLZ: $Formular{PLZ}\n";                           print M "Ort: $Formular{ORT}\n";                           print M "Postfach: $Formular{POSTFACH}\n";                 print M "Postfach-Plz: $Formular{POSTFACH_PLZ}\n";         print M "Telefon: $Formular{TELEFON}\n";                   print M "Fax: $Formular{FAX}\n";                           print M "Mobil: $Formular{MOBIL}\n";                       print M "Klassifizierung: $Formular{Klasse}\n";           print M "MwSt: $Formular{MWST}\n";                         print M "UST_IDENT_NR: $Formular{UST_IDENT_NR}\n";         print M "Abteilung1: $Formular{Abteilung1}\n";             print M "Abteilung2: $Formular{Abteilung2}\n";             print M "Abteilung3: $Formular{Abteilung3}\n";             print M "VK: $Formular{VK}\n";                                                   print M "Lieferbedingung: $Formular{LIEFERBEDINGUNG}\n";                         print M "Zahlungsbedingungen: $Formular{ZAHLUNGSBEDINGUNGEN}\n";                 print M "Kreditlimit: $Formular{KREDITLIMIT}\n";                                 print M "Ansprech_Name: $Formular{ANSPRECH_NAME}\n";                             print M "Ansprech_Vorname: $Formular{ANSPRECH_VORNAME}\n";                       print M "Ansprch_Abt: $Formular{ANSPRECH_ABT}\n";                               print M "Ansprech_Funktion: $Formular{ANSPRECH_FUNKT}\n";                       print M "Vertriebsgebiet: $Formular{VERTRIEBSGEBIET}\n";                         print M "Produktzielgruppe: $Formular{PRODUKTZIELGRUPPE}\n";                     print M "Verfasser: $Formular{VERFASSER}\n";                                     print M "Bemerkung: $Formular{BEMERKUNGEN}\n";                                   print M "----------------------------------------------------------------------- -------------------------------------------------------------------------------- -----\n\n";                                                                                                                                                     #print "Formatierte Ausgabe:\n\n";                                               print '', "\n";               print "CGI-Feedback\n";                                     print M "$Formular{KURZNAME}
";                                             print M "$Formular{NAME1}
";                                               print M "$Formular{NAME2}
";                                               print M "$Formular{NAME3}
";         print M "$Formular{STRASSE}";             print M "$Formular{LAND}";               print M "$Formular{PLZ}";                 print M "$Formular{ORT}";                 print M "$Formular{POSTFACH}";           print M "$Formular{POSTFACH_PLZ}";                                               print $cgi->h2('E-Mail wurde versendet');                                         close(M);