#!/usr/local/bin/perl
$email = "girwidz\@physik.uni-wuerzburg.de";
$sm = "/usr/sbin/sendmail";
$date = `date +"%D"`;
$num=1;
if($ENV{'REQUEST_METHOD'} eq 'GET')
{
$Daten = $ENV{'QUERY_STRING'}
}
else
{
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
}
$i = 0;
@Formularfelder = split(/&/, $Daten);
foreach $Feld (@Formularfelder)
{
($name, $value) = split(/=/, $Feld);
$name =~ s/\+/ /g;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$Formular[$i] = $name;
$i = $i + 1;
$Formular[$i] = $value;
$i = $i + 1;
}
$max = $#Formular;
$feld = $ENV{'HTTP_REFERER'};
if (($max > 0) && ( $feld =~ m/\http:\/\/www.physik\.uni-wuerzburg\.de/ ))
{
open (MAIL, "|$sm $email") || die "Can't open $sm!\n";
print MAIL ("To: <$email>\n");
print MAIL ("\n
HOST: $ENV{'REMOTE_HOST'}
BROWSER: $ENV{'HTTP_USER_AGENT'}
VOM: $date
\n Rückmeldung zu: $ENV{'HTTP_REFERER'}\n\n");
$i = 0;
# $max = $#Formular;
for($i=0;$i<=$max;$i=$i+2)
{
print MAIL " $Formular[$i]: $Formular[$i+1]\n";
}
print MAIL ("\n\n---End of data.---\n\n");
close(MAIL);
}
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print qq();
print "Danke!\n";
print "\n";
print "\n";
print "Danke
\n";
print "Danke für die Rückmeldung.\n";
print "
";
print "\n";
print "\n";