Select Code to Download

use warnings;
use DBI;
...
use LWP::MediaTypes;    6.01
use Date::Calc qw(:all);
use Mail::Sender;        0.8.22

open my $DEBUG, ">> //root/FAVOR_Data_Reports_scripts/debug_file_gen_a
+nd_mail_adv_reports.txt" or die "Can't open the debug file: $!\n";
     ref ($sender = new Mail::Sender({from => 'janedoe@madeup.org',smt
+p
...
      and print "Mail sent OK."
     )
     or die "$Mail::Sender::Error\n";

IO::Socket::SSL->start_SSL failed: SSL connect attempt failed with unk
+nown errorerror:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:cer
+tificate verify failed

>> 220 mail.madeup.org Microsoft ESMTP MAIL Service ready at Sat, 28 D
+ec 2013 13:28:21 -0500
<< EHLO localhost
...
>> 250 CHUNKING
<< STARTTLS
>> 220 2.0.0 SMTP server ready

  1 2014-01-02T10:24:35.047Z,EXCHSERVER\Relay Receive,08D0C0F3026261AE
+,0,10.11.74.18:25,10.11.74.25:34156,+,,
  2 2014-01-02T10:24:35.047Z,EXCHSERVER\Relay Receive,08D0C0F3026261AE
+,1,10.11.74.18:25,10.11.74.25:34156,*,SMTPSubmit SMTPAcceptAnySender 
+SMTPAcceptAuthoritativeDomainSender AcceptRoutingHeaders,Set Session 
+Permissions
...
 21 2014-01-02T10:24:35.140Z,EXCHSERVER\Relay Receive,08D0C0F3026261AE
+,20,10.11.74.18:25,10.11.74.25:34156,*,C3B8E4FF095318BBE93F4D26ACA11E
+6218481790,Certificate thumbprint
 22 2014-01-02T10:24:35.140Z,EXCHSERVER\Relay Receive,08D0C0F3026261AE
+,21,10.11.74.18:25,10.11.74.25:34156,*,webmail.somedomain.org;www.web
+mail.somedomain.org;mail.somedomain.org,Certificate alternate names
 23 2014-01-02T10:24:35.281Z,EXCHSERVER\Relay Receive,08D0C0F3026261AE
+,22,10.11.74.18:25,10.11.74.25:34156,-,,Local