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     ! 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.