#!/bin/rc
rfork e
w=`{basename -d $"request}
f=$"request
if(test -d /doc$f){
echo 'Content-Type: text/html; charset=utf-8

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>'$w'</title>
<link rel="stylesheet" type="text/css" href="/style.css">
</head>
<body><pre>'
if(test -d /doc$f){
	echo '<b>'$f'</b>'
	lr  -lid0 * | awk '{
	if(substr($1,1,1) == "d")
		printf "%10d %10s <a href=\"%s/\">%s/</a>\n", $4, $5,$7, $7
	else if(substr($10,1,1) != ".")
		printf "%10d %10s <a href=\"%s\">%s</a>\n", $4, $5,$7, $7
	}'
}
echo '</pre></body></html>'
}
if not if(test -e /doc$f){
echo 'Content-Type: text/plain; charset=utf-8
'
	cat /doc$f
}
if not
	echo NOT EXIST

