/hits/[all the id files].txt ##

##

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

open(USERS,"members.txt");
while(){
   chomp;
   my($user,$email) = split(/\|/);
   open(USR,"$user.txt") or next;
   $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

for(sort {$rank{$b}{hits} <=> $rank{$a}{hits}} keys %rank){
   print "\n";
}




Site
button
 Hits 
".
   $rank{$_}{sitename}."
$rank{$_}{desc} ".$rank{$_}{hits}."

Site	button	Hits
". $rank{$_}{sitename}." $rank{$_}{desc}		".$rank{$_}{hits}."