############################################
# Welcome Newest Meber
# What it does...
# simply welcome the newest Member anywhere on your script

################# Step -1- #################
# paste these lines to your config-part

# Directory where the newmember.dat file will
# be stored
$config{'newestmember'} = 'nm';

################# Step -2- #################
# Find these lines in &proreg:
# mkdir("$config{'basepath'}$config{'regdir'}", 0777) unless (-d "$config{'basepath'}$config{'regdir'}");
# and paste this code after it

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

################# Step -3- #################
# scroll down to
# close NEWREG
# and paste this code after it

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

################# Step -4- #################
# put this sub somewhere to your script
# the end will work best :-)

#-#############################################
# Sub: Welcome Message
# This will give out a welcome message to
# the newest member; call it everywhere you
# like with &welcome_msg

sub welcome_msg {
return '' unless -r "$config{'basepath'}$config{'newestmember'}/newmember.dat" and -T "$config{'basepath'}$config{'newestmember'}/newmember.dat";
open FILE, "$config{'basepath'}$config{'newestmember'}/newmember.dat";
my ($alias,$email) = <FILE>;
close FILE;
chomp ($alias,$email);
print "$config{'sitename'} welcomes its newest member <b><a href=mailto:$email>$alias</a><b>";
}

######################
# Finally in your dispcat that you are using
# find this
######################

opendir THEDIR, "$config{'regdir'}";
readdir THEDIR;
readdir THEDIR;
my @allfiles = readdir THEDIR;
closedir THEDIR;
my $numusers = @allfiles;
print "<br><font face=arial size=1 color=000000><b>Registered Members:</b>(<font color=ff0000>$numusers</font>)</FONT></FONT>";
print "<p>$config{'categoryfont'}<font face=arial size=1><b>Current Auctions:</b>(<font color=ff0000>$totalfiles</font>)</FONT>";

### And replace the bottom line with these 2

color=ff0000>$totalfiles</font>)</FONT></p><br>";
&welcome_msg;

### So it looks like this:

opendir THEDIR, "$config{'regdir'}";
readdir THEDIR;
readdir THEDIR;
my @allfiles = readdir THEDIR;
closedir THEDIR;
my $numusers = @allfiles;
print "<br><font face=arial size=1 color=000000><b>Registered Members:</b>(<font color=ff0000>$numusers</font>)</FONT></FONT>";
print "<p>$config{'categoryfont'}<font face=arial size=1><b>Current Auctions:</b>(<font color=ff0000>$totalfiles</font>)</FONT></p><br>";
&welcome_msg;

##That's It

I have the newest version of MakeBid Deluxe, I like this add-on and went to install it, i use the dispcat9.pl, when I went to alter it for this script nothing matches, since this was a old thread is there a new script that will work?

http://www.usanetcreations.com/dcforum/User_files/43627167329b59ab.txt