$memsettings[12]
EOT
if($username eq $INFO{'username'}) {
require "$sourcedir/BuddyList.pl"; &List2;
print <<"EOT";
$budlist
$mybuddylist
EOT
}
print <<"EOT";
Sources/BuddyList.pl
1;
##Added for Buddylist on profile page##
##Offline members are bold and at top of list!##
##Addresses taken off to save space :)##
##Counts how many people online or offline in: online/totalonlist or offline/totalonlist##
sub List2 {
my($buddy, $bemail, $bname, $online, @bl, $name, $bdate, $offcount, $oncount);
$offcount = 0;
$oncount = 0;
$bcount = 0;
if($username eq 'Guest') { &fatal_error("Guests cannot view the Buddy List."); }
fopen(BL,"$memberdir/$username.buddy");
@bl = ;
fclose(BL);
foreach $buddy (@bl) {
chomp $buddy;
($bname, $bdate, $bemail) = split(/\|/, $buddy);
if($bname ne '' && $bemail eq '') {
$online = "?";
fopen(FILE, "$vardir/log.txt");
@entries = ;
fclose(FILE);
foreach $curentry (@entries) {
chomp $curentry;
($name, $value) = split(/\|/, $curentry);
if( $name ) {
&LoadUser($name);
if( $useraccount{$bname} eq $bname) {
$online =~ s~\?~Online~;
}
}
}
$online =~ s~\?~Offline~;
&LoadUser($bname);
if($online eq "Offline") { $offline .= qq~$userprofile{$bname}->[1]\n
\n~; $offcount++; }
if($online eq "Online") { $onlinea .= qq~$userprofile{$bname}->[1]\n
\n~; $oncount++ }
$bcount++;
}
if($bname eq '' && $bemail ne '') {
# This is an e-mail address.
$addyemail = $bemail;
if(length($addyemail) > 13) {
substr($addyemail,13,20000) =~ tr/a-z.@A-Z/š/;
$addyemail =~ s/š//g;
$addyemail .= qq~...~;
}
$addybookmail .= qq~$addyemail
\n~;
}
}
if($onlinea eq '') { $onlinea = "None"; }
if($offline eq '') { $offline = "None"; }
if($addybookmail eq '') { $addybookmail = "None
"; }
$mybuddylist = <<"EOT";
EOT
}
##Added for Buddylist on profile page##
| |