User since
2006-02-28
6
Artikel
BenutzerIn
Also so schauts aus...
use Net::SMTP;
my $mailServer = "mail.server.de";
.
.
.
$smtp = Net::SMTP->new($mailServer);
Der Mailserver ist per Ping erreichbar. Und ich krieg immer die Fehlermeldung:
Can't call method "mail" on an undefined value at mail.pl line 12.
Schön langsam bin ich am verzweifeln...
User since
2005-08-17
1420
Artikel
BenutzerIn
Du koenntest ja mal das Debugging aktivieren:
my $smtp = Net::SMTP->new($mailServer,Debug=>1);
Eventuell sieht du dann, was schieflaeuft.
User since
2006-02-28
6
Artikel
BenutzerIn
Also ich muss gestehen, mit Debuggen in diesem Sinne hab ich in Perl noch nie gearbeitet.
Ich habs jetzt mal so eingetragen wie du es aufgeschrieben hast, aber da ist keine andere Fehlermeldung gekommen, als die übliche...
User since
2003-08-04
14371
Artikel
ModeratorIn
Du musst Dich wahrscheinlich noch Authentifizieren. Schau mal in die Doku von
Net::SMTP nach
auth etc...
Ansonsten könntest Du auch mal ein anderes Modul testen (z.B.
Mail::Sender)...
User since
2003-08-04
2145
Artikel
ModeratorIn + EditorIn
Net::SMTP ist leider recht schweigsam, wenn etwas schief geht. Tatsächlich liefert ein new() einfach ein undef zurück, wenn aus irgendeinem Grund das Öffnen des SMTP-Sockets misslingt. Erst danach wird der Debug-Level auf den neuen Socket gesetzt. Man hat also schlechte Karten, wenn der Connect nicht klappt. :(