|
|
| version 1.38, 2001/03/22 21:33:41 | version 1.166, 2001/05/07 14:09:08 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @t[a] |
| $t[^table:load[/test.cfg]] | -${a}- |
| ^$t.a=$t.a<BR> | @end |
| ^$env:PATH_TRANSLATED=$env:PATH_TRANSLATED<BR> | |
| ^$env:AUTH_USER=$env:AUTH_USER<BR> | |
| ^$env:AUTH_PASSWORD=$env:AUTH_PASSWORD<BR> | |
| ^$env:AUTH_TYPE=$env:AUTH_TYPE<BR> | |
| @main[] | |
| $env:REMOTE_ADDR<BR> | $splitURI[^request:uri.lsplit[/]] |
| $response:paf[k] | $splitURI.0!$splitURI.1 |
| $response:Connection[kla] | <HR> |
| ^rem{ | $t2[^table:set{dir title |
| $response:body[] | /here Here |
| $response:location[http://parser3/123] | }] |
| $t2{^menu{${dir}-$title}[,]} | |
| <HR> | |
| $dir[news] | |
| $list[^table:dir[$dir]] | |
| ^list.menu{ | |
| $subdir[$dir/$list.name] | |
| $sublist[^table:dir[$subdir]] | |
| ${list.name}/ $sublist{^menu{$name}[,]}<br> | |
| } | } |
| <HR> | |
| ^t[x] | |
| ^$root_test=$root_test !<BR> | <HR> |
| ^$site_test=$site_test !<BR> | ^if(in "/otherdeeper"){y;n} |
| ^${cookie:вот}=${cookie:вот}?<BR> | <HR> |
| ^$request:query=$request:query<BR> | ^$form:проверка_имя=$form:проверка_имя<BR> |
| ^$request:uri=$request:uri<BR> | |
| <form method=post> | <form method=post> |
| (^$form:name=$form:name)<BR> | <input name=проверка_имя value=проверка_значение> |
| <input name=name value="^default[$form:name;не знаю]"> | |
| <input type=submit> | <input type=submit> |
| </form> | </form> |
| <HR> | |
| @default[test;def] | ^^table:dir[/]:<BR> |
| ^if(^test.length[]){$test}{$def} | $d[^table:dir[/]] |
| $d{^menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};<BR>}} | |
| <HR> | |
| $files[^table:set{name}] | |
| $d{^menu{ | |
| ^if(-d "$name"){ | |
| ^:files.append{$name} | |
| } | |
| }} | |
| @exception[origin;source;comment;type;code] | $files{^menu{$name}[,]} |
| <HR> | |
| @exception[origin;source;comment;type;code][i;j] | |
| <body bgcolor=black> | <body bgcolor=black> |
| <font color=white> | <font color=white> |
| ERROR: | ERROR: |
| Line 42 ERROR: | Line 54 ERROR: |
| ${comment}. | ${comment}. |
| ^if(def $type){type=$type} | ^if(def $type){type=$type} |
| ^if(def $code){code=$code} | ^if(def $code){code=$code} |
| @auto_test[] | |
| ^BASE.auto_test[] | |
| <li>${request:uri}! | |