home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-osu / ssl < prev    next >
Encoding:
Internet Message Format  |  1989-10-26  |  4.2 KB
  1. Path: tut.cis.ohio-state.edu!mailrus!wuarchive!texbell!texsun!convex!convex.com!tchrist
  2. From: tchrist@convex.com (Tom Christiansen)
  3. Newsgroups: alt.sources
  4. Subject: sendmail syslog summarizer
  5. Keywords: accounting, sendmail, syslog, perl
  6. Message-ID: <1641@convex.UUCP>
  7. Date: 31 Aug 89 12:16:59 GMT
  8. Sender: news@convex.UUCP
  9. Reply-To: tchrist@convex.com (Tom Christiansen)
  10. Organization: Convex Computer Corporation, Richardson, Tx.
  11. Lines: 153
  12.  
  13. This is in response to article <848@radig.UUCP> by 
  14. peter@radig.UUCP (Peter Radig) in comp.mail.sendmail
  15. and comp.sources.wanted, who wanted: 
  16.  
  17. >is there any public domain accounting package for the sendmail kit?
  18. >I need it for charging my users against their outgoing mail.
  19.  
  20. I whipped together a quick perl script to do this.  I call it ssl.  It
  21. will summarize both incoming and outgoing mail by user according to
  22. bytes transferred and also according to message count.  It has some
  23. remedial address parsing to try to determine the person's mbox part of
  24. the address, This is the first crude attempt, but it works.  Things yet
  25. to do include:
  26.  
  27.     write a man page
  28.     merge some of the common To: and From: code
  29.         by using multi-dimensional arrays
  30.     add sorting options
  31.     add more intelligence to address parsing
  32.  
  33. --tom
  34.  
  35. #!/usr/local/bin/perl
  36. #
  37. # summarize sendmail syslog
  38. #
  39. # flags mean:
  40. #
  41. #    -o    outbound mail only
  42. #    -i    inbound  mail only
  43. #    -t    suppress printing of totals
  44. #    -e     print strange lines to stderr
  45. #    -m    reduce to local mbox is possible
  46.  
  47. ($program = $0) =~ s%.*/%%;
  48.  
  49.  
  50. while ($ARGV[0] =~ /^-/) {
  51.     $ARGV[0] =~ s/^-//; 
  52.     foreach $flag ( split (//,$ARGV[0]) ) {
  53.     if ( 'oitem' !~ /$flag/ ) {
  54.         printf stderr "unknown flag: %s\n", $flag;
  55.         die "usage: $program [-oitem] [syslog_file ...]\n";
  56.     } 
  57.     die "$0: '$flag' flag already set\n" if ($flags{$flag}++);
  58.     } 
  59.     shift;
  60. }
  61.  
  62. if ( !$flags{'o'} && !$flags{'i'} && !$flags{'t'}) {
  63.     $flags{'o'}++;
  64.     $flags{'i'}++;
  65. } 
  66.  
  67. do hash_passwd() if $flags{'m'};
  68.  
  69. while (<>) {
  70.     if (/: [A-Z][A-Z](\d+): from=(.*), size=(\d+)/) {
  71.     next unless $flags{'t'} || $flags{'o'};
  72.     ($id, $user, $size) = ($1, $2, $3);
  73.     $user =~ s/.*<(.*)>/$1/;
  74.  
  75.     if ($flags{'m'}) {
  76.         $ouser = $user;
  77.         $user = do strip($user);
  78.         $user = $ouser if ! $known{$user};
  79.     }
  80.  
  81.     $from_user_size{$user} += $size;
  82.     $id_size{$id} = $size;
  83.     $from_user_count{$user}++;
  84.     $total_from++;
  85.     } elsif (/: [A-Z][A-Z](\d+): to=(.*), delay=/) {
  86.     next unless $flags{'t'} || $flags{'i'};
  87.     $id = $1;
  88.     for (split(/,/, $2)) {
  89.         s/.*<(.*)>/$1/;
  90.         $to = $flags{'m'} ? do strip($_) : $_;
  91.         printf "adding %d bytes to %s from %s\n",
  92.         $id_size{$id},$to,$id; 
  93.         if (!$to) {
  94.         die "to no one: $_\n";
  95.  
  96.         } 
  97.         $to_user_size{$to} += $id_size{$id};
  98.         $to_user_count{$to}++;
  99.         $total_to++;
  100.     } 
  101.     } else {
  102.     study;
  103.     next if /message-id/;
  104.     next if /locked/;
  105.     next if /alias database (auto|)rebuilt/;
  106.     #next if /aliases/;
  107.     next if /rebuilding alias database/;
  108.     print stderr if $flags{'e'};
  109.     $errors++;
  110.     } 
  111. } 
  112.  
  113. printf stderr "Error lines: %d\n", $errors if $errors && ($flags{'e'}) && !($flags{'t'});
  114.  
  115.  
  116. if ($flags{'i'}) {
  117.     printf "To: %d\n", $total_to unless $flags{'t'};;
  118.     foreach $user ( keys(to_user_size) ) {
  119.     printf "%4d message%s %7d bytes %s\n",
  120.         $to_user_count{$user}, 
  121.         $to_user_count{$user} != 1 ? "s" : " ",
  122.         $to_user_size{$user}, 
  123.         $user;
  124.     } 
  125. }
  126.  
  127.  
  128. if ($flags{'o'}) {
  129.     printf "From: %d\n", $total_from unless $flags{'t'};;
  130.     foreach $user ( keys(from_user_size) ) {
  131.     printf "%4d message%s %7d bytes %s\n",
  132.         $from_user_count{$user}, 
  133.         $from_user_count{$user} != 1 ? "s" : " ",
  134.         $from_user_size{$user}, 
  135.         $user;
  136.     } 
  137. }
  138.  
  139. sub strip {
  140.     $_ = @_;
  141.     
  142.     s/@.*//;
  143.     s/.*!//;
  144.     s/\s*\(.*\)//;
  145.     tr/A-Z/a-z/;
  146.  
  147.     return $_;
  148. } 
  149.  
  150. sub hash_passwd {
  151.     chop($yp = `/bin/domainname`) if -x '/bin/domainname';
  152.     $passwd = $yp ? 'ypcat passwd |' : '/etc/passwd';
  153.     open passwd || die "$program: can't open $passwd: $!\n";
  154.     while (<passwd>) {
  155.     /^(\w+):[^:]+:(\d+):.*/;
  156.     ($who,$uid) = ($1, $2);
  157.     $uid = 'zero' if ! $uid;  # kludge for uid 0
  158.     $known{$who} = $uid;
  159.     } 
  160.     close passwd;
  161. } 
  162.  
  163.     Tom Christiansen                       {uunet,uiucdcs,sun}!convex!tchrist 
  164.     Convex Computer Corporation                            tchrist@convex.COM
  165.          "EMACS belongs in <sys/errno.h>: Editor too big!"
  166.  
  167.