#!/usr/bin/perl

# $Id: ustats,v 1.1 1997/11/23 23:47:22 crosser Exp $
#
# $Log: ustats,v $
# Revision 1.1  1997/11/23 23:47:22  crosser
# Initial revision
#

$out="/usr/local/etc/httpd/htdocs/ustats.html";

unshift(@INC,"/usr/local/lib/fido7");
require "config.pl";
require "db.pl";

@criminals;

while (($u,$v)=each %DB) {
	%rec=&u_find($u);
	if (!$rec{'deny'}) {
		$clean++;
	} elsif ($rec{'deny'} eq $UNREG) {
		$unreg++;
	} else {
		$dirty++;
		push(@criminals,$u);
	}
}

open(STDOUT,">".$out) || die "cannot open $out: $!";

print "<HTML><HEAD><TITLE>Fido7 gateway user summary</TITLE></HEAD>\n";
print "<BODY BGCOLOR=#fffff0>\n";
print "<CENTER><H1>Fido7 gateway user summary</H1>\n";

$fmt="<tr><td>%s</td><td align=right>%d</td></tr>\n";

print "<table border=1>\n";
printf $fmt,"Not registered",$unreg;
printf $fmt,"Registered",$clean;
printf $fmt,"Blocked",$dirty;
printf $fmt,"<B>Total</B>",$unreg+$clean+$dirty;
print "</table>\n";

print "<h3>Blocked addresses</h3>\n";

print "<table border=1>\n";
foreach $criminal(sort @criminals) {
	%rec=&u_find($criminal);
	print "<tr><td>$criminal</td><td>$rec{'deny'}</td></tr>\n";
}
print "</table>\n";

print "</CENTER>\n";
print "<P><HR><A HREF=/>www.fido7.ru</A>\n";
print "</BODY></HTML>\n";
