#!/bin/rc

DATE=`{ date +%Z%Y%b%d/%R }

fn formatfile {
cat <<EOF
<HR><DL><DT>
EOF
cat $1 \
| sed -e 's+\&+</DD><DT>+g' -e 's+=+</DT><DD>+g' -e 's+$+</DD></DL><HR><DL><DT>+g' \
| tr '&' '</DD><DT>' \
| ./parsecgi
cat <<EOF
</DD></DL><HR>
EOF
}

cat <<EOF
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
                      "http://www.w3.org/TR/html40/strict.dtd">
<HTML>
<HEAD>
<TITLE>Book request logs</TITLE>
<LINK REV=MADE HREF="mailto:${LIBRARY_MONITOR}">
</HEAD>
<BODY LANG="BR-EN">
<H1><A HREF="http://www.york.ac.uk/">The University of York</A>
<BR>/<A HREF="http://www.cs.york.ac.uk/">Department of Computer Science</A>
<BR>/<A HREF="http://www.cs.york.ac.uk/books/">Library and Bookshop Liason</A>
<BR>/Library request log</H1>
<UL>
<LI><A HREF="#BookReqs">Book requests</A></LI>
<LI><A HREF="#JournalReqs">Journal requests</A></LI>
</UL>
<A NAME="BookReqs"><H2>Book requests</H2></A>
EOF

formatfile ../bookreq.dat

cat <<EOF
<A NAME="JournalReqs"><H2>Journal requests</H2></A>
EOF

formatfile ../journalreq.dat

cat <<EOF
<ADDRESS>
Library and Bookshop Liason.  Automatically generated at $DATE
</ADDRESS>
</BODY>
</HTML>
EOF
