[exim-cvs] cvs commit: exim/exim-src/src eximstats.src

Kezdőlap
Üzenet törlése
Válasz az üzenetre
Szerző: Steve Campbell
Dátum:  
Címzett: exim-cvs
Tárgy: [exim-cvs] cvs commit: exim/exim-src/src eximstats.src
steve 2007/01/22 15:14:01 GMT

  Modified files:
    exim-src/src         eximstats.src 
  Log:
  SpamAssassin rejects are now collated in the reject messages.


  Revision  Changes    Path
  1.12      +13 -3     exim/exim-src/src/eximstats.src


  Index: eximstats.src
  ===================================================================
  RCS file: /home/cvs/exim/exim-src/src/eximstats.src,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- eximstats.src    16 Nov 2006 16:16:30 -0000    1.11
  +++ eximstats.src    22 Jan 2007 15:14:01 -0000    1.12
  @@ -1,5 +1,5 @@
   #!PERL_COMMAND -w
  -# $Cambridge: exim/exim-src/src/eximstats.src,v 1.11 2006/11/16 16:16:30 steve Exp $
  +# $Cambridge: exim/exim-src/src/eximstats.src,v 1.12 2007/01/22 15:14:01 steve Exp $


   # Copyright (c) 2001 University of Cambridge.
   # See the file NOTICE for conditions of use and distribution.
  @@ -254,6 +254,12 @@
   # 2006-11-16  V1.50 Steve Campbell
   #             Fixes for obtaining the IP address from reject messages.
   #
  +# 2006-11-27  V1.51 Steve Campbell
  +#             Another update for obtaining the IP address from reject messages.
  +#
  +# 2006-11-27  V1.52 Steve Campbell
  +#             Tally any reject message containing SpamAssassin.
  +#
   #
   #
   # For documentation on the logfile format, see
  @@ -552,7 +558,7 @@


   @days_per_month = (0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334);
   $gig     = 1024 * 1024 * 1024;
  -$VERSION = '1.50';
  +$VERSION = '1.52';


   # How much space do we allow for the Hosts/Domains/Emails/Edomains column headers?
   $COLUMN_WIDTHS = 8;
  @@ -2268,9 +2274,13 @@
       if ($flag eq "Re" || ($flag eq "=>" && ! /\\sT=\\S+/)) {
         # Correct the IP address for rejects:
         # rejected EHLO from my.test.net [10.0.0.5]: syntactically invalid argument(s):
  -      $ip = $1 if ($ip eq "local" && /^rejected [HE][HE]LO from .*? (\[.+?\]):/);
  +      # rejected EHLO from [10.0.0.6]: syntactically invalid argument(s):
  +      $ip = $1 if ($ip eq "local" && /^rejected [HE][HE]LO from .*?(\[.+?\]):/);
         ++$rejected_count_by_ip{$ip};
  -      if (
  +      if (/SpamAssassin/) {
  +        ++$rejected_count_by_reason{"Rejected by SpamAssassin"};
  +      }
  +      elsif (
           /(listed at [^ ]+)/ ||
           /(Forged IP detected in HELO)/ ||
           /(Invalid domain or IP given in HELO\/EHLO)/ ||