#!/usr/bin/perl

# sendmail_stats Version 0.03
# (c) 2000 Jeremy C. Reed
# last updated 7/Mar/2000
# this is free, but use at your own risk

## still needs a lot of work; it is probably only 10 percent finished
## and about 90 percent of this code needs to be rewritten.

# use like in your crontab:
#30 5 * * *      nobody /usr/contrib/bin/gunzip -c /var/log/maillog.0.gz |\
# /usr/local/bin/sendmail_stats | /usr/bin/mail -s "sendmail stats" postmaster

#CHANGES
#10/Mar/2000
# Changed scale for dots
#8/Mar/2000
# Fixed bug where the dots wrapped around screen
#7/Mar/2000
# Fixed bug where only 10 am and later hours showed stats

$top_amt = 20;

## MAIN routine

while ($line = <>) {

# sample data
#Mar  6 20:34:53 mail sendmail[25508]: UAA25508: from=<prgroop-owner-cypress=postalzone.com@cyberhomestead.com>, size=1394, class=-60, pri=139394, nrcpts=1, msgid=<01BF87B2.98738820.alan@alan.net>, proto=SMTP, relay=qmailr@[209.19.164.76]
#Mar  6 20:34:53 mail sendmail[25512]: UAA25508: to=<cypress@postalzone.com>, delay=00:00:01, xdelay=00:00:00, mailer=local, stat=Sent

  if ($line =~ 
   /^(\w+)\s+(\d+)\s(\d+):(\d+:\d+)\s+(\w+)\s+(\w+)\[(\d+)\]:\s(.*):\s(.+)$/) {

    $month = $1;
    $day = $2;
    $hour = $3;
    $min_sec = $4;
    $user = $5;
    $daemon = $6;
    $pid = $7;
    $id = $8;
    $data = $9;

    if ($daemon eq 'sendmail') {

      if ($data =~ /from\=\<(.+)\>\,\ssize\=/) {
        $from = $1;
        $senders{$from}++;

        if ($data =~ /size\=(\d+)\,\s/) {
          $size = $1;
          $sizes{$id} += $size; 
          $total_size += $size;
        }

        if ($data =~ /relay\=(.+)[$:]/) {
          $relay = $1;
          $sending_hosts{$relay}++;
        }

      }
      elsif ($data =~ /to\=[<"](.+)[>"]\,\s/) {
## needs to also match no quotes or no angle brackets
        $to = $1;

        if ($data =~ /mailer\=(.+)\,\s/) {
          $mailer = $1;
          if ($mailer eq "local") {
            $local_size += $sizes{$id};
            delete ($sizes{$id});
            $received_messages++;
            $local_deliveries{$to}++;
          }
          elsif ($mailer =~ /smtp/i) {
            $delivered_messages++;

            if ($data =~ /relay\=(.+)\,\sstat\=/) {
              $relay = $1;
              $destination_hosts{$relay}++;
            }

          }

        }
      }

      $months{$month}++;
      $days{$day}++;
      $hours{$hour}++;
      $total++;
    }
  }
}

print <<END_OF_DATA;
Sendmail log analysis

Total bytes transferred: $total_size
Total bytes In: $local_size
Messages Out: $delivered_messages
Messages In: $received_messages

Messages per hour
_________________
END_OF_DATA
$scale = $total / 75;
for ($i = 0; $i < 24; $i++) {
#  print "$i: $hours{$i}\t";
  if ($i < 10) { $i = "0$i"; }
  printf("%3d: %6d %s\n", $i, $hours{$i}, "." x ($hours{$i}/$scale));
}

&show_sending_hosts;
&show_destination_hosts;
&show_local_deliveries;
&show_senders;

print "\n";

## end

sub show_sending_hosts {
  $count = 0;
  print "\nTop $top_amt Sending Hosts\n____________________\n";

  foreach $key (sort {
                  $sending_hosts{$b} <=> $sending_hosts{$a} }
                keys %sending_hosts) {
    $count++;
    if ($count <= $top_amt) {
      print "$sending_hosts{$key}\t$key\n";
    }
    $total_sending_hosts++;
    $total_sending_host_messages += $sending_hosts{$key};
  }

  print "\n$total_sending_hosts sending hosts attempted $total_sending_host_messages messages\n"; 
} # show_sending_hosts

sub show_destination_hosts {
  $count = 0;
  print "\nTop $top_amt Destination Hosts\n________________________\n";

  foreach $key (sort {
                  $destination_hosts{$b} <=> $destination_hosts{$a} }
                keys %destination_hosts) {
    $count++;
    if ($count <= $top_amt) {
      print "$destination_hosts{$key}\t$key\n";
    }
    $total_destination_hosts++;
    $total_destination_host_messages += $destination_hosts{$key};
  }

  print "\n$total_destination_hosts destination hosts received $total_destination_host_messages messages\n"; 

} # show_destination_hosts

sub show_local_deliveries {
  $count = 0;
  print "\nTop $top_amt Local Deliveries\n_______________________\n";

  foreach $key (sort {
                  $local_deliveries{$b} <=> $local_deliveries{$a} }
                keys %local_deliveries) {
    $count++;
    if ($count <= $top_amt) {
      print "$local_deliveries{$key}\t$key\n";
    }
    $local_accounts++;
  }
  print
 "\n$local_accounts local accounts received mail ($received_messages messages combined).\n";

} # show_local_deliveries

sub show_senders {
  $count = 0;
  print "\nTop $top_amt Senders\n______________\n";

  foreach $key (sort {
                  $senders{$b} <=> $senders{$a} }
                keys %senders) {
    $count++;
    if ($count <= $top_amt) {
      print "$senders{$key}\t$key\n";
    }
    $total_senders++;
    $total_senders_messages += $senders{$key}; 
  }
  print
 "\n$total_senders senders sent a combined $total_senders_messages messages.\n";

} # show_senders

sub show_data {

  print <<END_OF_DATA;
$month $day $hour $min_sec 
$user $daemon
$pid pid
$id
$data

END_OF_DATA

} #show data