Return to route CVS log

Up to [Research Unix] / researchv10dc / cmd / upas / config / research

Annotation of researchv10dc/cmd/upas/config/research/route, 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=`egrep ".*/.*/$system\$" /usr/lib/asd/destinations`
        !            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: #
        !            22: # Try smtp via internet.  Mail to a!b!c from d!e!f will be
        !            23: # transformed into mail to b!c@a from f%e@d.  We do this because
        !            24: # the receiving system may not treat ! and @ addresses equivalently.
        !            25: # 
        !            26: # Don't use smtp to bellcore systems because of name clashes.
        !            27: # Don't send to vax135 because it doesn't know how to return smtp mail.
        !            28: # Don't send to gauss because 1135 has a machine named gauss in hosts.att.  (Why?)
        !            29: #
        !            30: netname=`egrep "[      ]$system([      ]|\$)" /usr/ipc/lib/inaddr\
        !            31:        /usr/ipc/lib/inaddr.local | egrep -v "bellcore|mre|vax135|gauss"`
        !            32: case $netname in
        !            33: "") ;;
        !            34: *)  temp=
        !            35:     for i in $*; do temp="$temp $system!uucp!$i"; done
        !            36:     tosmtp -u $sender $system $temp < /tmp/ur$$ && rm -f /tmp/ur$$ && exit 0
        !            37:     ;;
        !            38: esac
        !            39: 
        !            40: #
        !            41: # finally try old faithful.  Queuing is only done by uucp.
        !            42: #
        !            43: uux - -a "$sender" "$system!rmail" "($*)" < /tmp/ur$$ && rm -f /tmp/ur$$ && exit 0
        !            44: 
        !            45: # get gateway system
        !            46: gateway=`cat /usr/lib/upas/gateway`
        !            47: case $gateway in
        !            48: "") gateway=research ;;
        !            49: esac
        !            50: 
        !            51: # let the gateway figure it out
        !            52: temp=
        !            53: for i in $*; do temp="$temp $system!$i"; done
        !            54: tosmtp -u $sender dk!$gateway!smtp $temp < /tmp/ur$$ && rm -f /tmp/ur$$ && exit 0
        !            55: uux - -a "$sender" "$gateway!rmail" "($temp)" </tmp/ur$$
        !            56: rv=$?
        !            57: rm -f /tmp/ur$$
        !            58: exit $rv

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