Return to route CVS log

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

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

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