sendmail - sendet nich?

[Gustl]

Jetzt nochmal langsam: Bitte den Code vollständig in eine datei kopieren namens smail.pl. ins cgi-bin verzeichnis hochladen. chmod auf 755. dann aufrufen über den browser. http://www.deine.domain/cgi-bin/smail.pl . Sag mir was dabei rauskommt.

Gustl

[code lang=perl]#!/usr/bin/perl

use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;

##############################################################

CGI: smail.pl      TESTET DEN VERSAND VON MAILS

##############################################################

my $mail=param(mail);
my $go=param(go);
my $message;

my @wann=split(/ +/,localtime(time()));

my $MAILPROGRAMM = "/usr/lib/sendmail";

if ($go eq 1)
{
  open(MAIL,"|$MAILPROGRAMM -t") || die "Sendmail konnte nicht gestartet werden";
  print MAIL "To: DAS WAR ICH <$mail>\n";
  print MAIL "From: EXAMPLEME <[e-mail]>\n";
  print MAIL "Subject: MAILTEST $wann[3]\n\n";
  print MAIL "GELAUFEN $wann[2] $wann[1] $wann[4] - $wann[3]\n\n";
  close(MAIL);

$message="An $mail wurde eine Testmail verschickt:<br><br>
  Wann: $wann[2] $wann[1] $wann[4] - $wann[3]<br><br>";
}

print header();

print"
  <font face=verdana color=green size=1><b>$message</b></font>
  <form action=smail.pl method=post><input type=hidden name=go value=1>
  <font face=verdana color=black size=1>
  <b>eMail eintippen: [e-mail]</b></font><br><br>
  <input type=text name=mail value="$mail" size=32><br><br>
  <input type=submit value="Testmail jetzt versenden">
  </form>
";

#########

end CGI

#########[/code