diff -urN smeserver-mailstats-1.1.old/root/usr/bin/mailstats.pl smeserver-mailstats-1.1/root/usr/bin/mailstats.pl --- smeserver-mailstats-1.1.old/root/usr/bin/mailstats.pl 2020-10-19 12:16:21.422151324 +0100 +++ smeserver-mailstats-1.1/root/usr/bin/mailstats.pl 2020-10-19 12:27:22.000000000 +0100 @@ -11,9 +11,9 @@ # bjr - 02sept12 - Add in qpsmtpd failure code auth::auth_cvm_unix_local as per Bug 7089 # bjr - 10Jun15 - Sort out multiple files as input parameters as per bug 5613 # - Sort out geoip failure status as per Bug 4262 -# - change final message about the DB (it is created automatically these days by the rpm) +# - change final message about the DB (it is created automatically these days by the rpm) # bjr - 17Jun15 - Add annotation showing Badcountries being eliminated -# - correct Spamfilter details extract, as per Bug 8656 +# - correct Spamfilter details extract, as per Bug 8656 # - Add analysis table of Geoip results # bjr - 19Jun15 - Add totals for the League tables # bjr and Unnilennium - 08Apr16 - Add in else for unrecognised plugin detection @@ -29,7 +29,7 @@ # bjr - 30Apr17 - Change Categ index code - Bug 9888 again # bjr - 18Dec19 - Sort out a few format problems and also remove some debugging crud - Bug 10858 # bjr - 18Dec19 - change to fix truncation of email address in by email table - bug 10327 -# bjr - 16Apr20 - Eliminate Unitiailised varaibe when no data - bug 10928 +# bjr - 18Oct20 - Alter use of lc to avoid uninitialised messages - bug 11044 # ############################################################################# # @@ -102,7 +102,7 @@ #Configuration section my %opt = ( - version => '0.7.13', # please update at each change. + version => '0.7.14', # please update at each change. debug => 0, # guess what ? sendmail => '/usr/sbin/sendmail', # Path to sendmail stub from => 'spamfilter-stats', # Who is the mail from @@ -386,8 +386,7 @@ $counts{$PERCENT}{$categs[$ncateg]} = 0; if ($cdb->get('mailstats')){ - $display[$ncateg] = $cdb->get('mailstats')->prop($categs[$ncateg]) || "auto"; - $display[$ncateg] = lc($display[$ncateg]); + $display[$ncateg] = lc($cdb->get('mailstats')->prop($categs[$ncateg]) || "auto"); } else { $display[$ncateg] = 'auto' } @@ -609,7 +608,7 @@ # if ( ( $currentrcptdomain{ $proc } || '' ) eq '' ) { # reduce to lc and process each e,mail if a list, pseperatedy commas - my $recipientmail = lc( $log_items[4] ); + my $recipientmail = lc( $log_items[4] || ' ' ); if ( $recipientmail =~ m/.*,/ ) { #comma - split the line and deal with each domain