--- parser3/src/www/htdocs/Attic/auto.p 2001/07/18 13:18:00 1.26
+++ parser3/src/www/htdocs/Attic/auto.p 2001/09/12 10:07:37 1.35.4.1
@@ -1,61 +1,169 @@
@auto[]
-#$ORIGINS(1)
-$user-html[^table:set{user html comment
-<< «^; длинные user вперёд
->> »^;
-\n\n
!эти есть в таблице по умолчанию
-\n
!но т.к. заменяем, надо повторить.
-< <^; !можно этим воспользоваться,
-> >^; !и что-то сделать ДО обычных замен
-" "^; !например из << и >>
-& &^; !сделать ёлочки-кавычки.
-_  ^;
-^#AB «^; windows коды ёлочек
-^#BB »^; windows коды ёлочек
-(c) ©^;
-^#A9 ©^; 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[]
-
DR
+^use[common/lib.p]
+^use[common/layout.p]
+^use[common/implode.p]
+^use[date/dtf.p]
+^use[hosting.p]
+^detectBrowser[]
+#end
+
+
+@ifhref[flag;address;content;params]
+^if($flag){$content}{$content}
+
+@img[filename;params]
+^if(-f $filename){$thisImage[^image::measure[$filename]]^thisImage.html[$params]}
+
+@nafigator[]
+
+
+ ^branches.menu{
+ ^ifhref(!in "/$branches.folder/" || ^splitURI.count[] != 1)[/$branches.folder/][ ][^if(!in "/$branches.folder/"){onMouseOver="iconOver('$branches.folder',1)" onMouseOut="iconOver('$branches.folder',0)"}] |
+ |
+ }
+ ^ifhref(^splitURI.count[] != 1)[/$branch/][^img[^if(^splitURI.count[]){/$branch/i/}{/i/home/}p.gif][$.name[p]]] |
+
+
+
+@subnafigator[]
+^if(def $subbranches){^subbranches.menu{$thisImage[^image::measure[/$branch/i/b-${subbranches.folder}^if(in "/$branch/$subbranches.folder/"){-a}.gif]]^ifhref(!in "/$branch/$subbranches.folder/" || ^splitURI.count[] != 2)[/$branch/$subbranches.folder/][^thisImage.html[$.name[b-$subbranches.folder]]][onMouseOver="rollOver('b-$subbranches.folder', 1, '^if(in "/$branch/$subbranches.folder/"){-a}')" onMouseOut="rollOver('b-$subbranches.folder', 0, '^if(in "/$branch/$subbranches.folder/"){-a}')"]}}
+
+@header[]
+
+
+@insertia[]
+
+
+@content[]
+
+
+@btm[]
+
+
+@localmenu[]
+$localSpacer(0)
+$foundOne(0)
+^subbranches.menu{
+ ^if(in "/$branch/$subbranches.folder/"){$foundOne(1)}
+ ^if(!$foundOne){
+ $localimage[^image::measure[/$branch/i/b-${subbranches.folder}.gif]]
+ ^localSpacer.inc($localimage.width)
+ }
+}
+^splitURI.offset(1)
+$result[^if($localSpacer){
}^local.menu{$thisImage[^image::measure[/$branch/i/b2-${local.folder}^if(in "/$branch/$splitURI.piece/$local.folder/"){-a}.gif]]^ifhref(!in "/$branch/$splitURI.piece/$local.folder/")[/$branch/$splitURI.piece/$local.folder/][^thisImage.html[$.name[b2-$local.folder]]][onMouseOver="rollOver('b2-$local.folder', 1, '')" onMouseOut="rollOver('b2-$local.folder', 0, '')"]}]
+
+@contentTable[]
+
+
+
+ | ^img[/$branch/i/photo-left-btm.jpg] |
+ ^insertia[]
+ |
+ |
+ ^if(def $local){^localmenu[] }{^if(-f "/$branch/i/b-btm-line.gif"){^img[/$branch/i/b-btm-line.gif]}{^img[/i/b-btm-line.gif]}}
+ ^content[]
+ |
+ ^if(-f "/$branch/i/dec-btm-right.gif"){^img[/$branch/i/dec-btm-right.gif]}{} |
+ ^img[/i/dec-top-right.gif] |
+
+ ^btm[]
+
@main[]
-/auto.p main
+$branches[^table::load[/branches.cfg]]
+$shortURI[^request:uri.mid(1;^request:uri.length[]-1)]
+$splitURI[^shortURI.lsplit[/]]
+^if(-f ^file:find[section.cfg]){
+ $subbranches[^table::load[^file:find[section.cfg]]]
+ $branch[^request:uri.mid(1;^request:uri.length[]-1)]
+ $branch[^branch.mid(0;^branch.pos[/])]
+ ^if(-f ^file:find[local.cfg]){
+ $local[^table::load[^file:find[local.cfg]]]
+ }
+}
+
+
+
+
+ Lord of the Dance
+ ^if(def $branch){
+ ^if(^branches.locate[folder][$branch]){| $branches.name}
+ ^if(^splitURI.count[] > 1){
+ ^if(^subbranches.locate[folder][^splitURI.offset(1)$splitURI.piece^splitURI.offset(-1)]){| $subbranches.name}
+ ^if(^splitURI.count[] > 2){
+ ^if(def $local){^if(^local.locate[folder][^splitURI.offset(2)$splitURI.piece^splitURI.offset(-2)]){| $local.name}}
+ }
+ }
+ }
+
+# ^if(def $prepare){^prepare[]}
+
+
+
+
+
+
+  |
+  |
+  |
+
+
+ ^img[/i/logo.gif]
+^img[/$branch/i/photo-left-top.jpg]^img[/$branch/i/photo-right-top.jpg] |
+
+ |
+
+
+ |
+ ^nafigator[]
+ |
+
+
+ | ^img[/$branch/i/photo-left.jpg] |
+
+ ^header[]
+ |
+
+
+
+
+
+
+
+
+
\ No newline at end of file