#!/usr/bin/perl

use strict;
use CGI;

print "Content-type: text/html\n\n"; 
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
$frage=$ENV{'QUERY_STRING'};
}
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
{
read (STDIN,$frage,$ENV{'CONTENT_LENGTH'});
}
@frage=split(/&/,$frage);
foreach $i(0..$#frage)
{
@frage[$i]=~s/\+/ /g;
($key,$value)=split(/=/,$frage[$i],2);
$key=~s/%(..)/pack("c",hex($1))/ge;
$value=~s/%(..)/pack("c",hex($1))/ge;
$key=~s/\n/ /g;
$value=~s/\n/ /g;
$key=~s/\"/ /g;
$value=~s/\"/ /g;
$Frage{$key}=$value;
}


($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)=gmtime();
$jahr=$year;
$monat=$mon+1;
$tag=$mday;
$jahr=$year+1900;
# Definition der Maildatei
$tempfile = 'd:\perl_temp\data\XXX.tmp';
print CGI::redirect('http://www.yahoo.de/);

# Oeffnen der Maildatei
open( OUT, ">$tempfile" );

print OUT "From: info\@XXX.de\n";
print OUT "To: info\@XXX.de\n";
print OUT "Subject: .:Anfrage via Kontaktformular:.\n\n";
print OUT "Heute ist der $tag.$monat.$jahr .\n\n";
print OUT "Folgende Daten wurden angegeben.\n";
print OUT "Firma:$Frage{Firma}\n";
print OUT "Name: $Frage{Name}\n";
print OUT "Telnr: $Frage{Tel}\n";
print OUT "Betreff:$Frage{Betreff}\n";
print OUT "Mitteilung:$Frage{Mitteilung}\n";
close (OUT);

# Maildatei $tempfile ins Verzeichnis pickup kopieren
# Sie wird von dort automatisch als Mail versendet.
$maildat='copy d:\perl_temp\data\XXX.tmp c:\inetpub\mailroot\pickup\XXX.tmp';
`$maildat`;

# Maildatei im Verzeichnis d:\perl_temp\data anschliessend loeschen:
unlink( $tempfile );