Funktioniert einfach nicht

[Wolfgang Wiese]

Hi,

ich hab mal etwas eingefuegt:

if($ENV{'REQUEST_METHOD'} eq 'GET')

»»  {
»»   $Daten = $ENV{'QUERY_STRING'}
»»  }

else

»»  {
»»   read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
»»  }

@Formularfelder = split(/&/, $Daten);
foreach $Feld (@Formularfelder)

»»  {
»»   ($name, $value) = split(/=/, $Feld);  
»»   $value =~ tr/+/ /;
»»   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
»»   $value =~ s/<!--(.\n)*-->//g;      
»»   $Formular[$i] = $name;  
»»   $i = $i + 1;
»»   $Formular[$i] = $value;  
»»   $i = $i + 1;
»»  }

$Mailprogramm = "/usr/lib/sendmail";  # siehe Erläuterung unten
$MailSubject = "Formluar-Feedback";   # siehe Erläuterung unten
$Empfaenger = "[e-mail]"; # siehe Erläuterung unten
$SenderName = $Formular[1];           # siehe Erläuterung unten
$SenderMail = $Formular[3];           # siehe Erläuterung unten

if (not (-x $Mailprogramm)) {
  print "Content-Type: text/html\n\n";
  print "Baebaebae.. Ich darf nicht :) \n";
  exit;
}

open(MAIL,"$Mailprogramm -t") die;

..

Ciao,
  Wolfgang