Annotation of parser3/www/htdocs/auto.p, revision 1.8
1.8 ! paf 1: @USE
! 2: common/lib.p
! 3: common/layout.p
! 4: common/implode.p
! 5: date/dtf.p
! 6: engine_aval.p
! 7: mysql.p
! 8:
! 9:
! 10:
! 11: #################################################################################################
1.7 paf 12: @auto[]
1.8 ! paf 13: ^if(in "/admin/"){
! 14: ^use[admin.p]
! 15: }
! 16: # id объекта, где лежат глобальные данные о сайте
! 17: $MAIN:siteDataObjectId(94)
! 18: # id объекта, где хранится все о карте украины (карта, image-map)
! 19: $MAIN:branchesObjectId(62)
! 20: # id объекта, где хранится все о банкоматах украины (карта, image-map)
! 21: $MAIN:cashObjectId(63)
! 22: $MAIN:pSQL[^mysql::init[$SQL.connect-string]]
! 23: ^detectBrowser[]
! 24: ^getLang[]
! 25: $MAIN:objIdNews(1)
! 26: $MAIN:objIdPubs(2)
! 27: $MAIN:objIdDigest(3)
! 28: $MAIN:objIdVacancy(4)
! 29: #$MAIN:objIdInfo(5)
! 30: $MAIN:SYS_PATH_PRODUCTSIMAGE[/i/products]
! 31: #end @auto[]
! 32:
! 33:
! 34:
! 35: #################################################################################################
! 36: @getLang[][qs;found]
! 37: $qs[$env:QUERY_STRING]
! 38: $found[^qs.match[(^^|&)lang=([^^&]+)]]
! 39: $MAIN:lang_id(2)
! 40: ^if($found){
! 41: $MAIN:lang[^found.2.lower[]]
! 42: }{
! 43: $MAIN:lang[]
! 44: }
! 45: $result[]
! 46: #end @getLang[]
! 47:
! 48:
! 49:
! 50: #################################################################################################
! 51: @byLang[rus;eng;ukr;lang_id]
! 52: ^switch[^if(def $lang_id){$lang_id}{$MAIN:lang_id}]{
! 53: ^case[1]{$result[$rus]}
! 54: ^case[2]{$result[$ukr]}
! 55: ^case[3]{$result[$eng]}
! 56: ^case[DEFAULT]{$result[]}
! 57: }
! 58:
! 59:
! 60: #################################################################################################
! 61: @exception[origin;source;comment;type;code;stack][i;j]
! 62: <body>
! 63: <font color="black">
! 64: ^if(def $source){$origin '$source'}
! 65: <pre>^untaint[html]{$comment}</pre>
! 66: ^if(def $type){type=$type}
! 67: ^if(def $code){code=$code}
! 68: ^if($stack){
! 69: <hr>
! 70: stack backtrace:<br />
! 71: ^stack.menu{
! 72: $stack.origin: $stack.name<br />
! 73: }
! 74: }
! 75: #end
! 76:
! 77:
! 78:
! 79: #################################################################################################
! 80: @error404[]
! 81: ^location[http://$env:SERVER_NAME/^MAIN:byLang[rus/;eng/;]404/]
! 82: #end @error404[]
! 83:
1.7 paf 84:
1.8 ! paf 85:
! 86: #################################################################################################
! 87: @pageHeader[header]
! 88: $header
! 89: #end @pageHeader[]
! 90:
! 91:
! 92:
! 93: #################################################################################################
! 94: @pageFooter[]
! 95: footer
! 96: #end @pageFooter[]
! 97:
! 98:
! 99:
! 100: #################################################################################################
! 101: @body[content]
! 102: <body bgcolor="#F4F4F4" text="#000000" link="#0000C4" alink="#0000C4" vlink="#073683" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" rightmargin="0" onLoad="init()">
! 103: $content
! 104: </body>
! 105: #end @body[]
! 106:
! 107:
! 108:
! 109: #################################################################################################
! 110: @html[header;content]
! 111: <!-- Copyright (c) Art. Lebedev Studio | http://www.design.ru/ -->
! 112: <html>
! 113: <head>
! 114: <base target="_top">
! 115: <link rel="stylesheet" type="text/css" href="/main.css"></link>
! 116: <title>AB.LV^if(def $header){ | ^taint[as-is][$header] }</title>
! 117: </head>
! 118: ^body{
! 119: <table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="#ffffff">
! 120: ^pageHeader[]
! 121: $content
! 122: ^pageFooter[]
! 123: </table>
! 124: }
! 125: <html>
! 126: #end @html[]
! 127:
! 128:
! 129: #################################################################################################
1.1 paf 130: @main[]
1.8 ! paf 131: ^pSQL.server{
! 132: <html>
! 133: <head>
! 134: ^if(def $prepare){^prepare[]}
! 135: </head>
! 136: ^body{
! 137: ^content[]
! 138: }
! 139: </html>
! 140: }
! 141: # @main[]
! 142:
! 143:
! 144:
! 145: #################################################################################################
! 146: @postprocess[body][repl]
! 147: #^rusage[]
! 148: ^if($MAIN:browser eq "nn" && $MAIN:browser_ver < 5){
! 149: $repl[^table::set{a b
! 150: &hellip^; …^;
! 151: &rdquo^; ”^;
! 152: &ldquo^; “^;
! 153: &mdash^; —^;
! 154: &ndash^; –^;
! 155: &bull^; •^;}]
! 156: $result[^if(def $body){^body.replace[$repl]}]
! 157: }{
! 158: $result[$body]
! 159: }
! 160: # а это мы можем вывести список макросов, которые outdated, но которые вызывались...
! 161: # ^printOutdatedMacro[]
! 162: #end @postprocess[body]
! 163:
! 164:
! 165:
! 166: #################################################################################################
! 167: @rusage[]
! 168: #^if(!in "/admin/"){
! 169: $rusage[$status:rusage]
! 170: $now[^date::now[]]
! 171: $s[[^now.sql-string[]] $rusage.utime $rusage.stime $rusage.maxrss $rusage.ixrss $rusage.idrss $rusage.isrss $request:uri
! 172: ]
! 173: ^s.save[append;/../data/rusage.log]
! 174: #}
! 175: #end
! 176:
! 177:
! 178:
! 179: #################################################################################################
! 180: @getNewsCategory[]
! 181: $result[^table::sql{
! 182: SELECT
! 183: news_category_id AS id,
! 184: name,
! 185: name_ukr,
! 186: name_eng,
! 187: path
! 188: FROM
! 189: news_category
! 190: WHERE
! 191: is_published = '1'
! 192: ORDER BY
! 193: sort_order
! 194: }]
! 195:
! 196:
! 197:
! 198: #################################################################################################
! 199: @sendSubscribeMail[type;from;pass;lang]
! 200: ^mail:send[
! 201: $.to[$form:email]
! 202: $.from[$from]
! 203: $.charset[windows-1251]
! 204: $.content-type[
! 205: $.value[text/plain]
! 206: $.charset[windows-1251]
! 207: ]
! 208: $.subject[^if($type eq "insert"){aval subscribe}{aval update subscription}]
! 209: $.body[^if($type eq "insert"){^MAIN:byLang[Адрес "$form:email" был внесен в список рассылки новостей сайта банка Аваль
! 210:
! 211: Чтобы сделать подписку активной и/или изменить ее параметры, достаточно зайти на страницу:
! 212: http://${env:SERVER_NAME}/rus/press/subscribe/edit/?email=$form:email&code=$pass
! 213:
! 214: Если подписка не будет подтверждена в течение 30 дней с момента
! 215: отправки данного сообщения, ваш адрес будет автоматически удален из
! 216: базы данных.
! 217:
! 218: С уважением,
! 219: пресс-служба банка "Аваль"
! 220: http://${env:SERVER_NAME}/rus/
! 221: ;ENGLISH TEXT: Email "$form:email" был внесен в список рассылки новостей сайта банка Аваль
! 222:
! 223: Чтобы сделать подписку активной и/или изменить ее параметры, достаточно зайти на страницу:
! 224: http://${env:SERVER_NAME}/eng/press/subscribe/edit/?email=$form:email&code=$pass
! 225:
! 226: Если подписка не будет подтверждена в течение 30 дней с момента
! 227: отправки данного сообщения, ваш адрес будет автоматически удален из
! 228: базы данных.
! 229:
! 230: С уважением,
! 231: пресс-служба банка "Аваль"
! 232: http://${env:SERVER_NAME}/eng/
! 233: ;УКРАИНСКИЙ ТЕКСТ:Адрес "$form:email" был внесен в список рассылки новостей сайта банка Аваль
! 234:
! 235: Чтобы сделать подписку активной и/или изменить ее параметры, достаточно зайти на страницу:
! 236: http://${env:SERVER_NAME}/press/subscribe/edit/?email=$form:email&code=$pass
! 237:
! 238: Если подписка не будет подтверждена в течение 30 дней с момента
! 239: отправки данного сообщения, ваш адрес будет автоматически удален из
! 240: базы данных.
! 241:
! 242: С уважением,
! 243: пресс-служба банка "Аваль"
! 244: http://${env:SERVER_NAME}/
! 245: ;$lang]}{^MAIN:byLang[Чтобы изменить параметры подписки, достаточно зайти на страницу:
! 246: http://${env:SERVER_NAME}/rus/press/subscribe/edit/?email=$form:email&code=$pass
! 247:
! 248: С уважением,
! 249: пресс-служба банка "Аваль"
! 250: http://${env:SERVER_NAME}/rus/
! 251:
! 252:
! 253: ;ENGLISH TEXT: Чтобы изменить параметры подписки, достаточно зайти на страницу:
! 254: http://${env:SERVER_NAME}/eng/press/subscribe/edit/?email=$form:email&code=$pass
! 255:
! 256: С уважением,
! 257: пресс-служба банка "Аваль"
! 258: http://${env:SERVER_NAME}/eng/
! 259:
! 260: ;УКРАИНСКИЙ ТЕКСТ: Чтобы изменить параметры подписки, достаточно зайти на страницу:
! 261: http://${env:SERVER_NAME}/press/subscribe/edit/?email=$form:email&code=$pass
! 262:
! 263: С уважением,
! 264: пресс-служба банка "Аваль"
! 265: http://${env:SERVER_NAME}/
! 266:
! 267: ;$lang]}
! 268: ]]
! 269: #end @sendMail[]
! 270:
! 271:
1.7 paf 272:
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to auto.p CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / www / htdocs