Return to rule3.m4 CVS log

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

Annotation of 43BSDTahoe/usr.lib/sendmail/cf/m4/rule3.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: #      @(#)rule3.m4    1.16 (Berkeley) 4/8/88
        !            12: #
        !            13: divert(0)
        !            14: ###########################
        !            15: #  Name Canonicalization  #
        !            16: ###########################
        !            17: S3
        !            18: 
        !            19: # handle "from:<>" special case
        !            20: R<>                    $@@                             turn into magic token
        !            21: 
        !            22: # basic textual canonicalization -- note RFC733 heuristic here
        !            23: R$*<$*<$*<$+>$*>$*>$*  $4                              3-level <> nesting
        !            24: R$*<$*<$+>$*>$*                $3                              2-level <> nesting
        !            25: R$*<$+>$*              $2                              basic RFC821/822 parsing
        !            26: R$+ at $+              $1@$2                           "at" -> "@" for RFC 822
        !            27: 
        !            28: # make sure <@a,@b,@c:user@d> syntax is easy to parse -- undone later
        !            29: R@$+,$+                        @$1:$2                          change all "," to ":"
        !            30: 
        !            31: # localize and dispose of route-based addresses
        !            32: R@$+:$+                        $@$>6<@$1>:$2                   handle <route-addr>
        !            33: 
        !            34: # more miscellaneous cleanup
        !            35: R$+                    $:$>8$1                         host dependent cleanup
        !            36: R$+:$*;@$+             $@$1:$2;@$3                     list syntax
        !            37: R$+:$*;                        $@$1:$2;                        list syntax
        !            38: R$+@$+                 $:$1<@$2>                       focus on domain
        !            39: R$+<$+@$+>             $1$2<@$3>                       move gaze right
        !            40: R$+<@$+>               $@$>6$1<@$2>                    already canonical
        !            41: 
        !            42: # convert old-style addresses to a domain-based address
        !            43: R$+^$+                 $1!$2                           convert ^ to !
        !            44: R$-!$+                 $@$>6$2<@$1.UUCP>               resolve uucp names
        !            45: R$+.$-!$+              $@$>6$3<@$1.$2>                 domain uucps
        !            46: R$+!$+                 $@$>6$2<@$1.UUCP>               uucp subdomains
        !            47: R$-:$+                 $@$>6$2<@$1>                    host:user
        !            48: R$-=$+                 $@$>6$2<@$1.BITNET>             resolve bitnet names
        !            49: R$+%$+                 $:$>9$1%$2                      user%host
        !            50: R$+<@$+>               $@$>6$1<@$2>                    already canonical
        !            51: R$-.$+                 $@$>6$2<@$1>                    host.user
        !            52: 
        !            53: 
        !            54: #################################
        !            55: #   special local conversions   #
        !            56: #################################
        !            57: 
        !            58: S6
        !            59: R$*<@$=w>$*            $:$1<@$w>$3                     get into u@$w form
        !            60: R$*<@$=w.$D>$*         $:$1<@$w>$3
        !            61: R$*<@$=w.EDU>$*                $:$1<@$w>$3
        !            62: R$*<@$=U.UUCP>$*       $:$1<@$w>$3
        !            63: 
        !            64: ################################
        !            65: #   Change rightmost % to @.   #
        !            66: ################################
        !            67: 
        !            68: S9
        !            69: R$*%$*                 $1@$2                           First make them all @'s.
        !            70: R$*@$*@$*              $1%$2@$3                        Undo all but the last.
        !            71: R$*@$*                 $@$1<@$2>                       Put back the brackets.
        !            72: 

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