Return to route.res CVS log

Up to [Research Unix] / researchv10no / cmd / nupas / config / research

Annotation of researchv10no/cmd/nupas/config/research/route.res, revision 1.1

1.1     ! root        1: #!/bin/sh -p
        !             2: PATH=/bin:/usr/bin:/usr/lib/upas; export PATH
        !             3: sender=$1;shift
        !             4: system=$1;shift
        !             5: sys=`cat /etc/whoami`
        !             6: 
        !             7: # save the mail
        !             8: cat > /tmp/ur$$
        !             9: 
        !            10: #
        !            11: # Try smtp via datakit.  Mail to a!b!c from d!e!f will be
        !            12: # transformed into mail to c@b from f%e@d
        !            13: # 
        !            14: netname=`qns value dk $system | egrep "astro|mercury|phone"`
        !            15: case $netname in
        !            16: "") ;;
        !            17: *)  tosmtp -u $sys!$sender dk!$system!smtp $* < /tmp/ur$$ && rm -f /tmp/ur$$ && exit 0
        !            18:     ;;
        !            19: esac
        !            20: 
        !            21: # try queuing it for uucp
        !            22: uux - -a "$sender" "$system!rmail" "($*)" < /tmp/ur$$ && rm -f /tmp/ur$$ && exit 0
        !            23: 
        !            24: # try queuing it for smtp
        !            25: inetname=`qns value dom $system att,org`
        !            26: case $inetname in
        !            27: "")    rv=1
        !            28:        ;;
        !            29: *)     /usr/lib/upas/smtpqer $sender $system $* < /tmp/ur$$
        !            30:        rv=$?
        !            31:        ;;
        !            32: esac
        !            33: 
        !            34: # nothing left to try, clean up
        !            35: rm -f /tmp/ur$$
        !            36: exit $rv

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