Return to route CVS log

Up to [Research Unix] / researchv10no / cmd / upas / config / 112clients

Annotation of researchv10no/cmd/upas/config/112clients/route, revision 1.1.1.1

1.1       root        1: #!/bin/sh
                      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$$ || exit 1
                      9: 
                     10: #
                     11: # Try smtp via datakit.
                     12: # 
                     13: mydname=`qns value dk $sys,name`
                     14: #hisdname=`qns value dk $system,name |
                     15: #      egrep 'nj/((mercury|astro|phone)/.*|garage/(europa|bartok)$|zither/trevor$)' |
                     16: #      egrep -v 'nj/astro/3k|nj/astro/arpa|nj/mercury/mharit'`
                     17: hisdname=`qns value dk $system,name dksmtp,svc`
                     18: case $hisdname in
                     19: "")    ;;
                     20: *)     case $mydname in
                     21:        "")     ;;
                     22:        *)      smtpqer -u -a dk!$hisdname!smtp $sender $system $* < /tmp/ur$$
                     23:                rv=$?
                     24:                rm -f /tmp/ur$$
                     25:                exit $rv ;;
                     26:        esac ;;
                     27: esac
                     28: 
                     29: egrep "^$system[       ]" /usr/lib/upas/tcpsmtpaddrs  2>/dev/null >/dev/null && {
                     30:        smtpqer -u -a "tcp!$system" "$sender" "$system" $* </tmp/ur$$
                     31:        rv=$?
                     32:        rm -f /tmp/ur$$
                     33:        exit $rv
                     34: }
                     35: 
                     36: #
                     37: # Try queuing via uucp
                     38: #
                     39: uux - -a "$sender" "$system!rmail" "($*)" < /tmp/ur$$ &&
                     40:        rm -f /tmp/ur$$ &&
                     41:        exit 0
                     42: 
                     43: #
                     44: # Try queuing smtp via internet.
                     45: # 
                     46: myiname=`qns value dom $sys,dom`
                     47: lsystem=`echo $system | tr [A-Z] [a-z]`
                     48: hisiname=`((qns value dom $lsystem,dom |
                     49:        egrep '(.+\.)?(tempo|mercury|phone|astro|stc|research)(\.nj)?(\.att\.com)') ||
                     50:                qns value dom $lsystem,dom tcpsmtp,svc)                         |
                     51:        sed 's/\.$//'`
                     52: case $hisiname in
                     53: "")    ;;
                     54: *)     case $myiname in
                     55:        "")     ;;
                     56:        *)      smtpqer $sender $hisiname $* < /tmp/ur$$
                     57:                rv=$?
                     58:                rm -f /tmp/ur$$
                     59:                exit $rv ;;
                     60:        esac ;;
                     61: esac
                     62: 
                     63: # get gateway system
                     64: gateway=`cat /usr/lib/upas/gateway`
                     65: case $gateway in
                     66: "") gateway=research ;;
                     67: esac
                     68: case $sys in
                     69: $gateway) rm -f /tmp/ur$$
                     70:          echo no route from gateway > /dev/stderr
                     71:          exit 1
                     72: esac
                     73: 
                     74: # expand the destination
                     75: expdest=
                     76: for i in $*; do expdest="$expdest $system!$i"; done
                     77: 
                     78: #
                     79: # Try smtp via datakit to gateway.
                     80: # 
                     81: hisdname=`qns value dk $gateway,name | egrep 'nj/((mercury|astro|phone)/.*|garage/(europa|bartok)$|zither/trevor$)'`
                     82: case $hisdname in
                     83: "")    ;;
                     84: *)     case $mydname in
                     85:        "")     ;;
                     86:        *)      smtpqer -u -a dk!$hisdname!smtp $sender $gateway $expdest < /tmp/ur$$
                     87:                rv=$?
                     88:                rm -f /tmp/ur$$
                     89:                exit $rv ;;
                     90:        esac ;;
                     91: esac
                     92: 
                     93: #
                     94: # Try smtp via internet to gateway.
                     95: # 
                     96: myiname=`qns value dom $sys,dom`
                     97: hisiname=`qns value dom $gateway,dom'`
                     98: case $hisiname in
                     99: *research*)    case $myiname in
                    100:        "")     ;;
                    101:        *)      smtpqer -u $sender $gateway $expdest < /tmp/ur$$
                    102:                rv=$?
                    103:                rm -f /tmp/ur$$
                    104:                exit $rv ;;
                    105:        esac ;;
                    106: esac
                    107: 
                    108: #
                    109: # Try queuing via uucp if all else fails
                    110: #
                    111: uux - -a "$sender" "$gateway!rmail" "($expdest)" < /tmp/ur$$
                    112: 
                    113: rv=$?
                    114: rm -f /tmp/ur$$
                    115: exit $rv

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