Select Code to Download

Select or download this

# Define our buckets for collecting data
my %bucket  = ();
my %USER    = ();
my %VIRUS   = ();
my %SPAM    = ();

Select or download this


# These numbers must be valid reason codes...
my @wanted = ( 1, 60 );

Select or download this
```
for (<$file>)
```
Select or download this
```
while ( <$file> )
```

Select or download this


    chomp;    
...
    my ( $month, $day, $time, $host,
         $process, $clientIP, $MessageID,
         $timeStart, $timeEnd, $service, @INFO ) = split /\s+/;

Select or download this

my ( undef, undef, undef, $host, undef, undef, undef, undef, undef, $s
+ervice, @INFO ) = split;

Select or download this


        $USER{$host}{$recip}{$action{$service}{$action_}}{$reason{$rea
+son_}}{'count'}++;
            #if ( grep /^$reason_$/, @wanted );

Select or download this

        $USER{$host}{$recip}{$action{$service}{$action_}}{$reason{$rea
+son_}}{'count'}++;
            #if exists $wanted{ $reason_ };