#!/usr/bin/perl

use strict;
use CGI;

print "Content-type: text/html\n\n"; 

my ($frage);
if ($ENV{'REQUEST_METHOD'} eq "GET"){
	$frage=$ENV{'QUERY_STRING'};
}elsif ($ENV{'REQUEST_METHOD'} eq "POST"){
	read (STDIN,$frage,$ENV{'CONTENT_LENGTH'});
}

my @frage	= split /&/,$frage;
my %Frage;

foreach my $i(0..$#frage){
	$frage[$i]=~s/\+/ /g;
	my ($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;
}


my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)=gmtime();
my $jahr	= $year + 1900;
my $monat	= $mon+1;
my $tag	= $mday;

# Definition der Maildatei
my $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.
my $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;