shithub: misc

ref: a8873f75169ddcb7d280f23e834926ef577b2530
dir: /werc/ls/app.rc/

View raw version 
fn ls_init{
	handler_body_main=(ls_body $req_path)
}

fn ls_body{
	d=`{basename -d $1}
	if(~ $#d 0)
		d='/'
	echo $d | sed 's,.*//,,g; s,/$,,; s,/, / ,g; s,.*,<h1 class="dir-list-head">&</h1> <ul class="dir-list">,'
	echo '<a href="../">..</a><br><table border="0"><tr><th>size<th>last modified<th>name</tr>'
	ls -Fl $sitedir$d | sed $dirclean'/_werc/d;s/^[^ ]+ [^ ]+ [^ ]+ [^ ]+ [^ ]+ +//;s/^([^ ]+) (.*) [^ ]+\/([^''\/\* ]+\/?)''?(\*?)$/<tr><td>\1<td>\2<td><a href="\3">\3\4<\/a><\/tr>/'
	echo '</table></ul>'
}