#!/bin/ksh
FILE=`echo $1|cut -c10-30`
LOG=/sys/log/spam

case $FILE in
 *..*|*/*) FILE="" ;;
esac

if [ "$FILE" = "" ]
then exit 0
fi

if [ ! -f $LOG/$FILE ]
then 
echo "<br><center>"
echo "<table bgcolor=CCCCCC border=1 cellpadding=4 cellspacing=0 width=400>"
echo "<tr><td width=500><font face=arial size=-1>"
echo "There is no log history for $FILE, because their mailserver<br>"
echo "is using a forged or false FQDN (Fully Qualified Domain Name)."
echo "</font></td></tr></table>"
echo "<p>[<a href=http://sdf.org/index.cgi?spammers>back</a>]"
exit 0
fi

echo "<br><center>"
echo "<table bgcolor=CCCCCC border=1 cellpadding=4 cellspacing=0 width=400>"
echo "<tr><td width=500><font face=arial size=-1>"
awk '{print} {print "<HR>"}' $LOG/$FILE|cut -d: -f1,2,3,4,5,6
echo "</font></td></tr></table>"
echo "<p>[<a href=http://sdf.lonestar.org/index.cgi?spammers>back</a>]"