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

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.