|
|
|
@ -91,7 +91,7 @@ |
|
|
|
|
|
|
|
# Requirements - the following perl modules are required: |
|
|
|
# DBD::Pg or DBD::mysql |
|
|
|
# EMail::Sender,Email::Simple,Email::Valid,Try::Tiny,MIME::Charset, Log::Log4perl, Log::Dispatch, MIME::EncWords and GetOpt::Std |
|
|
|
# EMail::Sender,Email::Simple,Email::Valid,Try::Tiny,MIME::Charset, Log::Log4perl, Log::Dispatch, and GetOpt::Std |
|
|
|
# |
|
|
|
# You may install these via CPAN, or through your package tool. |
|
|
|
# CPAN: 'perl -MCPAN -e shell', then 'install Module::Whatever' |
|
|
|
@ -107,7 +107,6 @@ |
|
|
|
# liblog-dispatch-perl |
|
|
|
# libgetopt-argvfile-perl |
|
|
|
# libmime-charset-perl |
|
|
|
# libmime-encwords-perl |
|
|
|
# |
|
|
|
# Note: When you use this module, you may start seeing error messages |
|
|
|
# like "Cannot insert a duplicate key into unique index |
|
|
|
@ -123,9 +122,7 @@ |
|
|
|
# |
|
|
|
use utf8; |
|
|
|
use DBI; |
|
|
|
use MIME::Base64 qw(encode_base64); |
|
|
|
use Encode qw(encode decode); |
|
|
|
use MIME::EncWords qw(:all); |
|
|
|
use Encode qw(decode); |
|
|
|
use Email::Valid; |
|
|
|
use strict; |
|
|
|
use Getopt::Std; |
|
|
|
|