#!/bin/rc
rfork e
w=`{basename -d $"request}
f=`{basename $"request}
echo '
'$w'
'$w'
'
if(test -e README){
echo 'README
'
cat README
echo '
'
}
if(test -e INDEX){
awk 'BEGIN{print "INDEX
\n"}
/^[\t ].+/{printf "%s
\n", $0; next}
/.+/{printf "- %s\n
- ", $1, $1}
END{print "
"}' INDEX
}
if not if(test -e /doc$w){
echo 'Contents
'
ls -l | awk '{
if(substr($1,1,1) == "d")
printf "%10d %s/\n", 0, $10, $10
else if(substr($10,1,1) != ".")
printf "%10d %s\n", $6, $10, $10
}'
echo ''
}
echo ''