home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / ssl < prev    next >
Encoding:
Text File  |  1991-03-10  |  3.9 KB  |  174 lines
  1. #!/usr/local/bin/perl
  2. #
  3. #    original by Tom Christiansen <tchrist@convex.com>
  4. #
  5. #    Paul O'Neill
  6. #    Coastal Imaging Lab
  7. #    Oregon State University
  8. #
  9. #    18 jun 90
  10. #    fix various bugs
  11. #    add sorted output
  12. #
  13. # summarize sendmail syslog
  14. #
  15. # flags mean:
  16. #
  17. #    -o    outbound mail only
  18. #    -i    inbound  mail only
  19. #    -t    suppress printing of totals
  20. #    -e     print strange lines to stderr
  21. #    -m    reduce to local mbox is possible
  22.  
  23. ($program = $0) =~ s%.*/%%;
  24.  
  25.  
  26. while ($ARGV[0] =~ /^-/) {
  27.     $ARGV[0] =~ s/^-//; 
  28.     foreach $flag ( split (//,$ARGV[0]) ) {
  29.     if ( 'oitem' !~ /$flag/ ) {
  30.         printf stderr "unknown flag: %s\n", $flag;
  31.         die "usage: $program [-oitem] [syslog_file ...]\n";
  32.     } 
  33.     die "$0: '$flag' flag already set\n" if ($flags{$flag}++);
  34.     } 
  35.     shift;
  36. }
  37.  
  38. if ( !$flags{'o'} && !$flags{'i'} && !$flags{'t'}) {
  39.     $flags{'o'}++;
  40.     $flags{'i'}++;
  41. } 
  42.  
  43. do hash_passwd() if $flags{'m'};
  44.  
  45. while (<>) {
  46.     if (/: [A-Z][A-Z](\d+): from=(.*), size=(\d+)/) {
  47. #    next unless $flags{'t'} || $flags{'o'};
  48.     ($id, $user, $size) = ($1, $2, $3);
  49. #print "$user\n";
  50.     $user =~ s/.*<(.*)>/$1/;        # get rid of <>
  51. #print "$user\n";
  52.     $user =~ tr/A-Z/a-z/;            # canonical lc
  53. #print "$user\n";
  54.  
  55.     if ($flags{'m'}) {
  56.         $ouser = $user;
  57. #print "    $user\n";
  58.         $user = do strip($user);
  59. #print "     $user\n";
  60.         $user = $ouser if ! $known{$user};
  61. #print "      $user\n";
  62. #print "      $known{$user}\n";
  63.     }
  64.  
  65.     $from_user_size{$user} += $size;
  66.     $id_size{$id} = $size;
  67.     $from_user_count{$user}++;
  68.     $total_from++;
  69.     } elsif (/: [A-Z][A-Z](\d+): to=(.*), delay=/) {
  70. #    next unless $flags{'t'} || $flags{'i'};
  71.     $id = $1;
  72.     for (split(/,/, $2)) {
  73.         s/.*<(.*)>/$1/;
  74. #        $to = $flags{'m'} ? do strip($_) : $_;
  75.         $to = $_;
  76.         if ($flags{'m'}) {
  77.         $oto = $to;
  78. #print "        $to\n";
  79.         $to = do strip($to);
  80. #print "         $to\n";
  81.         $to = $oto if ! $known{$to};
  82. #print "          $to\n";
  83. #print "          $known{$to}\n";
  84.         }
  85.         $to =~ tr/A-Z/a-z/;
  86. #        printf "adding %d bytes to %s from %s\n",
  87.         $id_size{$id},$to,$user; 
  88.         if (!$to) {
  89.         die "to no one: $_\n";
  90.  
  91.         } 
  92.         $to_user_size{$to} += $id_size{$id};
  93.         $to_user_count{$to}++;
  94.         $total_to++;
  95.     } 
  96.     } else {
  97.     study;
  98.     next if /message-id/;
  99.     next if /locked/;
  100.     next if /alias database (auto|)rebuilt/;
  101.     #next if /aliases/;
  102.     next if /rebuilding alias database/;
  103.     print stderr if $flags{'e'};
  104.     $errors++;
  105.     } 
  106. } 
  107.  
  108. printf stderr "Error lines: %d\n", $errors if $errors && ($flags{'e'}) && !($flags{'t'});
  109.  
  110.  
  111. if ($flags{'i'}) {
  112.     printf "To: %d\n", $total_to unless $flags{'t'};;
  113.  
  114.     @loop = keys(to_user_size);
  115.     foreach $user (sort tosort @loop) {
  116.     printf "%4d message%s %7d bytes %s\n",
  117.         $to_user_count{$user}, 
  118.         $to_user_count{$user} != 1 ? "s" : " ",
  119.         $to_user_size{$user}, 
  120.         $user;
  121.     } 
  122. }
  123.  
  124.  
  125. if ($flags{'o'}) {
  126.     printf "From: %d\n", $total_from unless $flags{'t'};;
  127.  
  128.     @loop = keys(from_user_size);
  129.     foreach $user (sort fromsort @loop) {
  130.     printf "%4d message%s %7d bytes %s\n",
  131.         $from_user_count{$user}, 
  132.         $from_user_count{$user} != 1 ? "s" : " ",
  133.         $from_user_size{$user}, 
  134.         $user;
  135.     } 
  136. }
  137.  
  138. sub tosort {
  139.     ($to_user_count{$b} - $to_user_count{$a})* 10000000 + $to_user_size{$b} - $to_user_size{$a};
  140. }
  141.  
  142. sub fromsort {
  143.     ($from_user_count{$b} - $from_user_count{$a}) * 10000000 + $from_user_size{$b} -$from_user_size{$a};
  144. }
  145.  
  146. sub strip {
  147.     local($foo) = shift(@_);
  148. #print "$foo\n";
  149.     
  150.     $foo =~ s/@.*//;
  151.     $foo =~ s/.*!//;
  152.     $foo =~ s/\s*\(.*\)//;
  153.     $foo =~ tr/A-Z/a-z/;
  154.  
  155.     return $foo;
  156. } 
  157.  
  158. sub hash_passwd {
  159.     chop($yp = `/bin/domainname`) if -x '/bin/domainname';
  160.     $passwd = $yp ? 'ypcat passwd |' : '/etc/passwd';
  161.     open passwd || die "$program: can't open $passwd: $!\n";
  162.     while (<passwd>) {
  163.     /^(\w+):[^:]+:(\d+):.*/;
  164.     ($who,$uid) = ($1, $2);
  165. #    $uid = 'zero' if ! $uid;  # kludge for uid 0
  166.     $uid = 'zero' if ($uid == 0) && $who;
  167. #    $uid = 'zero' if defined($uid);
  168.     $known{$who} = $uid;
  169. #print "$who $uid        $known{$who}\n";
  170.     } 
  171.     close passwd;
  172. #print "SPECIEALLLL -- $known{''}\n";
  173. } 
  174.