#!/usr/bin/perl
print "Content-type:text/html\n\n";

open(USERS,"members.txt");
while(<USERS>){
   chomp;
   my($user,$email) = split(/\|/);
   open(USR,"$user.txt") or next;
   $USR = <USR>;
   close(USR);
   ($username,$sitename,$url,$email,$button,$desc,$hits) = split(/\|/, $USR);
   $rank{$username} = {
      'url' => $url,
      'email' => $email,
      'button' => $button,
      'desc' => $desc,
      'hits' => $hits,
	  'sitename' => $sitename,
	  'user' => $username,
   };
}

print <<EOF;
<font face="verdana" color="black">
<table COLS=5 WIDTH=\"75%\" border=\"1\" bordercolor=\"black\" cellSpacing=\"0\" cellPadding=\"0\" align=\"center\">
<tr bgcolor="#000080">
<td><b><font face=\"verdana\" color=\"white\"><center>Site</center></font></b></td>
<td><b><font face=\"verdana\" color=\"white\"><center>button</center></font></b></td>
<td><b><font face=\"verdana\" color=\"white\"><center> Hits </center></font></b></td>
</tr>

EOF

for(sort {$rank{$b}{hits} <=> $rank{$a}{hits}} keys %rank){
   print "<tr><td><a href=\"".$rank{$_}{url}."\"><center><b>".
   $rank{$_}{sitename}."</b></a><br><font face=\"verdana\" size=\"1\"><b>$rank{$_}{desc}</b></font><td width=\"88\"><img height=\"31\" width=\"88\" src=\"".$rank{$_}{button}.
   "\" width=\"88\" height\"31\"></td><td><center>".$rank{$_}{hits}."</center></td></tr>\n";
}