Net::SMPT_auth - #97356 (Fragen zu Perl-Modulen)

ptk

2007-08-02 23:13

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Aus Zeiten, in denen Net::SMTP noch kein auth() konnte (oder ich es nicht kannte), habe ich folgendes programmiert:

Code: (dl )

        $smtp->command("AUTH", "LOGIN", MIME::Base64::encode_base64($username, ""));
        $smtp->response == Net::Cmd::CMD_MORE() or die "Invalid response";
        $smtp->command(MIME::Base64::encode_base64($password, ""));
        $smtp->response == Net::Cmd::CMD_OK() or die "Invalid response";