![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to nstcpldm.m4 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / usr.lib / sendmail / cf.named|
Return to nstcpldm.m4 CVS log | Up to [CSRG BSD Unix] / 43BSD / usr.lib / sendmail / cf.named |
1.1 root 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: # @(#)nstcpldm.m4 1.3 (Berkeley) 5/1/86
12: #
13: divert(0)
14: ############################################################
15: ############################################################
16: #####
17: ##### Local Domain TCP Mailer specification
18: #####
19: ##### Messages processed by this specification are assumed to remain
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: Mtcpld, P=[IPC], F=mDFMueXLC, S=17, R=27, A=IPC $h, E=\r\n
29:
30: S17
31:
32: # cleanup forwarding a bit
33: R$*<$*>$* $1$2$3 defocus
34: R$* $:$>3$1 canonicalize
35: R$*%$*<@LOCAL> $:$>9$1%$2 user%localhost@localdomain
36:
37: # pass <route-addr>'s through
38: R<@$+>$* $@<@$[$1$]>$2 resolve <route-addr>
39:
40: # map colons to dots everywhere.....
41: R$*:$* $1.$2 map colons to dots
42:
43: # handle the simple case....
44: R$+<@$-.ARPA> $@$1<@$[$2.ARPA$]> [email protected]
45:
46: # fully qualify computer center names so the rest works nicely
47: R$+<@$=C> $1<@$2.$D> [email protected]
48:
49: # output local host in [email protected] syntax
50: R$+<@LOCAL> $:$1<@$w> this host
51: R$+<@$-> $:$1<@$[$2$]> check for local domain
52: R$+<@$+.LOCAL> $@$1<@$2.$D> nic-reg local hosts
53: R$+<@$=w> $@$1<@$w.$D> user@this_host.berkeley.edu
54:
55: # output local hosts in user%[email protected] syntax
56:
57: R$+<@$+.CSNET> $@$1%$2.CSNET<@CSNET-RELAY.ARPA> [email protected]
58: R$+<@$+.DEC> $@$1%$2.DEC<@decwrl.dec.com> [email protected]
59: R$+<@$+.OZ.AU> $@$1%$2.OZ.AU<@seismo.css.gov> [email protected]
60: R$+<@$+.UUCP> $@$2!$1<@$w> [email protected]
61: R$+<@$+.$=P> $@$1<@$[$2.$3$]> user@host.{mil,edu,...}
62: R$+<@$+.$=K> $@$1%$2.$3<@$w> [email protected]
63: R$+<@$*$=Z> $@$1%$2$3<@$w>
64:
65: # handle other external cases
66: R$+<@$-> $@$1<@$[$2$]> no .ARPA on simple names
67: #R$+<@$+.$-.ARPA> $@$1%$2<@$[$3.ARPA$]> approximate something
68: R$+<@[$+]> $@$1<@[$2]> already ok
69: R$+<@$+> $@$1<@$[$2$]> set for named
70:
71: # convert remaining addresses to old format and externalize appropriately
72: R$+ $:$>5$1 => old format
73: R$-:$+ $@$1.$2<@$w> convert berk hosts
74: #R$+<@$+> $@$1%$2<@$w> pessmize
75: R$+ $:$1<@$w> tack on our hostname
76: R$+<@$=w> $:$1<@$w.$D> wher $w doesn't have .b.e
77: R$+%$=R<@$=A> $1<@$[$3$]> strip unneeded relay
78:
79: S27
80:
81: # put in <> kludge
82: R$*<$*>$* $1$2$3 defocus
83: R$* $:$>3$1 now canonical form
84: R$*%$*<@LOCAL> $:$>9$1%$2 user%localhost@localdomain
85:
86: # pass <route-addr>'s through
87: R<@$+>$* $@<@$[$1$]>$2 resolve <route-addr>
88:
89: # map colons to dots everywhere.....
90: R$*:$* $1.$2 map colons to dots
91:
92: # handle the simple case....
93: R$+<@$-.ARPA> $@$1<@$[$2.ARPA$]> [email protected]
94:
95: # fully qualify computer center names so the rest works nicely
96: R$+<@$=C> $1<@$2.$D> [email protected]
97:
98: # output local host in [email protected] syntax
99: R$+<@$=w> $@$1<@$w> this host
100: R$+<@LOCAL> $@$1<@$w> this host
101: R$+<@$+.LOCAL> $@$1<@$2.$D> local hosts
102:
103: # output local hosts in user%[email protected] syntax
104:
105: R$+<@$+.CSNET> $@$1%$2.CSNET<@CSNET-RELAY.ARPA> [email protected]
106: R$+<@$+.DEC> $@$1%$2.DEC<@decwrl.dec.com> [email protected]
107: R$+<@$+.OZ.AU> $@$1%$2.OZ.AU<@seismo.css.gov> [email protected]
108: R$+<@$+.UUCP> $@$2!$1 [email protected]
109: R$+<@$+.BITNET> $@$1<@$2.BITNET> [email protected]
110: R$+<@$+.$=P> $@$1<@$[$2.$3$]> user@host.{mil,edu,...}
111: R$+<@$+.$=K> $@$1%$2.$3<@$w> [email protected]
112: R$+<@$=Z> $@$1<@$2> berkhosts
113:
114: # handle other external cases
115: R$+<@$-> $@$1<@$[$2$]> no .ARPA on simple names
116: #R$+<@$+.$-.ARPA> $@$1%$2<@$[$3.ARPA$]> approximate something
117: R$+<@[$+]> $@$1<@[$2]> already ok
118: R$+<@$+> $@$1<@$[$2$]> set for named
119:
120: # convert remaining addresses to old format and externalize appropriately
121: R$+ $:$>5$1 => old format
122: R$-:$+ $@$1.$2<@$w> convert berk hosts
123: #R$+<@$+> $@$1%$2<@$w> pessmize
124: R$+ $:$1<@$w> tack on our hostname
125: R$+%$=R<@$=A> $1<@$[$3$]> strip unneeded relay
126:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.