Return to tcpm.m4 CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / sendmail / cf.hosttable

Annotation of 43BSD/usr.lib/sendmail/cf.hosttable/tcpm.m4, revision 1.1.1.1

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: #      @(#)tcpm.m4     5.8 (Berkeley) 10/2/85
                     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: ############################################################
                     24: ############################################################
                     25: 
                     26: Mtcp,  P=[IPC], F=mDFMueXL, S=14, R=14, A=IPC $h, E=\r\n
                     27: 
                     28: S14
                     29: 
                     30: # pass <route-addr>'s through
                     31: R<@$+>$*               $@<@$[$1$]>$2                   resolve <route-addr>
                     32: 
                     33: # map colons to dots everywhere.....
                     34: R$*:$*                 $1.$2                           map colons to dots
                     35: 
                     36: # handle the simple case....
                     37: R$+<@$-.ARPA>          $@$1<@$[$2.ARPA$]>              [email protected]
                     38: 
                     39: # output local hosts in [email protected] syntax
                     40: R$+<@LOCAL>            $@$1<@$w.$A>                    local names
                     41: R$+<@$+.LOCAL>         $@$1<@$2.$A>                    local hosts
                     42: R$+<@$*$=S>            $@$1<@$2$3.$A>
                     43: R$+<@$*$=Z>            $@$1<@$2$3.$A>
                     44: R$+<@$+.BITNET>                $@$1%$2.BITNET<@$w.$A>          [email protected]
                     45: R$+<@$+.CSNET>         $@$1%$2.CSNET<@CSNET-RELAY.ARPA>        [email protected]
                     46: R$+<@$+.DEC>           $@$1%$2.DEC<@decwrl.ARPA>       [email protected]
                     47: R$+<@$+.UUCP>          $@$2!$1<@$w.$A>                 [email protected]
                     48: 
                     49: # handle other external cases
                     50: R$+<@$->               $@$1<@$[$2$]>                   no .ARPA on simple names
                     51: #R$+<@$+.$-.ARPA>      $@$1%$2<@$[$3.ARPA$]>           approximate something
                     52: R$+<@[$+]>             $@$1<@[$2]>                     already ok
                     53: R$+<@$+>               $@$1<@$[$2$]>                   set for named
                     54: 
                     55: # convert remaining addresses to old format and externalize appropriately
                     56: R$+                    $:$>5$1                         => old format
                     57: R$-:$+                 $@$2<@$1.$A>                    convert berk hosts
                     58: #R$+<@$+>              $@$1<@$2@$A>                    pessmize
                     59: R$+                    $:$1<@$w.$A>                    tack on our hostname
                     60: R$+%$=R<@$=A>          $1<@$[$3$]>                     strip unneeded relay

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.