K
kutiku
Guest
Folgendes Script komuniziert mit dem SMTP-Server von topmail, und soll mir dann eine Mail schicken. Ich habe die fehlenden Module (nach SOVIEL Hilfe von euch!!!) auf den Server geladen, und deren Pfad in die @INC gesteckt, also soweit so gut. Nun das Script:
#!/usr/bin/perl
BEGIN {
push(@INC,"/web/sites/325/kutiku/www.funkydelia.f2s.com/blitz/cgi-bin/perl");
print "Content-type: text/html\n\n";
print "<html><head></head><body><table height=100% width=100%><tr><td align=center valign=middle style=\"color:#FF0000;font-weight:bold\">";
}
use CGI;
use Net::smtp;
$req = new CGI;
$MailSubject = $req->param("betreff");
$Empfaenger = "kiffen\@topmail\.de";
$SenderName = $req->param("name");
$SenderMail = $req->param("email");
$Nachricht = $req->param("nachricht");
$fehler="";
$smtp = Net::SMTP->new('www.topmail.de', Timeout => 30) or $fehler="keine Serververbindung;";
if ($fehler eq "")
{
$smtp->mail($SenderMail) or $fehler=$fehler."absender;";
$smtp->recipient("kiffen\@topmail\.de") or $fehler=$fehler."empfänger;";
$smtp->data() or $fehler=$fehler."datenfehler;";
$smtp->datasend("Reply-To: <".$SenderMail.">\nFrom: \"".$SenderName."\" <".$SenderMail.">\nTo: \"Blitzer Malkusch\" <".$Empfaenger.">\nSubject: ".$MailSubject."\n") or $fehler=$fehler."datensendefehler;";
$smtp->datasend("\n") or $fehler=$fehler."datensendefehler2;";
$smtp->datasend($Nachricht) or $fehler=$fehler."nachricht;";
$smtp->dataend() or $fehler=$fehler."datenende;";
$smtp->quit() or $fehler=$fehler."serverende;";
}
...und soweiter, das ist eigentlich der Interessante Teil. Also der Fehler ist "keine Serververbindung", also wird der Rest gar nicht mehr ausgeführt. Wenn ich das Script allerdings daheim von meinem lokal Server starte krieg ich meine Mail!?! Warum nicht bei dem Server von f2s?
Danke vielmals für eine eventuelle Antwort.
PS: Warum benutzt Du kein PhP oder Sendmail? ist keine Antwort!!!
#!/usr/bin/perl
BEGIN {
push(@INC,"/web/sites/325/kutiku/www.funkydelia.f2s.com/blitz/cgi-bin/perl");
print "Content-type: text/html\n\n";
print "<html><head></head><body><table height=100% width=100%><tr><td align=center valign=middle style=\"color:#FF0000;font-weight:bold\">";
}
use CGI;
use Net::smtp;
$req = new CGI;
$MailSubject = $req->param("betreff");
$Empfaenger = "kiffen\@topmail\.de";
$SenderName = $req->param("name");
$SenderMail = $req->param("email");
$Nachricht = $req->param("nachricht");
$fehler="";
$smtp = Net::SMTP->new('www.topmail.de', Timeout => 30) or $fehler="keine Serververbindung;";
if ($fehler eq "")
{
$smtp->mail($SenderMail) or $fehler=$fehler."absender;";
$smtp->recipient("kiffen\@topmail\.de") or $fehler=$fehler."empfänger;";
$smtp->data() or $fehler=$fehler."datenfehler;";
$smtp->datasend("Reply-To: <".$SenderMail.">\nFrom: \"".$SenderName."\" <".$SenderMail.">\nTo: \"Blitzer Malkusch\" <".$Empfaenger.">\nSubject: ".$MailSubject."\n") or $fehler=$fehler."datensendefehler;";
$smtp->datasend("\n") or $fehler=$fehler."datensendefehler2;";
$smtp->datasend($Nachricht) or $fehler=$fehler."nachricht;";
$smtp->dataend() or $fehler=$fehler."datenende;";
$smtp->quit() or $fehler=$fehler."serverende;";
}
...und soweiter, das ist eigentlich der Interessante Teil. Also der Fehler ist "keine Serververbindung", also wird der Rest gar nicht mehr ausgeführt. Wenn ich das Script allerdings daheim von meinem lokal Server starte krieg ich meine Mail!?! Warum nicht bei dem Server von f2s?
Danke vielmals für eine eventuelle Antwort.
PS: Warum benutzt Du kein PhP oder Sendmail? ist keine Antwort!!!