Jim Lawson

Used it for years, needs a bit of maintenance

We've used this package to make sure our email environment is delivering messages in a timely fashion. It's a great tool. However, it hasn't been updated in some time. check_smtp_send depends on Net::SMTP::TLS which is no longer maintained and breaks with new IO::Socket::SSL. That's when you'll see: invalid SSL_version specified The fix is to change check_smtp_send to use Net::SMTP which now directly supports STARTTLS. Patch: diff --git a/check_smtp_send b/check_smtp_send index ade0fe3..9be3869 100755 --- a/check_smtp_send +++ b/check_smtp_send @@ -85,7 +85,6 @@ if( $smtp_server eq "" && scalar(@mailto) == 1 ) { my @required_module = (); push @required_module, 'Net::SMTP::SSL' if $ssl; push @required_module, ('MIME::Base64','Authen::SASL') if $ssl && $username; -push @required_module, 'Net::SMTP::TLS' if $tls; push @required_module, 'Net::SMTP_auth' if $auth_method and not $tls; # whereas if auth_method and tls we use TLS_auth, which is included in this script! push @required_module, 'Text::Template' if $template; push @required_module, 'Net::DNS' if $mx_lookup; @@ -141,7 +140,7 @@ if( $mx_lookup ) { } # connect to SMTP server -# create the smtp handle using Net::SMTP, Net::SMTP::SSL, Net::SMTP::TLS, or an authentication variant +# create the smtp handle using Net::SMTP, Net::SMTP::SSL, or an authentication variant my $smtp; eval { if( $tls and $auth_method ) { @@ -154,7 +153,7 @@ eval { } elsif( $tls ) { $smtp_port = $default_smtp_tls_port unless $smtp_port; - $smtp = Net::SMTP::TLS->new($smtp_server, Timeout=>$timeout, Port=>$smtp_port, User=>$username, Password=>$password); + $smtp = Net::SMTP->new($smtp_server, Timeout=>$timeout, Port=>$smtp_port, User=>$username, Password=>$password, starttls=>1); if( $smtp ) { my $message = oneline($smtp->message()); die "cannot connect with TLS: $message" if $smtp->code() =~ m/53d/;

Reviewed 9 years ago