Changeset 624


Ignore:
Timestamp:
Oct 18, 2011, 2:47:52 PM (9 years ago)
Author:
ben
Message:

removing @probes and s/ci_connect_int/ci_connect_mx, see #28

File:
1 edited

Legend:

Unmodified
Added
Removed
  • postfix-logtools/poststat/poststat

    r539 r624  
    2727use Getopt::Long;
    2828
    29 my @probes = qw/
    30   ci_connect
    31   ci_connect_int
    32   ci_connect_ext
    33   ci_connect_local
    34   ce_ok
    35   ce_proto_error
    36   ce_ssl_error
    37   ce_helo_not_fqdn
    38   ce_helo_no_dns
    39   ce_blacklist
    40   ce_psbl
    41   ce_sorbs
    42   ce_spamhaus
    43   ce_timeout
    44   ce_hangup
    45   mi_size
    46   mi_count
    47   mo_delivered
    48   me_no_relay
    49   me_no_target
    50   me_sender_not_fqdn
    51   me_sender_no_dns
    52   me_no_target
    53 /;
    54 my %stat;
     29my %stat = (
     30  ci_connect         => 0,
     31  ci_connect_ext     => 0,
     32  ci_connect_lan     => 0,
     33  ci_connect_local   => 0,
     34  ci_connect_mx      => 0,
     35  ce_blacklist       => 0,
     36  ce_hangup          => 0,
     37  ce_helo_no_dns     => 0,
     38  ce_helo_not_fqdn   => 0,
     39  ce_ok              => 0,
     40  ce_proto_error     => 0,
     41  ce_psbl            => 0,
     42  ce_sorbs           => 0,
     43  ce_spamhaus        => 0,
     44  ce_ssl_error       => 0,
     45  ce_timeout         => 0,
     46  me_no_relay        => 0,
     47  me_no_target       => 0,
     48  me_sender_no_dns   => 0,
     49  me_sender_not_fqdn => 0,
     50  mi_count           => 0,
     51  mi_size            => 0,
     52  mo_delivered       => 0,
     53  me_no_target       => 0,
     54);
    5555my @backupmx;
    56 GetOptions("backup-mx=s{,}" => \@backupmx);
    57 $stat{ci_connect_int} = 0;
     56my @lanservers;
     57GetOptions(
     58  "backup-mx=s{,}" => \@backupmx,
     59  "lan-servers=s{,}" => \@lanservers
     60);
    5861
    5962while (<STDIN>) {
     
    6669    if (@backupmx) {
    6770        foreach my $mx (@backupmx) {
    68             $stat{ci_connect_int}++,      next if /^connect from $mx/;
     71            $stat{ci_connect_mx}++,      next if /^connect from $mx/;
    6972        }
     73    }
     74    if (@lanservers) {
     75         foreach my $lan (@lanservers) {
     76            $stat{ci_connect_lan}++,      next if /^connect from $lan/;
     77        }
    7078    }
    7179    $stat{ci_connect_local}++,   next if /^connect from localhost/;
Note: See TracChangeset for help on using the changeset viewer.