#!/bin/rc
rfork e
b=0
if(~ $1 -b){
	b=1
	shift
}
if(~ $#1 0)
	exit 'usage'
f=$1
if(~ $b 1){
	f=`{basename $1}
	f=$"f
}

echo -n '<!DOCTYPE html>

<html>
<head><title>'$f'</title></head>
<body>'
if(test -e $f){
echo '<h1>'$f'</h1>
<pre>'
text2html $f
echo '</pre>'
}
if not
	echo 'Object' $f 'not found'
echo '</body></html>'
