|
|
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 $sender dk!$system!smtp $* < /tmp/ur$$ && rm -f /tmp/ur$$ && exit 0
18: ;;
19: esac
20:
21: #
22: # finally try old faithful. Queuing is only done by uucp.
23: #
24: uux - -a "$sender" "$system!rmail" "($*)" < /tmp/ur$$ && rm -f /tmp/ur$$ && exit 0
25:
26: # get gateway system
27: gateway=`cat /usr/lib/upas/gateway`
28: case $gateway in
29: "") gateway=research ;;
30: esac
31:
32: # let the gateway figure it out
33: temp=
34: for i in $*; do temp="$temp $system!$i"; done
35: tosmtp -u $sender dk!$gateway!smtp $temp < /tmp/ur$$ && rm -f /tmp/ur$$ && exit 0
36: uux - -a "$sender" "$gateway!rmail" "($temp)" </tmp/ur$$
37: rv=$?
38: rm -f /tmp/ur$$
39: exit $rv
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.