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

Diff for /parser3/src/www/htdocs/Attic/auto.p between versions 1.25 and 1.42

version 1.25, 2001/07/13 10:26:47 version 1.42, 2001/10/22 09:02:04
Line 1 Line 1
   ##  Конфигурим глобальные переменные
 @auto[]  @auto[]
 $user-html[^table:set{user      html    comment  $MAIN:globalXSL[/_templates/normal/global.xsl]]                         ^rem{ шаблон по умолчанию }
 <<      &laquo^;        длинные user вперёд  $MAIN:startpageXSL[/_templates/normal/startpage.xsl]]           ^rem{ шаблон первой страницы }
 >>      &raquo^;  $pSQL[^MYSQL::create[]]
 \n\n    <p>     !эти есть в таблице по умолчанию  
 \n      <br>    !но т.к. заменяем, надо повторить.  
 <       &lt^;   !можно этим воспользоваться,  
 >       &gt^;   !и что-то сделать ДО обычных замен  
 "       &quot^; !например из << и >>  
 &       &amp^;  !сделать ёлочки-кавычки.  
 _       &nbsp^;  
 ^#AB    &laquo^;        windows коды ёлочек  
 ^#BB    &raquo^;        windows коды ёлочек  
 (c)     &copy^;  
 ^#A9    &copy^; windows (c)  
 }]  
 #$if(!($SQL is hash)){$SQL[$z[z]]}  
 $SQL[  
         $drivers[^table:set{protocol    driver  client  
 mysql   Y:\parser3\src\sql\mysql\Debug\parser3mysql.dll Y:\parser3\src\sql\mysql\mySQL32\lib\opt\libmySQL.dll  
 }]  
 ]  
 $SQL.connect-string[mysql://test:test@localhost/test/cp1251_koi8]  
 $SQL.connect-string[mysql://test:test@[/a/b]/test/cp1251_koi8]  
 #for ^file:load[name;user-name;mime-type << autodetection]  
 $MIME-TYPES[^table:set{ext      mime-type  
 zip     application/zip  
 doc     application/msword  
 xls     application/vnd.ms-excel  
 pdf     application/pdf  
 ppt     application/powerpoint  
 rtf     application/rtf  
 gif     image/gif  
 jpg     image/jpeg  
 png     image/png  
 tif     image/tiff  
 html    text/html  
 htm     text/html  
 txt     text/plain  
 mts     application/metastream  
 mid     audio/midi  
 midi    audio/midi  
 mp3     audio/mpeg  
 ram     audio/x-pn-realaudio  
 rpm     audio/x-pn-realaudio-plugin  
 ra      audio/x-realaudio  
 wav     audio/x-wav  
 au      audio/basic  
 mpg     video/mpeg  
 avi     video/x-msvideo  
 mov     video/quicktime  
 swf     application/x-shockwave-flash  
 }]  
   
 @auto_test[]  
 ^BASE.auto_test[]  
 <li>DR  
   
 @main[]  
 /auto.p main  ##  Забираем XML документ, накладываем на него XSL шаблон и отдаем клиенту
   @postprocess[body]
   ^if( $env:QUERY_STRING ne 'debug' ){
   
           $xml[^xdoc::set{$body}]
           
           ^if( $env:REQUEST_URI eq '/' || $env:REQUEST_URI eq '/index.html' ){
                   $html[^xml.transform[$MAIN:startpageXSL].]
           }{
                   $html[^xml.transform[$MAIN:globalXSL].string]
           }
   
           $response:body[
                   ^html.file[
                           $.encoding[windows-1251]
                           $.method[html]
                   ]
           ]
   }{
           $body
   }
   
   
   ## Подключаем классы
   @USE
   hosting.p
   mysql.p
   utils.p
Removed from v.1.25  
changed lines
  Added in v.1.42

E-mail: