Annotation of 43BSD/usr.lib/sendmail/cf.named/nstcpldm.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: #      @(#)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: 

unix.superglobalmegacorp.com

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