$item<\/a>/ if $item ne "COMMAND";} chomp $foo; print $foo;' \
for i in *; do
if [ ! `echo "$i"|grep "\."` ]; then
if [ ! -d $i ]; then
#echo "$i .."
upper=`echo "$i" | tr [:lower:] [:upper:]`
writeout "$i
"
writeout ""
cat $i | perl -ple 's//\>/g;' \
| perl -ple 's/%\|//;' \
| perl -ple 's/([:,] )([^, ]+)([^,]*)/$1$2$3<\/a>/g if /^See also:/;' \
| perl -ple 's/^[ ]/ /g' \
| perl -ple 's/$/
/;' >> $of
writeout "
"
writeout "
"
fi
fi
done
writeout "