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: $
#
......@@ -60,6 +60,9 @@
# * Added Support for SMTP Authentication (code taken from check_email_delivery)
# * 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 Net::SMTP;
......@@ -148,6 +151,7 @@ my @required_module = ();
push @required_module, 'Net::SMTP::SSL' if $usesmtpssl;
push @required_module, ('MIME::Base64','Authen::SASL') if $usesmtpssl && $smtpuser;
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);
......
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