Annotation of parser3/www/htdocs/auto.p, revision 1.17.12.1
1.17.12.1! paf 1: @USE
! 2: common/lib.p
! 3: common/layout.p
! 4: common/implode.p
! 5: date/dtf.p
! 6: mysql.p
! 7:
! 8:
! 9:
! 10: #################################################################################################
1.17 paf 11: @auto[]
1.17.12.1! paf 12: # id îáúåêòà ñ 404 îøèáêîé:
! 13: $MAIN:error404ObjectId(23)
! 14: # id îáúåêòà, ãäå ëåæàò ãëîáàëüíûå äàííûå î ñàéòå:
! 15: $MAIN:siteDataObjectId(21)
! 16: $MAIN:pSQL[^mysql::init[$SQL.connect-string;^if(^env:QUERY_STRING.pos[mode=debug] >= 0){debug}]]
! 17: ^detectBrowser[]
! 18: #end @auto[]
! 19:
! 20:
! 21:
! 22: #################################################################################################
! 23: @error404[][err_lang]
! 24: ^location[/404/]
! 25: #end @error404[]
! 26:
! 27:
! 28:
! 29: #################################################################################################
! 30: @pageHeader[header]
! 31: $header
! 32: #end @pageHeader[]
! 33:
! 34:
! 35:
! 36: #################################################################################################
! 37: @pageFooter[]
! 38: footer
! 39: #end @pageFooter[]
! 40:
! 41:
! 42:
! 43: #################################################################################################
! 44: @body[content]
! 45: <body bgcolor="#F4F4F4" text="#000000" link="#0000C4" alink="#0000C4" vlink="#073683" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" rightmargin="0" onLoad="init()">
! 46: $content
! 47: </body>
! 48: #end @body[]
! 49:
! 50:
! 51:
! 52: #################################################################################################
! 53: @html[header;content]
! 54: <!-- Copyright (c) Art. Lebedev Studio | http://www.design.ru/ -->
! 55: <html>
! 56: <head>
! 57: <base target="_top">
! 58: <link rel="stylesheet" type="text/css" href="/main.css"></link>
! 59: <title>AB.LV^if(def $header){ | ^taint[as-is][$header] }</title>
! 60: </head>
! 61: ^body{
! 62: <table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="#ffffff">
! 63: ^pageHeader[]
! 64: $content
! 65: ^pageFooter[]
! 66: </table>
! 67: }
! 68: <html>
! 69: #end @html[]
! 70:
! 71:
! 72: #################################################################################################
! 73: @main[]
! 74: ^pSQL.server{
! 75: <html>
! 76: <head>
! 77: ^if(def $prepare){^prepare[]}
! 78: </head>
! 79: ^body{^content[]}
! 80: </html>
! 81: }
! 82: # @main[]
! 83:
! 84:
! 85:
! 86: #################################################################################################
! 87: @postprocess[body][repl;tmp]
! 88: ^if(def $body){
! 89: ^if($MAIN:browser eq "nn" && $MAIN:browser_ver < 5){
! 90: $repl[^table::create{a b
! 91: &hellip^; …^;
! 92: &rdquo^; ”^;
! 93: &ldquo^; “^;
! 94: &mdash^; —^;
! 95: &ndash^; –^;
! 96: &bull^; •^;}]
! 97: $result[^body.replace[$repl]]
! 98: }{
! 99: $result[$body]
! 100: }
! 101: $not_optimized_space[^taint[as-is][ ]]
! 102: $not_optimized_tab[^taint[as-is][^#09]]
! 103: $not_optimized_enter[^taint[as-is][^#0A]]
! 104: $result[^result.match[ïðÎáÝë][g]{$not_optimized_space}]
! 105: $result[^result.match[òÀá][g]{$not_optimized_tab}]
! 106: $result[^result.match[ýíòÅð][g]{$not_optimized_enter}]
! 107: }{
! 108: $result[]
! 109: }
! 110: ^getStat[]
! 111: ^rusage[]
! 112: # à ýòî ìû ìîæåì âûâåñòè ñïèñîê ìàêðîñîâ, êîòîðûå outdated, íî êîòîðûå âûçûâàëèñü...
! 113: # ^printOutdatedMacro[]
! 114: #end @postprocess[body]
! 115:
! 116:
! 117:
! 118: #################################################################################################
! 119: @rusage[where]
! 120: ^if(!in "/admin/"){
! 121: $vrusage[$status:rusage]
! 122: $now[^date::now[]]
! 123: $s[[^now.sql-string[]] $vrusage.utime $vrusage.stime $vrusage.maxrss $vrusage.ixrss $vrusage.idrss $vrusage.isrss $request:uri $env:REMOTE_ADDR $where
! 124: ]
! 125: ^s.save[append;/../data/rusage.log]
! 126: }
! 127: #end @rusage[]
! 128:
! 129:
! 130: #################################################################################################
! 131: # ýòîò ìåòîä âûâåäåò ñòàòèñòèêó, ñîáðàííóþ ýêçåìïëÿðîì êëàññà $MAIN:pSQL
! 132: @getStat[]
! 133: ^if(def $MAIN:pSQL && $MAIN:pSQL.debug){
! 134: $result[^MAIN:pSQL.getStatistics[/../data/sql.txt]]
! 135: }{
! 136: $result[]
! 137: }
! 138: #end @stat[]
! 139:
E-mail: