#!/usr/bin/perl -w

use MIME::Base64;
use strict;
use warnings;
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);

my ($Feld, $Name, $Wert);
my %Formular;

my $cgi=CGI->new();
%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 = <ABSENDER>){
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 <faxuser\@imap>\n";

print M "From: $name\n";

print M "Subject: Kundenerfassung\n";



if ($Formular{LAND} ne 'D')
{
$Formular{LAND} = ' '; }

print M header(-type=>'text/html'),
        start_html(-title=>'Kundenerfassung',
                   -style=>'td {font-family: courier,fixed;}'
                   ),
        h1('Kundenerfassung'),
        table(
          Tr(
            [
             td(['Art:',$Formular{ART}]),
             td(['Nummer:',$Formular{NUMMER}]),
             td(['Kurzname:',$Formular{KURZNAME}]),
             td(['Name1:',$Formular{NAME1}]),
             # usw.
             ]
          ),#Tr
        ),#table
        end_html;

close(M);
print header(),start_html(-title=>'Mail versendet'),h2('Mail wurde erfolgreich versendet'),end_html;