File:  [parser3project] / parser3 / src / www / htdocs / Attic / index.html
Revision 1.165: download - view: text, annotated - select for diffs - revision graph
Mon May 7 14:00:58 2001 UTC (25 years, 2 months ago) by paf
Branches: MAIN
CVS tags: HEAD
pa_code.h

@t[a]
-${a}-
@end

@main[]
$splitURI[$request:uri.lsplit[/]]
$splitURI.0!$splitURI.1
<HR>

$t2[^table:set{dir	title
/here	Here
}]
$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]
<HR>
^if(in "/otherdeeper"){y;n}
<HR>
^$form:проверка_имя=$form:проверка_имя<BR>
<form method=post>
<input name=проверка_имя value=проверка_значение>
<input type=submit>
</form>
<HR>

^^table:dir[/]:<BR>
$d[^table:dir[/]]
$d{^menu{$name &nbsp^;&nbsp^;&nbsp^;&nbsp^;^if(-f $name){-f} ^if(-d $name){-d};<BR>}}
<HR>

$files[^table:set{name}]
$d{^menu{
    ^if(-d "$name"){
        ^:files.append{$name}
    }
}}

$files{^menu{$name}[,]}
<HR>

@exception[origin;source;comment;type;code][i;j]
<body bgcolor=black>
<font color=white>
ERROR:
^if(def $source){$origin '$source'}
${comment}.
^if(def $type){type=$type}
^if(def $code){code=$code}

@auto_test[]
^BASE.auto_test[]
<li>${request:uri}!

E-mail: