projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| e804469b C |
1 | ############################################################ |
| 2 | ############################################################ | |
| 3 | ##### | |
| 4 | ##### Arpanet TCP Mailer specification | |
| 5 | ##### | |
| 6 | ##### @(#)tcpm.m4 3.11 2/24/83 | |
| 7 | ##### | |
| 8 | ############################################################ | |
| 9 | ############################################################ | |
| 10 | ||
| 11 | Mtcp, P=[IPC], F=msDFMueXL, S=14, R=14, A=IPC $h, E=\r\n | |
| 12 | ||
| 13 | S14 | |
| 14 | ||
| 15 | # pass <route-addr>'s through unchanged | |
| 16 | R<@$+>$* $@<@$1>$2 <route-addr> syntax | |
| 17 | ||
| 18 | # convert the address to old format | |
| 19 | R$+ $:$>5$1 => old format | |
| 20 | ||
| 21 | # handle the simple case.... | |
| 22 | R$+<@$-.ARPA> $@$1<@$2.ARPA> user@host.ARPA | |
| 23 | ||
| 24 | # output local hosts in host.user@Berkeley syntax (ugh!) | |
| 25 | R$+<@$*LOCAL> $@$2$1<@$A> local names | |
| 26 | R$+<@$*$=S> $@$2$3.$1<@$A> local names | |
| 27 | R$+<@$*$=Z> $@$2$3.$1<@$A> local names | |
| 28 | ||
| 29 | R$+<@$-> $@$1<@$2> no .ARPA on simple names | |
| 30 | R$+<@$+.$-.ARPA> $@$1%$2<@$3.ARPA> approximate something | |
| 31 | R$+<@[$+]> $@$1<@[$2]> already ok | |
| 32 | R$+<@$+> $@$1<@$2> hmmmmmmmmm...... | |
| 33 | R$-:$+ $@$1.$2<@$A> convert berk hosts | |
| 34 | R$+ $:$w.$1<@$A> tack on our hostname | |
| 35 | R$=R.$+<@$=A> $2<@$3> strip unneeded relay |