===============================================
# Welcome Newest Member
# to display just under the category listings
================================================

# There are several ways to display date & Time
# Sample used:
# my $membertime = strftime "%b-%d-%Y </B>at<B> %T</B>", gmtime(time + $config{'systemtime'}*3600);
# Explanation of "strftime" Details can be found here
# http://php.net/manual/en/function.strftime.php

# Now paste this section to your config.pl
# around the top of the setup area:

#-#####################################
# Directory where the newestmember data file
# will be stored

$config{'newestmember'} = 'newestmember';


=======================================================


# Now in the auction.pl file under the sub procreg {
# Find these lines:

umask(000);  # UNIX file permission junk
mkdir("$config{'regdir'}", 0777) unless (-d "$config{'regdir'}");

# Now paste this code after it

mkdir("$config{'basepath'}$config{'newestmember'}", 0777) unless (-d "$config{'newestmember'}");

# Create a NOW-Time Variable

my $membertime = strftime "%b-%d-%Y </B>at<B> %T</B>", gmtime(time + $config{'systemtime'}*3600);

# Now under same sub "the sub procreg {" find these lines:

print "$form{'ALIAS'}, you should receive an e-mail to $form{'EMAIL'} in a few minutes.  It will contain your password needed to sell or bid. If you do not get an e-mail, please re-register.\n";

# Now paste this just after the above you just found above:

&oops('We were unable to write to the user directory.') unless (open NEWMEMBER, ">$config{'basepath'}$config{'newestmember'}/newestmember.dat");
print NEWMEMBER "$form{'ALIAS'}\n$form{'EMAIL'}\n$membertime";
close NEWMEMBER;


=======================================================


# Now in your dispcatX.pl file that you are using 
# for your main page display (this installed defualt is dispcat8.pl)
# find this section:


       ######## Auction Statistics ##################
       print "<p>";
       print "<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" WIDTH=\"100%\">";
       print "<TR><TD ALIGN=\"CENTER\" BGCOLOR=\"$config{'colortablehead'}\"><b>Auction Statistics</b></TD></TR>";
             
       print "<TR><TD BGCOLOR=\"$config{'colortablebody'}\">Current Auctions Listed</b><font Color=\"red\"> ($totalfiles2)</FONT></TD></TR>";
       
       print "<TR><TD BGCOLOR=\"$config{'colortablebody'}\">Total Registered Users</b><font Color=\"red\"> ($numusers)</FONT></TD></TR>";
            
       print "</TABLE>";


# NOTE: The area above will say this  ######## Auction Statistics ##################
# or it will say this                 ######## Site Stats ##################


# NOW replace it all with this new code:


       ######## Auction Statistics ##################
       open FILE, "$config{'basepath'}$config{'newestmember'}/newestmember.dat";
       
       my ($alias,$email,$membertime) = <FILE>; 
       # Time Variable included above as "$membertime"
       
       close FILE;
       chomp ($alias,$email,$membertime);

       print "<p>";
       print "<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" WIDTH=\"100%\">";
       print "<TR><TD BGCOLOR=\"$config{'colortablebody'}\"><B>Welcome newest member:</b><font Color=\"red\">$alias</FONT><BR>Member since: $membertime</TD></TR>";
       # Time Variable included above as $membertime
       print "</TABLE>";

       print "<p>";
       print "<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" WIDTH=\"100%\">";
       print "<TR><TD ALIGN=\"CENTER\" BGCOLOR=\"$config{'colortablehead'}\"><b>Auction Statistics</b></TD></TR>";
             
       print "<TR><TD BGCOLOR=\"$config{'colortablebody'}\">Current Auctions Listed</b><font Color=\"red\"> ($totalfiles)</FONT></TD></TR>";
       
       print "<TR><TD BGCOLOR=\"$config{'colortablebody'}\">Total Registered Users</b><font Color=\"red\"> ($numusers)</FONT></TD></TR>";
            
       print "</TABLE>";