Commit dce19cb3 authored by Benjamin Schmid's avatar Benjamin Schmid

v1.3.1 James W. (2008-09) : Module sanity checks

  Sanity check for required Authen:SASL module
parent 2f25ee5f
#!/usr/bin/perl -w #!/usr/bin/perl
# #
# $Id: $ # $Id: $
# #
...@@ -60,6 +60,9 @@ ...@@ -60,6 +60,9 @@
# * Added Support for SMTP Authentication (code taken from check_email_delivery) # * Added Support for SMTP Authentication (code taken from check_email_delivery)
# * SMTP TLS Support working, SMTP SSL Support not tested # * SMTP TLS Support working, SMTP SSL Support not tested
# #
# James W., September 2008 (v.1.3.1)
# * sanity check for required Authen:SASL module
#
use Mail::POP3Client; use Mail::POP3Client;
use Net::SMTP; use Net::SMTP;
...@@ -148,6 +151,7 @@ my @required_module = (); ...@@ -148,6 +151,7 @@ my @required_module = ();
push @required_module, 'Net::SMTP::SSL' if $usesmtpssl; push @required_module, 'Net::SMTP::SSL' if $usesmtpssl;
push @required_module, ('MIME::Base64','Authen::SASL') if $usesmtpssl && $smtpuser; push @required_module, ('MIME::Base64','Authen::SASL') if $usesmtpssl && $smtpuser;
push @required_module, 'Net::SMTP::TLS' if $usesmtptls; push @required_module, 'Net::SMTP::TLS' if $usesmtptls;
push @required_module, 'Authen::SASL' if $smtpuser && !$usesmtpssl && !$usesmtptls;
exit $ERRORS{"UNKNOWN"} unless load_modules(@required_module); exit $ERRORS{"UNKNOWN"} unless load_modules(@required_module);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment