Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re^8: MIME::Lite error => SMTP auth() command not supported on

by ted.byers (Monk)
on Sep 20, 2011 at 19:27 UTC ( #927008=note: print w/replies, xml ) Need Help??

in reply to Re^7: MIME::Lite error => SMTP auth() command not supported on
in thread MIME::Lite error => SMTP auth() command not supported on

I suspect something is awry with the security required to set up a TLS session. On the two servers where the script fails, I get everything up to where TLS ought to start, but no TLSv1 packets. On the workstation where all works, I get a large number of TLSv1 packets, followed by those SMTP packets that end it all. But, I am having an aweful time trying to get Wireshark to display/export, only those packets relevant to the SMTP session (but that may be due to the fact I have never used Wireshark before). And, there are a lot of packets exchanged between the workstation and server and the router, many of which are related to the SMTP session, and seem to be duplicated between the router's public IP address and the gmail email server. What sorts of things need I investigate to determine why neither server can establish the TLS connection that apparently needs? Thanks Ted
  • Comment on Re^8: MIME::Lite error => SMTP auth() command not supported on

Replies are listed 'Best First'.
Re^9: MIME::Lite error => SMTP auth() command not supported on
by keszler (Priest) on Sep 20, 2011 at 23:37 UTC

    To reduce the packets captured to just those that are interesting you need a capture filter. has a good explanation; what you want is something like host and port 25 (or 587, 465, etc.)

    Since MIME::Lite->send isn't cutting it, why not use Net::SMTP::TLS directly? Something like:

    sub make_and_send_email{ my ($from, $to,$subject,$message, $path) =@_; use Net::SMTP::TLS; my $un='myun'; my $pw='mypwd'; my $mh=''; my $pt=25; # or 587, 465, etc depending on what gmail uses my $mailer = new Net::SMTP::TLS( $mh, Port => $pt, User => $un, Password => $pw, Timeout => 60, ) or die "Cannot create a TLS mailer instance!\n"; $mailer->mail($from); $mailer->to($to); $mailer->data(); my $msg = MIME::Lite->new( From => $from, 'Reply-to' => $from, To => $to, Subject => $subject, Type => 'multipart/related' ) or die "Cannot create a new email instance!\n"; $msg->attach( Type => 'TEXT', Data => $message, ) or die "Error adding TXT: $!\n"; $msg->attach( Type => 'aplication/pdf', Path => $path, Disposition => 'attachment' ) or die "Error adding PDF: $!\n"; $mailer->datasend($msg->as_string); $mailer->dataend(); $mailer->quit(); }
      Thanks That worked, and it generated an idea that helped solve a similar problem with imap Thanks a lot. Cheers Ted

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://927008]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2018-01-16 19:38 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (188 votes). Check out past polls.