Return to tcpm.m4 CVS log

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

Annotation of 42BSD/usr.lib/sendmail/cf/tcpm.m4, revision 1.1

1.1     ! root        1: ############################################################
        !             2: ############################################################
        !             3: #####
        !             4: #####          Arpanet TCP Mailer specification
        !             5: #####
        !             6: #####          @(#)tcpm.m4     4.1             7/25/83
        !             7: #####
        !             8: ############################################################
        !             9: ############################################################
        !            10: 
        !            11: Mtcp,  P=[IPC], F=msDFMueXL, S=14, R=14, A=IPC $h, E=\r\n
        !            12: 
        !            13: S14
        !            14: 
        !            15: # pass <route-addr>'s through
        !            16: R<@$+>$*               $@<@$1>$2                       resolve <route-addr>
        !            17: 
        !            18: # map colons to dots everywhere.....
        !            19: R$*:$*                 $1.$2                           map colons to dots
        !            20: 
        !            21: # handle the simple case....
        !            22: R$+<@$-.ARPA>          $@$1<@$2.ARPA>                  [email protected]
        !            23: 
        !            24: # fully qualify computer center names so the rest works nicely
        !            25: R$+<@$+.CC>            $1<@$2.CC.LOCAL>                [email protected]
        !            26: 
        !            27: # output local hosts in user%host@Berkeley syntax
        !            28: R$+<@LOCAL>            $@$1<@$A>                       local names
        !            29: R$+<@$+.LOCAL>         $@$1%$2<@$A>                    local hosts
        !            30: R$+<@$*$=S>            $@$1%$2$3<@$A>
        !            31: R$+<@$*$=Z>            $@$1%$2$3<@$A>
        !            32: 
        !            33: # handle other external cases
        !            34: R$+<@$->               $@$1<@$2>                       no .ARPA on simple names
        !            35: R$+<@$+.$-.ARPA>       $@$1%$2<@$3.ARPA>               approximate something
        !            36: R$+<@[$+]>             $@$1<@[$2]>                     already ok
        !            37: 
        !            38: # convert remaining addresses to old format and externalize appropriately
        !            39: R$+                    $:$>5$1                         => old format
        !            40: R$-:$+                 $@$1.$2<@$A>                    convert berk hosts
        !            41: R$+<@$+>               $@$1%$2<@$A>                    pessmize
        !            42: R$+                    $:$1%$w<@$A>                    tack on our hostname
        !            43: 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.