Return to uureroute CVS log

Up to [MW Coherent from dump] / coherent / g / usr / lib / uucp / tay104 / contrib

Annotation of coherent/g/usr/lib/uucp/tay104/contrib/uureroute, revision 1.1

1.1     ! root        1: #!/usr/local/bin/perl
        !             2: eval ' exec /usr/local/bin/perl $0 "$@" '
        !             3:        if $running_under_some_shell;
        !             4: 
        !             5: # From a script by <[email protected]>
        !             6: # Newsgroups: comp.sources.misc
        !             7: # Subject: v28i073:  uureroute - Reroute HDB queued mail, Part01/01
        !             8: # Date: 26 Feb 92 02:28:37 GMT
        !             9: #
        !            10: # This is a Honey DanBer specific routine written in perl to reroute all
        !            11: # mail queued up for a specific host.  It needs to be run as "root" since
        !            12: # uucp will not allow itself to remove others requests.
        !            13: #
        !            14: # Revision ***  92/21/09:  Francois Pinard <[email protected]>
        !            15: #      1.      adapted for Taylor UUCP
        !            16: #
        !            17: # Revision 1.3  91/10/08  09:01:21  src
        !            18: #      1.      Rewritten in perl
        !            19: #      2.      Add -v option for debugging.
        !            20: #
        !            21: # Revision 1.2  91/10/07  23:57:42  root
        !            22: #      1.      Fix mail program path.
        !            23: #      2.      Truncate directory name to 7 characters
        !            24: 
        !            25: ($progname = $0) =~ s!.*/!!;   # save this very early
        !            26: 
        !            27: $USAGE = "
        !            28: #   Reroute uucp mail
        !            29: #
        !            30: #   Usage: $progname [-v] host [host...]
        !            31: #
        !            32: # Options   Argument    Description
        !            33: #   -v                  Verbose (doesn't execute /bin/sh)
        !            34: #
        !            35: ";
        !            36: 
        !            37: $UUSTAT = "/usr/local/bin/uustat";
        !            38: $SHELL = "/bin/sh";
        !            39: $SMAIL = "/bin/smail";
        !            40: 
        !            41: sub usage
        !            42: {
        !            43:     die join ("\n", @_) . "\n$USAGE\n";
        !            44: }
        !            45: 
        !            46: do "getopts.pl";
        !            47: 
        !            48: &usage ("Invalid Option") unless do Getopts ("vV");
        !            49: 
        !            50: $verbose = ($opt_v ? '-v' : ());
        !            51: $suffix = ($verbose ? '' : $$);
        !            52: 
        !            53: &usage ("No system specified") if $#ARGV < 0;
        !            54: 
        !            55: if (!$verbose)
        !            56: {
        !            57:     open (SHELL, "| $SHELL");
        !            58:     select SHELL;
        !            59: }
        !            60: 
        !            61: while ($system = shift)
        !            62: {
        !            63:     $sysprefix = substr ($system, 0, 7);
        !            64:     $directory = "/usr/spool/uucp/$sysprefix";
        !            65:     open (UUSTAT, "$UUSTAT -s $system -c rmail |");
        !            66:     print "set -ex\n";
        !            67:     while (<UUSTAT>)
        !            68:     {
        !            69:        ($jobid, ) = split;
        !            70:        ($cfile) = substr ($jobid, length ($jobid) - 5);
        !            71:        $cfilename = "$directory/C./C.$cfile";
        !            72:        open (CFILE, $cfilename) || die "Cannot open $cfilename\n";
        !            73:        $_ = <CFILE>;
        !            74:        close CFILE;
        !            75:        if (/^E D\.(....) [^ ]+ [^ ]+ -CR D\.\1 0666 [^ ]+ 0 rmail (.*)/)
        !            76:        {
        !            77:            $datafile = "$directory/D./D.$1";
        !            78:            $address = $2;
        !            79:        }
        !            80:        else
        !            81:        {
        !            82:            print STDERR;
        !            83:            die "Cannot parse previous line from $cfilename\n";
        !            84:        }
        !            85:        print "$SMAIL -R $system!$address < $datafile && $UUSTAT -k $jobid\n";
        !            86:     }
        !            87:     close UUSTAT;
        !            88: }
        !            89: close SHELL unless $verbose;
        !            90: 
        !            91: exit 0;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.