#!/usr/bin/perl -w                                                                                                                           use MIME::Base64;                                                       use strict;                                                             use warnings;                                                           use CGI;                                                               use CGI::Carp qw(fatalsToBrowser);                                                                                                           my ($Feld, $Name, $Wert);                                               my %Formular;                                                                                                                                 my $cgi=CGI->new();                                                     print $cgi->header(-type=>'text/html');                                 %Formular=$cgi->Vars();                                                                                                                       my $hosts = '/home/webmaster/cgi-bin/hosts';                           my $name = ();                                                         my $ip = $ENV{'REMOTE_ADDR'};                                           open(ABSENDER,"<$hosts") or die $!;                                     while(my $line = ){                                           chomp $line; #Zeilenumbruch entfernen                                   if($line =~ /^$ip/) { #wenn Zeile mit IP beginnt                       $name = (split (/#\s+/,$line))[1]; #Name ist durch leerstellen getrennt }                                                                   }                                                                   close ABSENDER;                                                                                                                       open(M, "|/usr/sbin/sendmail -t");                                                                                                   print M "To: DV-Abteilung \n";                                                                                         print M "From: $name\n";                                                                                                             print M "Subject: Kundenerfassung\n";                                                                                                 print M "Content-type: text/html\n\n";                                                                                                                                                                                                                                                                                                     if ($Formular{LAND} ne 'D')                                         {                                                                   $Formular{LAND} = ' '; }                                                                                                             #print "Nicht formatierte Ausgabe:\n\n";                           print M '', "\n"; print  "Kundenerfassung\n"; print  "

Kundenerfassung

\n";                   print M "";                             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 "Postfach: $Formular{POSTFACH}
\n";             print M "Postfach-Plz: $Formular{POSTFACH_PLZ}
\n";     print M "Land: $Formular{LAND}
\n";                     print M "PLZ: $Formular{PLZ}
\n";                       print M "Ort: $Formular{ORT}
\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{LIEFERUNGSBEDINGUNG}
\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 $cgi->h2('E-Mail wurde erfolgreich versendet.');                                                       close(M);