home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5479 < prev    next >
Encoding:
Internet Message Format  |  1992-08-25  |  23.3 KB
  1. Xref: sparky comp.lang.perl:5479 comp.mail.sendmail:2142
  2. Newsgroups: comp.lang.perl,comp.mail.sendmail
  3. Path: sparky!uunet!cis.ohio-state.edu!magnus.acs.ohio-state.edu!usenet.ins.cwru.edu!eagle!sandman.lerc.nasa.gov!drich
  4. From: drich@sandman.lerc.nasa.gov (Daniel Rich)
  5. Subject: SCRIPT: perl sendmail utilities
  6. Message-ID: <1992Aug25.212550.10384@eagle.lerc.nasa.gov>
  7. Summary: log parsing and alias verification in perl
  8. Keywords: sendmail,perl
  9. Sender: news@eagle.lerc.nasa.gov
  10. Nntp-Posting-Host: sandman.lerc.nasa.gov
  11. Organization: NASA Lewis Research Center [Cleveland, Ohio]
  12. Date: Tue, 25 Aug 1992 21:25:50 GMT
  13. Lines: 734
  14.  
  15.  
  16. As a thank you to all of the people who have helped me with my
  17. perl/sendmail questions over the last couple of weeks, I am posting
  18. the scripts that have resulted.  These are two utilities that I have
  19. needed for some time, and I want to thank everyone who was helpful in
  20. their creating.
  21.  
  22. First of all, we have a script for parsing the sendmail syslog.  I
  23. have had several occasions where managers have asked me if people are
  24. using e-mail to communicate, or asked how much of the e-mail was being
  25. sent off site.  This script will take a syslog file, and output a mail
  26. summary including the total use statistics, and a summary by user and
  27. host (anything within your domain is defined as "local").  In order to
  28. run it, you will  need to change the $local_domain line, and either
  29. change the $systype to match your system (no guarantees that this will
  30. work :-), or hardcode the value for $MAILLOG (the name of your syslog
  31. output file for sendmail).
  32.  
  33. The second script will validate user mail ids/aliases.  It should work
  34. as-is, and will accept the following command line options:
  35.     -n - noresolv: don't resolve to a local address
  36.     -s - short output format (don't print "real name" and <>)
  37.     -v - verbose output
  38. It will find mail loops, expand mailing lists, and resolve all
  39. addresses down to a local delivery (at least, what sendmail thinks is
  40. local).  If it gets an unknown hostname from the host in the address,
  41. it will attempt to find an MX record for that host, and try that.
  42. This may produce unexpected mail loop messages, however; I haven't
  43. come up with a good way of handling some of the MX hosts.  Also, you
  44. may occasionally get a mail loop message if the same user is used
  45. twice (ie. using addrcheck drich@lerc.nasa.gov drich@lerc.nasa.gov
  46. will print a loop message for the second address).  This is a bug, but
  47. the loop checking is rather simplistic at this stage.
  48.  
  49. Please let me know if you find these scripts useful, and I would
  50. appreciate hearing of any suggestions/modifications you might have.
  51.  
  52. Just cut on the dotted lines below, and enjoy!
  53.  
  54. -- 
  55. Dan Rich                    | drich@lerc.nasa.gov   |  (216) 433-4000
  56. Sr. Systems Engineer        | "Danger, you haven't seen the last of me!"
  57. RMS Technologies, Inc.      |    "No, but the first of you turns my stomach!"
  58. NASA Lewis Research Center  | -- The Firesign Theatre's Nick Danger
  59.  
  60.  
  61. 8<- sm.logger ------------------ Cut Here ------------------------------>8
  62. #! /usr/local/bin/perl
  63. # $Id: sm.logger,v 1.3 92/08/25 16:00:34 drich Exp Locker: drich $
  64. #
  65. # Copyright (C) 1992  Daniel Rich
  66. #
  67. # Author: Daniel Rich (drich@lerc.nasa.gov)
  68. #
  69. # This program is free software; you can redistribute it and/or modify
  70. # it under the terms of the GNU General Public License as published by
  71. # the Free Software Foundation; either version 1, or (at your option)
  72. # any later version.
  73. #
  74. # This program is distributed in the hope that it will be useful,
  75. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  76. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  77. # GNU General Public License for more details.
  78. #
  79. # A copy of the GNU General Public License can be obtained from this
  80. # program's author (send electronic mail to ange@hplb.hpl.hp.com) or from
  81. # the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
  82. # 02139, USA.
  83. #
  84. # sm.logger - parse the sendmail log and produce a summary
  85. #
  86. # $Log:    sm.logger,v $
  87. # Revision 1.3  92/08/25  16:00:34  drich
  88. # Fixed divide by zero error if no mail either delivered or sent.
  89. # 
  90. # Revision 1.2  92/08/05  14:03:14  drich
  91. # Replaced '=' with '-' in output report
  92. # 
  93. # Revision 1.1  92/07/22  16:36:54  drich
  94. # Logfile processor for sendmail
  95. #
  96. #
  97. # Written by Dan Rich - drich@lerc.nasa.gov
  98. #     Wed July 22, 1992
  99. #
  100.  
  101. # Change the following for the appropriate system type.
  102. $systype = "SGI";        # Valid are Ultrix, Sun, SGI, RS6000
  103.  
  104. # Change the following to the local sendmail domain
  105. $local_domain = "lerc.nasa.gov";
  106.  
  107. LOOP: {
  108.     if ( $systype eq "SGI")    { $MAILLOG = "/usr/adm/SYSLOG"; 
  109.                  last LOOP; }
  110.     if ( $systype eq "Ultrix") { $MAILLOG = "/usr/spool/mqueue/syslog";
  111.                  last LOOP; }
  112.     if ( $systype eq "Sun")    { $MAILLOG = "/var/adm/messages";
  113.                  last LOOP; }
  114.     if ( $systype eq "RS6000") { $MAILLOG = "/var/adm/messages";
  115.                  last LOOP; }
  116.     print "This script does not support the system type: $systype"; exit(1);
  117. }
  118.  
  119. sub parse_mail_addr {
  120.     local($addr) = @_;
  121.     # Attempt to parse an address down to an *originating* user and host.
  122.     # Assume the address takes one of the following forms:
  123.     #     user@host.domain
  124.     #     host!host!host!user
  125.     #     host!host!host!user@host.domain
  126.     #      @host.domain:user@host.domain
  127.  
  128.     $user = "";
  129.     $host = "";
  130.     $domain = "";
  131.  
  132.     # Get rid of <> in address
  133.     $addr =~ s/\<//g;
  134.     $addr =~ s/\>//g;
  135.  
  136.     # Get rid of (Real Name)
  137.     $addr =~ s/\(.*\)//;
  138.  
  139.     # Strip spaces
  140.     $addr =~ s/ //g;
  141.  
  142.     # Split user and host
  143.     if ( $addr =~ /[@!]/ ) {        # If we have and @ or ! address
  144.         if ( (($user,$host) = ($addr =~ /@.*:(.*)@(.*)/ )) || 
  145.          (($user,$host) = ($addr =~ /(.*)@(.*)/ )) ) {
  146.             if ( $user =~ /!/ ) {
  147.             ( $host, $user ) = ( $user =~ /([^!]*)!([^!]*)$/ );
  148.             }
  149.         } else {            # Ok, it is uucp format
  150.             if ( $addr =~ /!/ ) {
  151.             ( $host, $user ) = ( $addr =~ /([^!]*)!([^!]*)$/ );
  152.             }
  153.         }
  154.     } else {                # This had better be local...
  155.         $user = $addr;
  156.     $host = "";
  157.     $domain = "";
  158.     }
  159.  
  160.     # Split host and domain
  161.     if ( $host =~ /\./ ) {
  162.         ($host,$domain) = ( $host =~ /([^.]*)\.(.*)/ );
  163.     }
  164.  
  165.     return ($user, $host, $domain);
  166. }
  167.  
  168. sub format_addr {
  169.     local($username, $host, $domain) = @_;
  170.  
  171.     $addr = "";
  172.     $username =~ tr/A-Z/a-z/;
  173.     $host =~ tr/A-Z/a-z/;
  174.     $domain =~ tr/A-Z/a-z/;
  175.  
  176.     if ((length($domain) != 0) && ($domain ne $local_domain)) {
  177.         $addr = $username. "@" . $host . "." . $domain;
  178.     } elsif (length($host) != 0 ) {
  179.     $addr = $username. "@" . $host;
  180.     } else {
  181.         $addr = $username;
  182.     }
  183.     return $addr;
  184. }
  185.  
  186. sub format_host {
  187.     local($host, $domain) = @_;
  188.  
  189.     $addr = "";
  190.     $host =~ tr/A-Z/a-z/;
  191.     $domain =~ tr/A-Z/a-z/;
  192.  
  193.     if (($domain eq $local_domain) || 
  194.     (($host . "." . $domain) eq $local_domain) ||
  195.     (length($domain) == 0)) {
  196.         $addr = "local";
  197.     } else {
  198.         $addr = $host . "." . $domain;
  199.     }
  200.     return $addr;
  201. }
  202.  
  203. open MAILLOG || die "failed to open log file: $!\n";
  204.  
  205. $start_date = "";
  206. $start_time = "";
  207.  
  208. while ( <MAILLOG> ) {
  209.     $line = "";
  210.     ( $systype eq "SGI" ) && ( /sendmail\[[0-9]*\]:/ && ($line = $_) );
  211.     ( $systype eq "Ultrix") && ( /sendmail:/ && ($line = $_) );
  212.     if ( length($line) == 0 ) {
  213.     next;
  214.     }
  215.  
  216.     if ( length($start_date) == 0 ) {
  217.         ($start_date, $start_time) = 
  218.         ($line =~ /^([A-Z][a-z]* *[0-9]*) ([0-9][0-9]:[0-9][0-9]:[0-9][0-9])/);
  219.     }
  220.     ($end_date, $end_time) = 
  221.     ($line =~ /^([A-Z][a-z]* *[0-9]*) ([0-9][0-9]:[0-9][0-9]:[0-9][0-9])/);
  222.     
  223.     if (($ID, $addr) = ($line =~/: ([A-Za-z0-9]*): to=(.*), delay/)) {
  224.         if ( $line =~ /stat=Sent/ ) {
  225.             foreach $taddr (split(/,/, $addr)) {
  226.                 ($username, $host, $domain) = &parse_mail_addr($taddr);
  227.                 $user = &format_addr($username, $host, $domain);
  228.                 $host = &format_host($host, $domain);
  229.                 $userlist{$user} = 1;
  230.                 $delivered{$user} .= $ID . ' ';
  231.                 $hostlist{$host} = 1;
  232.                 $delivered{$host} .= $ID . ' ';
  233.                 # Check if it was deferred
  234.                 $IDlist = $deferred{$user};
  235.                 foreach $tID (split(/ /, $IDlist)) {
  236.                     if ( $tID == $ID ) {
  237.                         $deferred{$user} =~ s/$ID //g;
  238.                     }
  239.                 }
  240.                 $IDlist = $deferred{$host};
  241.                 foreach $tID (split(/ /, $IDlist)) {
  242.                     if ( $tID == $ID ) {
  243.                         $deferred{$host} =~ s/$ID //g;
  244.                     }
  245.                 }
  246.             }
  247.         } elsif ( $line =~ /stat=Deferred/ ) {
  248.             foreach $taddr (split(/,/, $addr)) {
  249.                 ($username, $host, $domain) = &parse_mail_addr($taddr);
  250.                 $user = &format_addr($username, $host, $domain);
  251.                 $host = &format_host($host, $domain);
  252.                 $userlist{$user} = 1;
  253.                 $hostlist{$host} = 1;
  254.                 # Check if it was deferred earlier
  255.                 $IDlist = $deferred{$user};
  256.         $IDdeferred = 0;
  257.                 foreach $tID (split(/ /, $IDlist)) {
  258.                     if ( $tID == $ID ) {
  259.                         $IDdeferred = 1;
  260.                     }
  261.                 }
  262.         if ( $IDdeferred == 0 ) {$deferred{$user} .= $ID . ' ';}
  263.                 $IDlist = $deferred{$host};
  264.         $IDdeferred = 0;
  265.                 foreach $tID (split(/ /, $IDlist)) {
  266.                     if ( $tID == $ID ) {
  267.                         $IDdeferred = 1;
  268.                     }
  269.                 }
  270.         if ( $IDdeferred == 0 ) {$deferred{$host} .= $ID . ' ';}
  271.             }
  272.         } else {
  273.             foreach $taddr (split(/,/, $addr)) {
  274.                 ($username, $host, $domain) = &parse_mail_addr($taddr);
  275.                 $user = &format_addr($username, $host, $domain);
  276.                 $host = &format_host($host, $domain);
  277.                 $IDlist = $deferred{$user};
  278.                 foreach $tID (split(/ /, $IDlist)) {
  279.                     if ( $tID == $ID ) {
  280.                         $deferred{$user} =~ s/$ID //g;
  281.                         last;
  282.                     }
  283.                 }
  284.                 $IDlist = $deferred{$host};
  285.                 foreach $tID (split(/ /, $IDlist)) {
  286.                     if ( $tID == $ID ) {
  287.                     $deferred{$host} =~ s/$ID //g;
  288.                         last;
  289.                     }
  290.                 }
  291.             }
  292.         }
  293.     }
  294.     if (($ID, $addr, $size) = ($line =~/: ([A-Za-z0-9]*): from=(.*), size=([0-9]*)/)) {
  295.         ($username, $host, $domain) = &parse_mail_addr($addr);
  296.         $user = &format_addr($username, $host, $domain);
  297.     $host = &format_host($host, $domain);
  298.         $userlist{$user} = 1;
  299.         $sent{$user} .= $ID . ' ';
  300.         $hostlist{$host} = 1;
  301.         $sent{$host} .= $ID . ' ';
  302.         $size{$ID} = $size;
  303.     }
  304. }
  305.  
  306. printf ("\n\n\t\t\tSendmail activity report\n");
  307. printf ("Starting: %s %s\n",$start_date,$start_time);
  308. printf ("Ending: %s %s\n",$end_date,$end_time);
  309.  
  310. #
  311. # User statistics
  312. $totsent = 0;
  313. $totdelivered = 0;
  314. $totpctsent =0;
  315. $totpctdelivered = 0;
  316. $countsent = 0;
  317. $countdelivered = 0;
  318. $countdeferred = 0;
  319. foreach $user (sort keys(%userlist)) {
  320.     $totsent{$user} = 0;
  321.     $totdelivered{$user} = 0;
  322.     $countsent{$user} = 0;
  323.     $countdelivered{$user} = 0;
  324.     $countdeferred{$user} = 0;
  325.  
  326.     # Count total messages sent by each user
  327.     $IDlist = $sent{$user};
  328.     foreach $ID (split(/ /, $IDlist)) {
  329.     $totsent{$user} += $size{$ID};
  330.         $countsent{$user}++;
  331.     }
  332.     $totsent += $totsent{$user};
  333.     $countsent += $countsent{$user};
  334.  
  335.     # Count total messages received by each user
  336.     $IDlist = $delivered{$user};
  337.     foreach $ID (split(/ /, $IDlist)) {
  338.     $totdelivered{$user} += $size{$ID};
  339.         $countdelivered{$user}++;
  340.     }
  341.     $totdelivered += $totdelivered{$user};
  342.     $countdelivered += $countdelivered{$user};
  343.  
  344.     # Count deferred messages for each user
  345.     $IDlist = $deferred{$user};
  346.     foreach $ID (split(/ /, $IDlist)) {
  347.         $countdeferred{$user}++;
  348.     }
  349.     $countdeferred += $countdeferred{$user};
  350. }
  351.  
  352. printf ("\n\n");
  353. $REPORTFMT = "%-20s %5s %8s\n";
  354. $REPORTNUM = "%-20s %5d %8d\n";
  355. printf ($REPORTFMT,"Message Status","Total","Size");
  356. printf ("-----------------------------------\n");
  357. printf ($REPORTNUM,"Received",$countsent,$totsent);
  358. printf ($REPORTNUM,"Delivered",$countdelivered,$totdelivered);
  359. printf ($REPORTNUM,"Deferred",$countdeferred);
  360.  
  361. printf ("\n\nUser Statistics:\n\n");
  362. $REPORTFMT = "%-30s %6s %8s %7s %6s %8s %7s\n";
  363. $REPORTNUM = "%-30s %6d %8d %6.2f%% %6d %8d %6.2f%%\n";
  364. printf ($REPORTFMT,"User Name","# from","size","%","# to","size","%");
  365. printf ($REPORTFMT,"---------","------","--------","------","------","--------","------");
  366. foreach $user (sort keys(%userlist)) {
  367.     $percent1 = 0;
  368.     $percent2 = 0;
  369.  
  370.     $percent1 = ($totsent{$user}/$totsent)*100            if ($totsent != 0);
  371.     $percent2 = ($totdelivered{$user}/$totdelivered)*100    if ($totdelivered != 0);
  372.     printf ($REPORTNUM,substr($user,0,30),
  373.     $countsent{$user},$totsent{$user},$percent1,
  374.     $countdelivered{$user},$totdelivered{$user},$percent2);
  375.     $totpctsent += $percent1;
  376.     $totpctdelivered += $percent2;
  377. }
  378. printf ("------------------------------------------------------------------------------\n");
  379. printf ($REPORTNUM,"Totals",$countsent,$totsent,$totpctsent,$countdelivered,$totdelivered,$totpctdelivered);
  380.  
  381. # 
  382. # Host statistics
  383. foreach $host (sort keys(%hostlist)) {
  384.     $totsent{$host} = 0;
  385.     $totdelivered{$host} = 0;
  386.     $countsent{$host} = 0;
  387.     $countdelivered{$host} = 0;
  388.     $countdeferred{$host} = 0;
  389.  
  390.     # Count total messages sent by each host
  391.     $IDlist = $sent{$host};
  392.     foreach $ID (split(/ /, $IDlist)) {
  393.     $totsent{$host} += $size{$ID};
  394.         $countsent{$host}++;
  395.     }
  396.  
  397.     # Count total messages received by each host
  398.     $IDlist = $delivered{$host};
  399.     foreach $ID (split(/ /, $IDlist)) {
  400.     $totdelivered{$host} += $size{$ID};
  401.         $countdelivered{$host}++;
  402.     }
  403. }
  404.  
  405. printf ("\n\nHost Statistics:\n\n");
  406. $REPORTFMT = "%-30s %6s %8s %7s %6s %8s %7s\n";
  407. $REPORTNUM = "%-30s %6d %8d %6.2f%% %6d %8d %6.2f%%\n";
  408. printf ($REPORTFMT,"Host Name","# from","size","%","# to","size","%");
  409. printf ($REPORTFMT,"---------","------","--------","------","------","--------","------");
  410. foreach $host (sort keys(%hostlist)) {
  411.     $percent1 = 0;
  412.     $percent2 = 0;
  413.  
  414.     $percent1 = ($totsent{$host}/$totsent)*100            if ($totsent != 0);
  415.     $percent2 = ($totdelivered{$host}/$totdelivered)*100    if ($totdelivered != 0);
  416.     printf ($REPORTNUM,substr($host,0,30),
  417.     $countsent{$host},$totsent{$host},$percent1,
  418.     $countdelivered{$host},$totdelivered{$host},$percent2);
  419. }
  420. printf ("------------------------------------------------------------------------------\n");
  421. printf ($REPORTNUM,"Totals",$countsent,$totsent,$totpctsent,$countdelivered,$totdelivered,$totpctdelivered);
  422.  
  423. 8<- addrcheck ------------------ Cut Here ------------------------------>8
  424. #!/usr/local/bin/perl
  425. # $Id: addrcheck,v 1.2 92/08/25 16:56:59 drich Exp $
  426. #
  427. # Copyright (C) 1992  Daniel Rich
  428. #
  429. # Author: Daniel Rich (drich@lerc.nasa.gov)
  430. #
  431. # This program is free software; you can redistribute it and/or modify
  432. # it under the terms of the GNU General Public License as published by
  433. # the Free Software Foundation; either version 1, or (at your option)
  434. # any later version.
  435. #
  436. # This program is distributed in the hope that it will be useful,
  437. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  438. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  439. # GNU General Public License for more details.
  440. #
  441. # A copy of the GNU General Public License can be obtained from this
  442. # program's author (send electronic mail to ange@hplb.hpl.hp.com) or from
  443. # the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
  444. # 02139, USA.
  445. #
  446. # addrcheck - verify a user's e-mail address (will continue contacting hosts
  447. #          until it either finds a local address, or a loop).
  448. #          It will also expand any mailing lists it finds.
  449. #    -n - noresolv: don't resolve to a local address
  450. #    -s - short output format (don't print "real name" and <>)
  451. #    -v - verbose output
  452. #
  453. # $Log:    addrcheck,v $
  454. # Revision 1.2  92/08/25  16:56:59  drich
  455. # Added MX record lookup for unknown hosts.
  456. # 
  457. # Revision 1.1  92/08/21  11:13:04  drich
  458. # Initial revision
  459. # 
  460. # Written by:
  461. #     Dan Rich (drich@lerc.nasa.gov)
  462. #    Friday August 21, 1992
  463. # Based on an original perl script by:
  464. #     Nick Holloway (alfie@dcs.warwick.ac.uk)
  465. #
  466.  
  467. $0 =~ s%.*/%%;            # $0 = basname $0
  468.  
  469. require('getopts.pl');
  470.  
  471. sub nslookup {
  472.     local($mxhost) = "";
  473.     local($pref) = 10000;
  474.     local($c) = '';
  475.  
  476.     # Use nslookup to find MX record for host name.
  477.     pipe ( CHLD_RD, NSL_WR );
  478.     pipe ( NSL_RD, CHLD_WR );
  479.     if ( ( $pid = fork () ) < 0 ) {
  480.     die ( "$0: fork failed: $!\n" );
  481.     }
  482.     if ( $pid == 0 ) {            # child
  483.     open ( STDOUT, ">&CHLD_WR" );
  484.     open ( STDERR, ">&CHLD_WR" );
  485.     open ( STDIN,  "<&CHLD_RD" );
  486.     close ( CHLD_RD ); close ( NSL_WR );
  487.     close ( NSL_RD ); close ( CHLD_WR );
  488.     select ( STDIN );  $| = 1;
  489.     select ( STDOUT ); $| = 1;
  490.     select ( STDERR ); $| = 1;
  491.     exec "nslookup";
  492.     exit ( 1 );
  493.     } else {                # parent
  494.     close ( CHLD_RD ); select ( NSL_WR ); $| = 1;
  495.     close ( CHLD_WR ); select ( NSL_RD ); $| = 1;
  496.     select ( STDOUT );
  497.     }
  498.  
  499.     # Use read() since we have prompts
  500.     $c = '';
  501.     while ( ! (<NSL_RD> =~ /Default Server:/) ) {}
  502.     while (read(NSL_RD, $c, 1) && ($c ne '>'))  {}    # Skip opening text
  503.     if ( ! read (NSL_RD, $c, 1) ) {            # and prompt
  504.         return 0;
  505.     }
  506.     print NSL_WR "set type=MX\n";            # Set type=MX
  507.     if ( ! read (NSL_RD, $c, 1) ) {            # Skip prompt
  508.     return 0;
  509.     }
  510.     print NSL_WR $node,"\n";                # Send nodename
  511.  
  512.     $mxhost = ""; $c = "";
  513.     while ($c ne ">") {
  514.         $line = "";
  515.         while (read(NSL_RD, $c, 1) && ( ($c ne ">") && ($c ne "\n") ))  {
  516.         $line = $line . $c;
  517.         }
  518.         if ( $line =~ /exchanger =/ ) {
  519.         $line =~ /preference = ([0-9]*)/;
  520.         if ( $1 < $pref ) {
  521.             $pref = $1;
  522.             ( $line =~ /exchanger = (.*)/ ) && ( $mxhost = $1 );
  523.         }
  524.     }
  525.     }
  526.  
  527.     if ( $mxhost eq "" ) {
  528.         # Ok, so it isn't an MX host, how about an A record?
  529.         if ( ! read (NSL_RD, $c, 1) ) {    # Skip prompt
  530.         return 0;
  531.         }
  532.         print NSL_WR "set type=A\n";
  533.         if (! read (NSL_RD, $c, 1) ) {    # Skip prompt
  534.         return 0;
  535.     }
  536.         print NSL_WR $node,"\n";
  537.  
  538.         $mxhost = ""; $c = "";
  539.         while ($c ne ">") {
  540.             $line = "";
  541.             while (read(NSL_RD, $c, 1) && ( ($c ne ">") && ($c ne "\n") ))  {
  542.             $line = $line . $c;
  543.             }
  544.             if ( $line =~ /Name:/ ) {
  545.             ( $line =~ /Name:[     ]*(.*)/ ) && ( $mxhost = $1 );
  546.         }
  547.         }
  548.     }
  549.  
  550.     close ( NSL_RD );    close ( NSL_WR );
  551.     while ( wait != -1 ) { ; }
  552.     if ( $mxhost eq "" ) {
  553.         0;
  554.     } else {
  555.         $node = $mxhost;
  556.     1;
  557.     }
  558. }
  559.  
  560. sub openhost {
  561.     pipe ( CHLD_RD, SMTP_WR );
  562.     pipe ( SMTP_RD, CHLD_WR );
  563.     if ( ( $pid = fork () ) < 0 ) {
  564.     die ( "$0: fork failed: $!\n" );
  565.     }
  566.     if ( $pid == 0 ) {            # child
  567.     open ( STDOUT, ">&CHLD_WR" );
  568.     open ( STDERR, ">&CHLD_WR" );
  569.     open ( STDIN,  "<&CHLD_RD" );
  570.     close ( CHLD_RD ); close ( SMTP_WR );
  571.     close ( SMTP_RD ); close ( CHLD_WR );
  572.     select ( STDIN );  $| = 1;
  573.     select ( STDOUT ); $| = 1;
  574.     select ( STDERR ); $| = 1;
  575.     exec "telnet $node smtp";
  576.     exit ( 1 );
  577.     } else {                # parent
  578.     close ( CHLD_RD ); select ( SMTP_WR ); $| = 1;
  579.     close ( CHLD_WR ); select ( SMTP_RD ); $| = 1;
  580.     select ( STDOUT );
  581.     }
  582.     1
  583. }
  584.  
  585. # Parse command line args
  586. if (! do Getopts('nsv') ) {
  587.     die ( "usage: $0 [ -nsv ] alias ...\n" .
  588.       "       where alias is of the form \"user@node\" or \"user\"\n" );
  589. }
  590. $noresolv = 1     if ( $opt_n );
  591. $short = 1    if ( $opt_s );
  592. $verbose = 1    if ( $opt_v ); 
  593.  
  594. $SIG{'CHLD'} = 'fireman';
  595. $SIG{'HUP'}  = 'interrupt';
  596. $SIG{'INT'}  = 'interrupt';
  597. $SIG{'TERM'} = 'interrupt';
  598.  
  599. @aliaslist = @ARGV;        # The list of aliases to check
  600. $aliaslist_pos = -1;        # Our position in the list
  601.  
  602. # Loop through the list of aliases, parsing each one.  If we find one that 
  603. # is doesn't resolve locally, insert it into the list.  Also expand mailing
  604. # lists by inserting them after the current address.
  605. for $alias ( @aliaslist ) {
  606.     $aliaslist_pos++;
  607.  
  608.     ( $user, $node ) = split ( '@', $alias );
  609.  
  610.     $node = "localhost"    if ( $node eq "" );    # Localhost if null
  611.  
  612.     if ( $nodelist{$node} ) {
  613.     # Check for mail loops (any host/user pair that we have seen before)
  614.     if ( $nodelist{$node} =~ /$user/ ) {
  615.         print "ERROR: mail loop: $alias\n";
  616.         next;
  617.     } else {
  618.         # Build a list of users on this node
  619.         $nodelist{$node} = $nodelist{$node} . ":" . $user;
  620.     }
  621.     } else {
  622.     $nodelist{$node} = $user
  623.     }
  624.  
  625.     do openhost();        # Open a connection to $node
  626.  
  627.     $_ = <SMTP_RD>;
  628.     if ( /[Uu]nknown host/ ) {
  629.     if ( do nslookup() ) {    # If host unknown, try for MX record
  630.         do openhost();    # and open it again
  631.         $_ = <SMTP_RD>;
  632.     } else {
  633.             warn ( "$0: $_" );
  634.         close ( SMTP_WR ); close ( SMTP_RD );
  635.         next;
  636.         }
  637.     }
  638.     $_ = <SMTP_RD>        if /^Trying/;
  639.     $_ = <SMTP_RD>        if /^Connected/;
  640.  
  641.     $_ = <SMTP_RD>        if /^Escape/;
  642.     if ( ! /^220/ ) {
  643.     warn ( "$0: unable to connect to host \"$node\"\n" );
  644.     print SMTP_WR "quit\n";
  645.     close ( SMTP_WR ); close ( SMTP_RD );
  646.     next;
  647.     }
  648.  
  649.     if ( $verbose ) {
  650.     # Set verbose mode
  651.         print SMTP_WR "VERB\n";
  652.         $_ = <SMTP_RD>; chop;
  653.     if (! /^200/ ) {
  654.         print "$0: error setting verbose: $_\n";
  655.     }
  656.     }
  657.     print SMTP_WR "VRFY $user\n";
  658.     $_ = <SMTP_RD>; chop;
  659.  
  660.     while ( $verbose && /^050/ ) {
  661.     print "$alias -> "; 
  662.     s/^\d{3} //;
  663.     print " $_\n";
  664.         $_ = <SMTP_RD>; chop;
  665.     }
  666.     if ( /^250/ ) {        # alias expansion
  667.     print "$alias ->";
  668.     $len = length ( $alias ) + 3;
  669.     @addrlist = ();
  670.     while ( /^250-/ ) {
  671.         s/^250-//; s/\s+/ /g; 
  672.         push (@addrlist, $_);
  673.         s/.*<(.*)>.*/\1/    if $short;
  674.         $len += length ( $_ ) + 2;
  675.         if ( $len > 79 ) {
  676.             print "\n ";
  677.             $len = length ( $_ ) + 3;
  678.         }
  679.         print " $_,";
  680.         $_ = <SMTP_RD>; chop;
  681.     }
  682.     s/^250 //; s/\s+/ /g; 
  683.         push(@addrlist, $_);
  684.     s/.*<(.*)>.*/\1/    if $short;
  685.     if ( length ( $_ ) + $len > 79 ) {
  686.         print "\n ";
  687.     }
  688.     print " $_\n";
  689.     if ( ! $noresolv ) {
  690.         # The following mess is what puts the new address into @aliaslist
  691.         if ( $#addrlist != 0 ) {
  692.         # Process list
  693.         for $talias ( reverse @addrlist ) {
  694.             $talias =~ s/.*<(.*)>.*/\1/;
  695.             if ( $#aliaslist > $aliaslist_pos ) {
  696.                 @taliaslist = splice(@aliaslist, $aliaslist_pos + 1);
  697.                 push (@aliaslist, $talias);
  698.                 push (@aliaslist, @taliaslist);
  699.             } else {
  700.                 push (@aliaslist, $talias);
  701.             }
  702.         }
  703.         } else {
  704.                 if (($addrlist[0] =~ /<.*@(.*)>$/) eq "") {
  705.             } else {
  706.                 $addrlist[0] =~ /<(.*)>$/;
  707.             $1 =~ s/.*<(.*)>.*/\1/;
  708.             if ( $#aliaslist > $aliaslist_pos ) {
  709.                 @taliaslist = splice(@aliaslist, $aliaslist_pos + 1);
  710.                 push (@aliaslist, $1);
  711.                 push (@aliaslist, @taliaslist);
  712.             } else {
  713.                 push (@aliaslist, $1);
  714.             }
  715.         }
  716.         }
  717.         }
  718.     } else {        # Return code not 250
  719.         s/^\d{3} //;
  720.         print "ERROR: $alias -> $_\n";
  721.     }
  722.     
  723.     print SMTP_WR "QUIT\n";
  724.     $_ = <SMTP_RD>;            # 221 ... closing connection
  725.     $_ = <SMTP_RD>;            # Connection closed ...
  726.     close ( SMTP_WR ); close ( SMTP_RD );
  727. } continue {
  728.     while ( wait != -1 ) { ; }
  729. }
  730.  
  731. sub fireman {
  732.     # while ( wait != -1 ) { ; }
  733. }
  734.  
  735. sub interrupt {
  736.     kill 'TERM', $pid;
  737.     print STDERR "$0: interrupted\n";
  738.     exit ( 1 );
  739. }
  740. 8<------------------------------ Cut Here ------------------------------>8
  741.  
  742. -- 
  743. -- 
  744. Dan Rich                    | drich@lerc.nasa.gov   |  (216) 433-4000
  745. Sr. Systems Engineer        | "Danger, you haven't seen the last of me!"
  746. RMS Technologies, Inc.      |    "No, but the first of you turns my stomach!"
  747. NASA Lewis Research Center  | -- The Firesign Theatre's Nick Danger
  748.  
  749.