#!/bin/tcsh -f
# fmb, 20001129, 20040922, 20090921

#set LOG=/usr/local/etc/NCSAhttpd/logs/access_log
#set LOG=/etc/httpd/logs/access_log
set LOG=/var/log/apache2/access.log	# OJO, tiene permisos 640, no 644!
set TMP = /tmp/taf.$$
grep 'fmb/cine\.html' $LOG | sed 's/</\&lt;/g' >! $TMP
set WC = `cat $TMP | wc -lc`
set NL = `echo $WC | cut -d' ' -f1`
set NB = `echo $WC | cut -d' ' -f2`

echo "Content-type: text/html"
echo ""
echo "<HTML>"
echo "<HEAD><TITLE>F. Morán - Videotk access list</TITLE></HEAD>"
echo "<BODY BACKGROUND=/~fmb/pict/web_bkg.gif>"
echo "<CENTER>"
echo "<H2>Access list for fmb's <I>Videotk</I><BR>"
echo "at www.gti.ssr.upm.es in the past few days:<BR>"
echo "All transfers ($NL lines, $NB bytes).</H2>"
echo "</CENTER>"
echo "<P>"
echo "<HR WIDTH=88%>"
echo "<P>"
echo "<FONT SIZE=-2>"
echo "<PRE>"
cat $TMP
echo "</PRE>"
echo "</FONT>"
echo "</BODY>"
echo "</HTML>"

rm $TMP

