projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| ca67e7b4 C |
1 | divert(10) |
| 2 | # | |
| 3 | # Sendmail | |
| 4 | # Copyright (c) 1983 Eric P. Allman | |
| 5 | # Berkeley, California | |
| 6 | # | |
| 7 | # Copyright (c) 1983 Regents of the University of California. | |
| 8 | # All rights reserved. The Berkeley software License Agreement | |
| 9 | # specifies the terms and conditions for redistribution. | |
| 10 | # | |
| 11 | # @(#)nstcpm.m4 1.19 (Berkeley) 3/31/88 | |
| 12 | # | |
| 13 | divert(0) | |
| 14 | ############################################################ | |
| 15 | ############################################################ | |
| 16 | ##### | |
| 17 | ##### Arpanet TCP Mailer specification | |
| 18 | ##### | |
| 19 | ##### Messages processed by this specification are assumed to leave | |
| 20 | ##### the local domain -- hence, they must be canonical according to | |
| 21 | ##### RFC822 etc. | |
| 22 | ##### | |
| 23 | ##### This mailer is to be used with the Berkeley Name Server. | |
| 24 | ##### | |
| 25 | ############################################################ | |
| 26 | ############################################################ | |
| 27 | ||
| 28 | Mtcp, P=[IPC], F=mDFMueXLC, S=14, R=24, A=IPC $h, E=\r\n | |
| 29 | ||
| 30 | S14 | |
| 31 | ||
| 32 | # pass <route-addr>'s through | |
| 33 | R<@$+>$* $@<@$[$1$]>$2 resolve <route-addr> | |
| 34 | ||
| 35 | # map colons to dots everywhere | |
| 36 | R$*:$* $1.$2 map colons to dots | |
| 37 | ||
| 38 | # output local host in user@host.BERKELEY.EDU syntax | |
| 39 | R$- $1<@$w> user w/o host | |
| 40 | R$+<@$=w> $:$1<@$w> this host | |
| 41 | R$+<@$-> $:$1<@$[$2$]> canonicalize into dom | |
| 42 | R$+<@$-> $:$1<@$2.$D> if nameserver fails | |
| 43 | R$+<@$=N.$D> $@$1<@$2.$D> nic-reg hosts are ok | |
| 44 | R$+<@$*.$D> $@$1%$2.$D<@$A> else -> u%h@gateway | |
| 45 | ||
| 46 | # if not local, and not a "fake" domain, ask the nameserver | |
| 47 | R$+<@$+.$~I> $@$1<@$[$2.$3$]> user@host.domain | |
| 48 | R$+<@[$+]> $@$1<@[$2]> already ok | |
| 49 | ||
| 50 | # output internal ("fake") domains as "user%host@relay" | |
| 51 | ||
| 52 | R$+<@$+.CSNET> $@$1%$2.CSNET<@relay.cs.net> user@host.CSNET | |
| 53 | R$+<@$+.BITNET> $@$1%$2.BITNET<@jade.berkeley.edu> user@host.BITNET | |
| 54 | R$+<@$+.UUCP> $@$2!$1<@$w> user@host.UUCP | |
| 55 | ||
| 56 | ||
| 57 | S24 | |
| 58 | ||
| 59 | # put in <> kludge | |
| 60 | R$*<$*>$* $1$2$3 defocus | |
| 61 | R$* $:$>3$1 now canonical form | |
| 62 | ||
| 63 | # pass <route-addr>'s through | |
| 64 | R<@$+>$* $@<@$[$1$]>$2 resolve <route-addr> | |
| 65 | ||
| 66 | # map colons to dots everywhere..... | |
| 67 | R$*:$* $1.$2 map colons to dots | |
| 68 | ||
| 69 | # output local host in user@host.domain syntax | |
| 70 | R$- $1<@$w> user w/o host | |
| 71 | R$+<@$=w> $:$1<@$w> this host | |
| 72 | R$+<@$-> $:$1<@$[$2$]> canonicalize into dom | |
| 73 | R$+<@$-> $:$1<@$2.$D> if nameserver fails | |
| 74 | R$+<@$=N.$D> $@$1<@$2.$D> nic-reg hosts are ok | |
| 75 | R$+<@$*.$D> $@$1%$2.$D<@$A> else -> u%h@gateway | |
| 76 | ||
| 77 | # if not local, and not a "fake" domain, ask the nameserver | |
| 78 | R$+<@$+.$~I> $@$1<@$[$2.$3$]> user@host.domain | |
| 79 | R$+<@[$+]> $@$1<@[$2]> already ok | |
| 80 | ||
| 81 | # Hide fake domains behind gateways | |
| 82 | ||
| 83 | R$+<@$+.CSNET> $@$1%$2.CSNET<@relay.cs.net> user@host.CSNET | |
| 84 | R$+<@$+.BITNET> $@$1<@$2.BITNET> user@host.BITNET | |
| 85 | R$+<@$+.UUCP> $@$2!$1 user@host.UUCP | |
| 86 |