Print Who Is Online
1.0
This mod adds the possibility to output the guests and users who are currently online. To add the count of guests on a html page, just add
and for the members:
(replace "./cgi-bin/" by the your boardpath)
[CV)XXL
http://boardmod.xnull.com
Sources\Subs.pl
1;
sub printwhoisonline {
print "Content-type: text/html\n\n";
$guests = 0;
$users = '';
fopen(FILE, "$vardir/log.txt");
@entries = ;
fclose(FILE);
foreach $curentry (@entries) {
chomp $curentry;
($name, $value) = split(/\|/, $curentry);
if( $name ) {
&LoadUser($name);
if( exists $userprofile{$name} ) {
$users .= qq~ $userprofile{$name}->[1], \n~;
}
else { ++$guests; }
}
}
$users =~ s~, \n\Z~~;
if ($INFO{'group'} eq "guests") { print "$guests"; }
if ($INFO{'group'} eq "users") { print "$users"; }
exit;
}
YaBB.pl
elsif ($action eq 'profile2') { require "$sourcedir/Profile.pl"; &ModifyProfile2; }
elsif ($action eq 'printwhoisonline') { require "$sourcedir/Subs.pl"; &printwhoisonline($INFO{'group'}); }