#!/bin/sh
#
# $Id: mailtrfc.sh,v 4.2 1994/02/25 18:17:20 hubert Exp $
#
#            T H E    P I N E    M A I L   S Y S T E M
#
#   Laurence Lundblade and Mike Seibel
#   Networks and Distributed Computing
#   Computing and Communications
#   University of Washington
#   Administration Building, AG-44
#   Seattle, Washington, 98195, USA
#   Internet: lgl@CAC.Washington.EDU
#             mikes@CAC.Washington.EDU
#
#   Please address all bugs and comments to "pine-bugs@cac.washington.edu"
#
#   Copyright 1989-1994  University of Washington
#
#    Permission to use, copy, modify, and distribute this software and its
#   documentation for any purpose and without fee to the University of
#   Washington is hereby granted, provided that the above copyright notice
#   appears in all copies and that both the above copyright notice and this
#   permission notice appear in supporting documentation, and that the name
#   of the University of Washington not be used in advertising or publicity
#   pertaining to distribution of the software without specific, written
#   prior permission.  This software is made available "as is", and
#   THE UNIVERSITY OF WASHINGTON DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED,
#   WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED
#   WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN
#   NO EVENT SHALL THE UNIVERSITY OF WASHINGTON BE LIABLE FOR ANY SPECIAL,
#   INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
#   LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, TORT
#   (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, ARISING OUT OF OR IN CONNECTION
#   WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#  
#   Pine and Pico are trademarks of the University of Washington.
#   No commercial use of these trademarks may be made without prior
#   written permission of the University of Washington.
#
#   Pine is in part based on The Elm Mail System:
#    ***********************************************************************
#    *  The Elm Mail System  -  Revision: 2.13                             *
#    *                                                                     *
#    * 			Copyright (c) 1986, 1987 Dave Taylor               *
#    * 			Copyright (c) 1988, 1989 USENET Community Trust    *
#    ***********************************************************************
# 
#


# 
# mailtrfc.sh -- A shell script to analyze the mail traffic as logged in
# /usr/spool/mqueue/syslog*. This currently as the University of Washington
# domains wired in and needs to be made more general. Also, lots more
# formats of message ID's could be added.
#



org=`awk '/^domain/ {print $2}' < /etc/resolv.conf`
domain=`echo $org | sed -e 's/^[^.]*\.//'`
host=`hostname`".$org"

echo "Domain: $domain"
echo "Organization: $org"
echo "Hostname: $host"

sed -n -e '/message-id/s/^.*</</p' |
awk 'BEGIN {mailers[0] =  "Other";
            mailers[1] =  "Pine";
            mailers[2] =  "MailManager";
            mailers[3] =  "sendmail";
            mailers[4] =  "BITNET";
            mailers[5] =  "? news ?";
            mailers[6] =  "Sprint";
            mailers[7] =  "X.400";
            mailers[8] =  "Mac MS";
            mailers[9] =  "MMDF";
            mailers[10] = "Andrew";
            mailers[11] = "Columbia MM";
            mailers[12] = "Unknown #1";
            mailers[13] = "EasyMail";
            mailers[14] = "CompuServe";
            mailers[15] = "smail";
            mailers[16] = "MCI Mail";
            mailers[17] = "VAX MAIL(?)";
            mailers[18] = "Gator Mail (?)";
            mailers[19] =  "TOTAL";
            max = 19;}
                                      {mailer = 0;}
     /^<Pine/                         {mailer = 1;}
     /^<MailManager/                  {mailer = 2;}
     /^<[12]?[90]?9[0-9]1?[0-9][1-3]?[0-9]+\.[AaBb][AaBb][0-9]+@/ {mailer = 3;}
     /^<[0-9A-Z]+@/                   {mailer = 4;}
     /^<199[0-9][A-Za-z]..[0-9]*\./   {mailer = 5;}
     /@sprint.com/                    {mailer = 6;}
     /\/[A-Z]*=.*\/[A-Z]*=.*/         {mailer = 7;}
     /^<MacMS\.[0-9]+\.[0-9]+\.[a-z]+@/ {mailer = 8;}
     /^<MAILQUEUE-[0-9]+\.[0-9]+/           {mailer = 9;}
     /^<.[d-l][A-Z0-9a-z=_]+00[A-Za-z0-9_=]+@/ {mailer = 10;}
     /^<CMM\.[0-9]+\.[0-9]+\.[0-9]+/    {mailer = 11 ;}
     /^<9[0-9][JFMASOND][aepuco][nbrylgptvc][0-9][0-9]?\.[0-9]+[a-z]+\./ {mailer = 12;}
     /^<EasyMail\.[0-9]+/               {mailer = 13;}
     /@CompuServe.COM/                  {mailer = 14;}
     /^<m[A-Za-z0-9].....-[0-9A-Za-z].....C@/       {mailer = 15;}
     /@mcimail.com/                     {mailer = 16;}
     /^<9[0-9][01][0-9][0-3][0-9][0-2][0-9][0-5][0-9][0-5][0-9].[0-9a-z]*@/ {mailer = 17;}
     /^<0[0-9][0-9]+\.[0-9][0-9][0-9][0-9]+\.[0-9][0-9]+@/ {mailer=18;}

    

     '"/$domain>/"'              {campus[mailer]++; campus[max]++}
     '"/$org>/"'                 {u[mailer]++; u[max]++}
     '"/$host>/"'                {milton[mailer]++; milton[max]++}
                                 {total[mailer]++; total[max]++}
                                 {if(mailer == 0) printf("-->%s\n",$0)}
     END {
            for(m = 0; m <= max; m++)  {
                printf("%-10.10s", mailers[m]);
                printf(" %11d %11d %11d %11d %11d (%3d%%)\n",  milton[m], u[m] - milton[m], campus[m] -u[m], total[m] - campus[m], total[m], (total[m]*100)/total[max]);
            }
            printf(" ----           (%3d%%)      (%3d%%)      (%3d%%)      (%3d%%)\n", (milton[max]*100)/total[max], ((u[max] - milton[max])*100)/total[max], ((campus[max] - u[max])*100)/total[max], ((total[max] - campus[max])*100)/total[max], (u[max]*100)/total[max]);

        }' > /tmp/syslogx.$$


echo $host $org $domain | \
  awk '{printf("     %.17s %.11s %.11s  Off Campus        Total\n", $1, $2, $3)}'
egrep -v 'TOTAL|----|^-->' /tmp/syslogx.$$ | sort +0.60rn 
egrep  'TOTAL|----' /tmp/syslogx.$$
grep  '^-->' /tmp/syslogx.$$ | sed -e 's/-->//' > other-traffic
rm -f /tmp/syslogx.$$


