Annotation of parser3/src/www/htdocs/auto.p, revision 1.23

1.23    ! parser      1: @main[]
        !             2: ^header[]
        !             3: ^print_path[]
        !             4: ^print_menu[]
        !             5: ^body[]
        !             6: ^hr[]
        !             7: ^footer[]
        !             8: 
        !             9: 
        !            10: @header[]
        !            11: <!-- Copyright 2001 (c) Vladimir Eltchinov | elik@elik.ru | http://www.elik.ru/ -->
        !            12: 
        !            13: <html><head>
        !            14: #^macro[load_config]
        !            15: <title>^print_header[]</title><base target="_top"></head>
        !            16: <body bgcolor=#$config.bg-color.value link=#$config.link-color.value vlink=#$config.vlink-color.value alink=#$config.alink-color.value text=#$config.text-color.value topmargin=5 leftmargin=5 rightmargin=5 marginwidth=5 marginheight=5 background=$config.bg-image.value>
        !            17: <table width=100% height=100% align=center valign=top><tr><td width=50%></td><td width=600 valign=top>
        !            18: 
        !            19: @body[]
        !            20: 
        !            21: @footer[]
        !            22: </td><td width=50%></td></tr><tr><td colspan=3 valign=bottom align=right><font size=-1><b>The matrix has you ...</b></font></td></tr></table>
        !            23: </body>
        !            24: </html>
        !            25: 
        !            26: 
        !            27: @i[]
        !            28: $result[$config.images.value]
        !            29: 
        !            30: @hr[]
        !            31: <br><img src=^i[]hr.gif width=600 height=1><br><br>
        !            32: 
1.20      paf        33: @auto[]
1.23    ! parser     34: $DEFAULTS[
        !            35:        $content-type[
        !            36:                $value[text/html]
        !            37:                $charset[koi8-r]
        !            38:        ]
1.21      paf        39: ]
1.23    ! parser     40: 
        !            41: #$config_table[^table:load[/layout.cfg]]
        !            42: #$config[^config_table.hash[name][value]]
        !            43: 
        !            44: @print_path[][p;path;links;prefix;location] Печатает строку навигации "Корень / раздел / раздел"
        !            45: $p[$request:uri]
        !            46: $path[^p.lsplit[/]]
        !            47: ^path.flip[]
        !            48: ^path.menu{
        !            49:        ^if("$prefix" eq ""){
        !            50:                ^if($p eq "/"){<b>Elik.Ru</b>}{<a href=/><b>Elik.Ru</b></a>}
        !            51:         }{
        !            52:                ^if(-f "${prefix}links.cfg"){
        !            53: 
        !            54:                        $links[^table:load[${prefix}links.cfg]]
        !            55:                        $links[^links.hash[location;description]]
        !            56:                
        !            57:                        $location[$path.0]
        !            58:                        ^if($p eq "${prefix}$location/"){$links.$location.description}{<a href=${prefix}$location>$links.$location.description</a>}
        !            59:                }
        !            60:         }
        !            61:        $prefix[${prefix}$location/]
        !            62: }[&nbsp^;/&nbsp^;]<br>^hr[]
        !            63: 
        !            64: @print_header[][p;path;links;prefix;location] Печатает строку заголовка "Корень | раздел | раздел"
        !            65: $p[$request:uri]
        !            66: $path[^p.lsplit[/]]
        !            67: ^path.flip[]
        !            68: ^path.menu{
        !            69:        ^if("$prefix" eq ""){
        !            70:                Elik.Ru
        !            71:         }{
        !            72:                ^if(-f "${prefix}links.cfg"){
        !            73: 
        !            74:                        $links[^table:load[${prefix}links.cfg]]
        !            75:                        $links[^links.hash[location;description]]
        !            76:                
        !            77:                        $location[$path.0]
        !            78:                        $links.$location.description
        !            79:                }
        !            80:         }
        !            81:        $prefix[${prefix}$location/]
        !            82: }[&nbsp^;|&nbsp^;]
        !            83: 
        !            84: @print_menu[][links]
        !            85: ^if(-f links.cfg){
        !            86:        $links[^table:load[links.cfg]]
        !            87:        $links{^menu{
        !            88:                <a href=$location>$description</a>^if($:menu_separator ne ""){$:menu_separator}{<br>}
        !            89:        }}
        !            90:        ^hr[]
        !            91: }
1.1       paf        92: 

E-mail: