[BACK]Return to auto.p CVS log [TXT] [DIR] Up to [parser3project] / parser3 / www / htdocs

Diff for /parser3/www/htdocs/Attic/auto.p between versions 1.2 and 1.8

version 1.2, 2002/01/31 12:40:35 version 1.8, 2002/04/16 08:05:10
Line 2 Line 2
 common/lib.p  common/lib.p
 common/layout.p  common/layout.p
 common/implode.p  common/implode.p
 common/graph.p  
 date/dtf.p  date/dtf.p
 engine_mdm.p  engine_aval.p
 mysql.p  mysql.p
   
   
   
   #################################################################################################
 @auto[]  @auto[]
 ^if(in "/admin/"){  ^if(in "/admin/"){
         ^use[admin.p]          ^use[admin.p]
 }  }
   # id объекта, где лежат глобальные данные о сайте
   $MAIN:siteDataObjectId(94)
   # id объекта, где хранится все о карте украины (карта, image-map)
   $MAIN:branchesObjectId(62)
   # id объекта, где хранится все о банкоматах украины (карта, image-map)
   $MAIN:cashObjectId(63)
 $MAIN:pSQL[^mysql::init[$SQL.connect-string]]  $MAIN:pSQL[^mysql::init[$SQL.connect-string]]
 ^detectBrowser[]  ^detectBrowser[]
 $MAIN:newsfileDir[/i/news/]  ^getLang[]
 #end   $MAIN:objIdNews(1)
   $MAIN:objIdPubs(2)
   $MAIN:objIdDigest(3)
   $MAIN:objIdVacancy(4)
   #$MAIN:objIdInfo(5)
   $MAIN:SYS_PATH_PRODUCTSIMAGE[/i/products]
   #end @auto[]
   
   
   
   #################################################################################################
   @getLang[][qs;found]
   $qs[$env:QUERY_STRING]
   $found[^qs.match[(^^|&)lang=([^^&]+)]]
   $MAIN:lang_id(2)
   ^if($found){
           $MAIN:lang[^found.2.lower[]]
   }{
           $MAIN:lang[]
   }
   $result[]
   #end @getLang[]
   
   
   
   #################################################################################################
   @byLang[rus;eng;ukr;lang_id]
   ^switch[^if(def $lang_id){$lang_id}{$MAIN:lang_id}]{
           ^case[1]{$result[$rus]}
           ^case[2]{$result[$ukr]}
           ^case[3]{$result[$eng]}
           ^case[DEFAULT]{$result[]}
   }
   
   
   #################################################################################################
 @exception[origin;source;comment;type;code;stack][i;j]  @exception[origin;source;comment;type;code;stack][i;j]
 <body>  <body>
 <font color="black">  <font color="black">
 ^if(def $source){$origin '$source'}  ^if(def $source){$origin '$source'}
 ${comment}.  <pre>^untaint[html]{$comment}</pre>
 ^if(def $type){type=$type}  ^if(def $type){type=$type}
 ^if(def $code){code=$code}  ^if(def $code){code=$code}
 ^if($stack){  ^if($stack){
Line 38  ${comment}. Line 78  ${comment}.
   
 #################################################################################################  #################################################################################################
 @error404[]  @error404[]
 ^location[http://$env:SERVER_NAME/404/]  ^location[http://$env:SERVER_NAME/^MAIN:byLang[rus/;eng/;]404/]
 #end @error404[]  #end @error404[]
   
   
Line 104  footer Line 144  footer
   
 #################################################################################################  #################################################################################################
 @postprocess[body][repl]  @postprocess[body][repl]
   #^rusage[]
 ^if($MAIN:browser eq "nn" && $MAIN:browser_ver < 5){  ^if($MAIN:browser eq "nn" && $MAIN:browser_ver < 5){
         $repl[^table::set{a b          $repl[^table::set{a b
 &hellip^;       &#133^;  &hellip^;       &#133^;
Line 116  footer Line 157  footer
 }{  }{
         $result[$body]          $result[$body]
 }  }
   # а это мы можем вывести список макросов, которые outdated, но которые вызывались...
   # ^printOutdatedMacro[]
 #end @postprocess[body]  #end @postprocess[body]
   
   
   
 #################################################################################################  #################################################################################################
 @getNewsType[]  @rusage[]
   #^if(!in "/admin/"){
   $rusage[$status:rusage]
   $now[^date::now[]]
   $s[[^now.sql-string[]] $rusage.utime $rusage.stime $rusage.maxrss $rusage.ixrss $rusage.idrss $rusage.isrss $request:uri
   ]
   ^s.save[append;/../data/rusage.log]
   #}
   #end
   
   
   
   #################################################################################################
   @getNewsCategory[]
 $result[^table::sql{  $result[^table::sql{
         SELECT          SELECT
                 news_type_id AS id,                  news_category_id AS id,
                 name,                  name,
                   name_ukr,
                   name_eng,
                 path                  path
         FROM          FROM
                 news_type                  news_category
         WHERE          WHERE
                 is_published = '1'                  is_published = '1'
         ORDER BY          ORDER BY
Line 138  $result[^table::sql{ Line 196  $result[^table::sql{
   
   
 #################################################################################################  #################################################################################################
 @sendSubscribeMail[type;from;pass]  @sendSubscribeMail[type;from;pass;lang]
 ^mail:send[  ^mail:send[
         $.to[$form:email]          $.to[$form:email]
         $.from[$from]          $.from[$from]
         $.charset[KOI8-R]          $.charset[windows-1251]
         $.content-type[          $.content-type[
                 $.value[text/plain]                  $.value[text/plain]
                 $.charset[KOI8-R]                  $.charset[windows-1251]
         ]          ]
         $.subject[^if($type eq "insert"){mdm subscribe}{mdm update subscription}]          $.subject[^if($type eq "insert"){aval subscribe}{aval update subscription}]
         $.body[^if($type eq "insert"){Адрес "$form:email" был внесен в список рассылки новостей сайта МДМ          $.body[^if($type eq "insert"){^MAIN:byLang[Адрес "$form:email" был внесен в список рассылки новостей сайта банка Аваль
   
   Чтобы сделать подписку активной и/или изменить ее параметры, достаточно зайти на страницу:
   http://${env:SERVER_NAME}/rus/press/subscribe/edit/?email=$form:email&code=$pass
   
   Если подписка не будет подтверждена в течение 30  дней с момента
   отправки  данного  сообщения, ваш адрес будет автоматически удален из
   базы данных.
   
   С уважением, 
   пресс-служба банка "Аваль"
   http://${env:SERVER_NAME}/rus/
   ;ENGLISH TEXT: Email "$form:email" был внесен в список рассылки новостей сайта банка Аваль
   
   Чтобы сделать подписку активной и/или изменить ее параметры, достаточно зайти на страницу:
   http://${env:SERVER_NAME}/eng/press/subscribe/edit/?email=$form:email&code=$pass
   
   Если подписка не будет подтверждена в течение 30  дней с момента
   отправки  данного  сообщения, ваш адрес будет автоматически удален из
   базы данных.
   
   С уважением, 
   пресс-служба банка "Аваль"
   http://${env:SERVER_NAME}/eng/
   ;УКРАИНСКИЙ ТЕКСТ:Адрес "$form:email" был внесен в список рассылки новостей сайта банка Аваль
   
 Чтобы сделать подписку активной и/или изменить ее параметры, достаточно зайти на страницу:  Чтобы сделать подписку активной и/или изменить ее параметры, достаточно зайти на страницу:
 http://${env:SERVER_NAME}/press/subscribe/edit/?email=$form:email&code=$pass  http://${env:SERVER_NAME}/press/subscribe/edit/?email=$form:email&code=$pass
   
 Если подписка не будет подтверждена в течение 30  дней с момента  Если подписка не будет подтверждена в течение 30  дней с момента
 отправки  данного  сообщения, ваш адрес будет автоматически удален из  отправки  данного  сообщения, ваш адрес будет автоматически удален из
 базы данных   базы данных.
   
 С уважением,   С уважением, 
 Служба новостей МДМ  пресс-служба банка "Аваль"
 http://${env:SERVER_NAME}/  http://${env:SERVER_NAME}/
 }{Чтобы изменить параметры подписки, достаточно зайти на страницу:  ;$lang]}{^MAIN:byLang[Чтобы изменить параметры подписки, достаточно зайти на страницу:
   http://${env:SERVER_NAME}/rus/press/subscribe/edit/?email=$form:email&code=$pass
   
   С уважением, 
   пресс-служба банка "Аваль"
   http://${env:SERVER_NAME}/rus/
   
   
   ;ENGLISH TEXT: Чтобы изменить параметры подписки, достаточно зайти на страницу:
   http://${env:SERVER_NAME}/eng/press/subscribe/edit/?email=$form:email&code=$pass
   
   С уважением, 
   пресс-служба банка "Аваль"
   http://${env:SERVER_NAME}/eng/
   
   ;УКРАИНСКИЙ ТЕКСТ: Чтобы изменить параметры подписки, достаточно зайти на страницу:
 http://${env:SERVER_NAME}/press/subscribe/edit/?email=$form:email&code=$pass  http://${env:SERVER_NAME}/press/subscribe/edit/?email=$form:email&code=$pass
   
 С уважением,   С уважением, 
 Служба новостей МДМ  пресс-служба банка "Аваль"
 http://${env:SERVER_NAME}/}]  http://${env:SERVER_NAME}/
 ]  
   ;$lang]}
   ]]
 #end @sendMail[]  #end @sendMail[]
   
   
Removed from v.1.2  
changed lines
  Added in v.1.8

E-mail: