Return to rule3.m4 CVS log

Up to [CSRG BSD Unix] / 43BSDReno / usr.sbin / sendmail / cf / m4

Annotation of 43BSDReno/usr.sbin/sendmail/cf/m4/rule3.m4, revision 1.1

1.1     ! root        1: divert(10)
        !             2: #
        !             3: # Copyright (c) 1983 Eric P. Allman
        !             4: # Copyright (c) 1988 The Regents of the University of California.
        !             5: # All rights reserved.
        !             6: #
        !             7: # Redistribution and use in source and binary forms are permitted
        !             8: # provided that the above copyright notice and this paragraph are
        !             9: # duplicated in all such forms and that any documentation,
        !            10: # advertising materials, and other materials related to such
        !            11: # distribution and use acknowledge that the software was developed
        !            12: # by the University of California, Berkeley.  The name of the
        !            13: # University may not be used to endorse or promote products derived
        !            14: # from this software without specific prior written permission.
        !            15: # THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
        !            16: # IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
        !            17: # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
        !            18: #
        !            19: #      @(#)rule3.m4    1.18 (Berkeley) 2/15/89
        !            20: #
        !            21: divert(0)
        !            22: ###########################
        !            23: #  Name Canonicalization  #
        !            24: ###########################
        !            25: S3
        !            26: 
        !            27: # handle "from:<>" special case
        !            28: R$*<>$*                        $@@                             turn into magic token
        !            29: 
        !            30: # basic textual canonicalization -- note RFC733 heuristic here
        !            31: R$*<$*<$*<$+>$*>$*>$*  $4                              3-level <> nesting
        !            32: R$*<$*<$+>$*>$*                $3                              2-level <> nesting
        !            33: R$*<$+>$*              $2                              basic RFC821/822 parsing
        !            34: 
        !            35: # make sure <@a,@b,@c:user@d> syntax is easy to parse -- undone later
        !            36: R@$+,$+                        @$1:$2                          change all "," to ":"
        !            37: 
        !            38: # localize and dispose of route-based addresses
        !            39: R@$+:$+                        $@$>6<@$1>:$2                   handle <route-addr>
        !            40: 
        !            41: # more miscellaneous cleanup
        !            42: R$+                    $:$>8$1                         host dependent cleanup
        !            43: R$+:$*;@$+             $@$1:$2;@$3                     list syntax
        !            44: R$+:$*;                        $@$1:$2;                        list syntax
        !            45: R$+@$+                 $:$1<@$2>                       focus on domain
        !            46: R$+<$+@$+>             $1$2<@$3>                       move gaze right
        !            47: R$+<@$+>               $@$>6$1<@$2>                    already canonical
        !            48: 
        !            49: # convert old-style addresses to a domain-based address
        !            50: R$+^$+                 $1!$2                           convert ^ to !
        !            51: R$-!$+                 $@$>6$2<@$1.UUCP>               resolve uucp names
        !            52: R$+.$-!$+              $@$>6$3<@$1.$2>                 domain uucps
        !            53: R$+!$+                 $@$>6$2<@$1.UUCP>               uucp subdomains
        !            54: R$+%$+                 $:$>9$1%$2                      user%host
        !            55: R$+<@$+>               $@$>6$1<@$2>                    already canonical
        !            56: R$-.$+                 $@$>6$2<@$1>                    host.user
        !            57: 
        !            58: 
        !            59: #################################
        !            60: #   special local conversions   #
        !            61: #################################
        !            62: 
        !            63: S6
        !            64: R$*<@$=w>$*            $:$1<@$w>$3                     get into u@$w form
        !            65: R$*<@$=w.$D>$*         $:$1<@$w>$3
        !            66: R$*<@$=U.UUCP>$*       $:$1<@$w>$3
        !            67: 
        !            68: ################################
        !            69: #   Change rightmost % to @.   #
        !            70: ################################
        !            71: 
        !            72: S9
        !            73: R$*%$*                 $1@$2                           First make them all @'s.
        !            74: R$*@$*@$*              $1%$2@$3                        Undo all but the last.
        !            75: R$*@$*                 $@$1<@$2>                       Put back the brackets.
        !            76: 

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