#!/usr/bin/perl
use Carp;
use vars qw(%config %category %form %super);
require "/var/www/vhosts/mysite.com/cgi-bin/categories.cgi";
$config{'basepath'} = '/var/www/vhosts/mysite.com/cgi-bin/';
$config{'bluedir'} = 'register';


my $key;
my $numusers = 1;       
opendir THEDIR, "$config{'basepath'}$config{'bluedir'}";
my @allfiles = grep -T, map "$config{'basepath'}$config{'bluedir'}/$_", readdir THEDIR;
closedir THEDIR;
$numusers = $numusers + @allfiles;        


my $totalfiles = 100;
foreach $key (sort keys %category) {
opendir THEDIR, "$config{'basepath'}$key";
my @allfiles = grep -T, map "$config{'basepath'}$key/$_", readdir THEDIR;
closedir THEDIR;
$totalfiles = $totalfiles + @allfiles;
}

####################################
print "Content-type: text/html\n\n";
#print "<center><font face=arial size=2><b>There are currently<font color=FF0000> $numusers</font> registered users and<font color=FF0000> $totalfiles</font><font color=000000> open auctions.</font></b></center>\n";
	print <<"EOF";
<div align=center>
  <center>
  <table border=0 cellpadding=0 cellspacing=0 width=100\%>
    <tr>
      <td width=100\% valign=middle align=center height=15></td>
    </tr>
    <tr>
      <td width=100\% valign=middle align=center height=20><font face=Arial size=2><b>There
        are currently:</b></font></td>
    </tr>
    <tr>
      <td width=100\% valign=middle align=center height=15></td>
    </tr>
    <tr>
      <td width=100\% valign=middle align=center><img src=/images/users.gif> &nbsp;&nbsp;<font face=Arial size=2><b><font color=#FF0000>$numusers</font>
        registered users.</b></font></td>
    </tr>
    <tr>
      <td width=100\% valign=middle align=center height=0></td>
    </tr>
    <tr>
      <td width=100\% valign=middle align=center><img src=/images/auci.gif> &nbsp;&nbsp;<font face=Arial size=2><b><font color=#FF0000>$totalfiles</font>
        open auctions.</b></font></td>
    </tr>
    <tr>
      <td width=100\% valign=middle align=center height=15></td>
    </tr>
  </table>
  </center>
</div>

EOF

1;