#!/usr/bin/perl

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

$active="/news/lib/active";
$out="/usr/local/etc/httpd/htdocs/top10.html";

@el;

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

print "<HTML><HEAD><TITLE>Top 10 fido7 newsgroups</TITLE></HEAD>\n";
print "<BODY BGCOLOR=#fffff0>\n";
print "<CENTER><H1>Top 10 fido7 newsgroups</H1>\n";

open(A,"<".$active) || die "cannot open $active: $!";

while (<A>) {
        ($name,$c1,$c2,$m)=split(/\s/);
        next unless ($name=~ /^fido7\./);
        next unless ($c1 > $c2);
        $l=sprintf("%012d %012d %s",$c1-$c2,$c1,$name);
        push(@el,$l);
}

print "<table border=1><tr><th rowspan=2>Newsgroup</th>
	<th colspan=2>Number of articles on this server</th></tr><tr>
	<th>Current</th><th>Total</th></tr>\n";
$count=0;
foreach $l(sort{-($a cmp $b)}(@el)) {
        ($cur,$tot,$nm)=split(/\s/,$l);
        #print "$l\n";
        printf "<tr><td>%s</td><td align=right>%d</td><td align=right>%d</td></tr>\n",$nm,$cur,$tot;
        last if ($count++ > 10);
}
print "</table>\n";
print "</CENTER>\n";
print "<P><HR><A HREF=/>www.fido7.ru</A>\n";
print "</BODY></HTML>\n";

close(A);
