Guido: email mit sendmail kommt nicht an

SELF-Forum

email mit sendmail kommt nicht an

Guido
– Informationen zu den Bewertungsregeln

Hallo ihr Gurus,
eigentlich no big deal, nur eine email verschicken.
hab alles (?) versucht, deshalb schaut auch mein script so chaotisch aus, aber die email kommt einfach nicht an. Ansonsten funktioniert das script. Alle Anzeigen auf den Bildschirm kommen an. Es gibt keine Fehlermeldung im error-log. Es sieht also alles so aus, als ob es funktioniert, nur ich erhalte keine email. Weiß jemand warum ???
Schon mal vielen Dank im voraus! Guido
hier mein script:
#!/usr/bin/perl

use CGI 'standard';
use CGI::Carp 'fatalsToBrowser';
#use CGI::Carp qw(fatalsToBrowser)

read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
print "Content-type: text/html\n\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>cgi-e12</h1>\n";
@Formularfelder = split(/&/, $Daten);
$i = 0;
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;
 }

$sendmail = "/usr/lib/sendmail";
$to = "schneider@accesswave.ca";
$email = "abgt@accesswave.ca";
$subject = "test cgi";

if (not (-x $sendmail)) {
  print "Content-Type: text/html\n\n";
  print "error/Fehler.. no access/Ich darf nicht :) \n";
#  exit;
}

open ( MAIL,"|$sendmail -t" ) || print STDERR "Mailprogramm error $! $?<br>\n";

print MAIL "To: $to\n";
print MAIL "From: $email\n";
print MAIL "Return-Path: abgt@accesswave.ca\n";
print MAIL "Errors-To: abgt@accesswave.ca\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$Formular[0]\n";
print MAIL "$Formular[1]\n";
print MAIL "$Formular[2]\n";
print MAIL "$Formular[3]\n";

close MAIL || print "Fehler beim Mailversenden!<br>\n";

print "email is hopefully gone", "<br>\n";
print "$Formular[0] = $Formular[1]", "<br>\n";
print "$Formular[1] = $Formular[0]", "<br>\n";
print "$Formular[2] = $Formular[3]", "<br>\n";
print "------------------------------", "<br>\n";

print "-------------- ganzer string [zeile]----------------", "<br>\n";
print "$Formularfelder[0]", "<br>\n";
print "$Formularfelder[1]", "<br>\n";
print "</body></html>\n";
print "-------------email-----------------", "<br>\n";
print  "To: $to<br>\n";
print  "From: $email<br>\n";
print  "Subject: $subject<br>\n\n";
print  "$Formular[0]<br>\n";
print  "$Formular[1]<br>\n";
print  "$Formular[2]<br>\n";
print  "$Formular[3]<br>\n";

exit;

Beitrag melden
–
Informationen zu den Bewertungsregeln