Show birthday 1.0
1.0
This is the first version for showing who are birthday today in infocentre
eg. Todays birthday: userabc(29) usern(543)
with a link to their user profile
This is version 1.0
the next version will include some admin functions
Max
http://viva.2y.net/
Sources/BoardIndex.pl
$txt{'141'}: $guests
$txt{'142'}: $users |
EOT
###############################################
#Birthday mod plugin for YaBB 1Gold #
# By Max : staff@my.netvigator.com #
###############################################
require "$sourcedir/Subs.pl";
&timeformat($date);
($tocheckm, $tocheckd, $tocheckys) = split(/\//, $date);
($tochecky, $trash) = split(/ /, $tocheckyy);
chomp $tochecky;
$whobd = "";
$countbd = 0;
## get the userlist to check
open(FILE, "$memberdir/memberlist.txt") || die "cannot open list file";
@members = ;
close(FILE);
foreach $usernames (@members) {
chomp $usernames;
open(FILE, "$memberdir/$usernames.dat") || die "cannot open user file";
@userbd = ;
close(FILE);
chomp $userbd[16];
($matchm, $matchd, $ayy) = split(/\//, $userbd[16]);
if(($tocheckm == $matchm) && ($tocheckd == $matchd)) {
$userbd[6] =~ s/ //g;
chomp $userbd[6];
$howold = $tochecky - $ayy + 2000;
$whobg .=qq~$userbd[1]($howold) ~;
$countbd++;
}#end if
}#end foreach
chomp $whobg;
if($whobg eq '') {
$whobg = "None";
}
print <<"EOT";
$txt{'141'}: $guests
$txt{'142'}: $users
Today's Birthdays: $whobg
|
|