|
|
1.1 root 1: divert(10)
2: #
3: # Copyright (c) 1983 Eric P. Allman
4: # Copyright (c) 1988 The Regents of the University of California.
5: # All rights reserved.
6: #
7: # Redistribution and use in source and binary forms are permitted
8: # provided that the above copyright notice and this paragraph are
9: # duplicated in all such forms and that any documentation,
10: # advertising materials, and other materials related to such
11: # distribution and use acknowledge that the software was developed
12: # by the University of California, Berkeley. The name of the
13: # University may not be used to endorse or promote products derived
14: # from this software without specific prior written permission.
15: # THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
16: # IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
17: # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
18: #
19: # @(#)nstcpm.m4 1.22 (Berkeley) 2/15/89
20: #
21: divert(0)
22: ############################################################
23: ############################################################
24: #####
25: ##### Internet SMTP Mailer specification
26: #####
27: ##### Messages processed by this specification are assumed to leave
28: ##### the local domain -- hence, they must be canonical according to
29: ##### RFC822 etc. This means that machines not registered with
30: ##### the NIC must be hidden behind our Internet relay.
31: #####
32: ############################################################
33: ############################################################
34:
35: Mtcp, P=[IPC], F=mDFMueXLC, S=14, R=24, A=IPC $h, E=\r\n
36:
37: S14
38:
39: # pass <route-addr>'s through
40: R<@$+>$* $@<@$[$1$]>$2 resolve <route-addr>
41:
42: # map colons to dots everywhere
43: R$*:$* $1.$2 map colons to dots
44:
45: # output local host in [email protected] syntax
46: R$- $1<@$w> user w/o host
47: R$+<@$=w> $:$1<@$w> this host
48: R$+<@$-> $:$1<@$[$2$]> canonicalize into dom
49: R$+<@$-> $:$1<@$2.$D> if nameserver fails
50: R$+<@$=N.$D> $@$1<@$2.$D> nic-reg hosts are ok
51: R$+<@$*.$D> $@$1%$2.$D<@$A> else -> u%h@gateway
52:
53: # if not local, and not a "fake" domain, ask the nameserver
54: R$+<@$+.$~I> $@$1<@$[$2.$3$]> [email protected]
55: R$+<@[$+]> $@$1<@[$2]> already ok
56:
57: # output internal ("fake") domains as "user%host@relay"
58:
59: ifdef(`BITNET_RELAY',
60: R$+<@$+.BITNET> $@$1%$2.BITNET<@$B> [email protected])
61: ifdef(`CSNET_RELAY',
62: R$+<@$+.CSNET> $@$1%$2.CSNET<@$C> [email protected])
63: R$+<@$+.UUCP> $@$2!$1<@$w> [email protected]
64:
65:
66: S24
67:
68: # put in <> kludge
69: R$*<$*>$* $1$2$3 defocus
70: R$* $:$>3$1 now canonical form
71:
72: # pass <route-addr>'s through
73: R<@$+>$* $@<@$[$1$]>$2 resolve <route-addr>
74:
75: # map colons to dots everywhere.....
76: R$*:$* $1.$2 map colons to dots
77:
78: # output local host in [email protected] syntax
79: R$- $1<@$w> user w/o host
80: R$+<@$=w> $:$1<@$w> this host
81: R$+<@$-> $:$1<@$[$2$]> canonicalize into dom
82: R$+<@$-> $:$1<@$2.$D> if nameserver fails
83: R$+<@$=N.$D> $@$1<@$2.$D> nic-reg hosts are ok
84: R$+<@$*.$D> $@$1%$2.$D<@$A> else -> u%h@gateway
85:
86: # if not local, and not a "fake" domain, ask the nameserver
87: R$+<@$+.$~I> $@$1<@$[$2.$3$]> [email protected]
88: R$+<@[$+]> $@$1<@[$2]> already ok
89:
90: # Hide fake domains behind relays
91:
92: ifdef(`BITNET_RELAY',
93: R$+<@$+.BITNET> $@$1%$2.BITNET<@$B> [email protected])
94: ifdef(`CSNET_RELAY',
95: R$+<@$+.CSNET> $@$1%$2.CSNET<@$C> [email protected])
96: R$+<@$+.UUCP> $@$2!$1 [email protected]
97:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.