Gossamer Forum
(Advanced Search)
for
Home : Products : Gossamer Forum : Discussion :

Who's Online Global

Dec 2, 2004, 10:56 AM
SeanP
User (456 posts)
Dec 2, 2004, 10:56 AM
Post #1 of 8
Views: 5216
Shortcut
Quote Reply
Who's Online Global
I'm trying to figure out how to make the Who's Online global display with each username listed, linked to their profile view. I have the following:

Code:
sub {
my @found = ();
my $table = $DB->table('Online','User');
my $sth = $table->select( { 'Online.online_invisible' => 0, 'Online.guest_id_fk' => 0 }, ['User.user_username'] );

while (my $userid = $sth->fetchrow_hashref) {
push @found, "<A Href=\"http://www.mydomain.com/cgi-bin/forums/gforum.cgi?username=$userid->{user_username}\">$userid->{user_username}</A>";
}
return (@found ? join(', ', @found) : 'None');
}

This displays the HTML, but it converts the HTML code once it is displayed in a template. I see the actual code, because it converts the <>=" characters to ascii codes. Any advice on how to get this to work would be greatly appreciated!

Sean
Dec 2, 2004, 11:57 AM
Jagerman
Staff / Moderator (2198 posts)
Jagerman's avatar
Dec 2, 2004, 11:57 AM
Post #2 of 8
Views: 5106
Shortcut
Quote Reply
Re: [SeanP] Who's Online Global In reply to
Hi Sean,

In order to have GForum globals return HTML that won't be HTML-escaped, you need to return the value as a Perl scalar reference - to do this, change the last line:

return (@found ? join(', ', @found) : 'None');

to:

return (@found ? \join(', ', @found) : 'None');

Without the \, Gossamer Forum will HTML-escape any return values from globals.
Jason Rhinelander
Gossamer Threads
jason@gossamer-threads.com
Dec 2, 2004, 12:40 PM
SeanP
User (456 posts)
Dec 2, 2004, 12:40 PM
Post #3 of 8
Views: 5103
Shortcut
Quote Reply
Re: [Jagerman] Who's Online Global In reply to
That works... Thanks. How do you sort the usernames in alphabetical order?

Sean
Dec 2, 2004, 1:11 PM
Jagerman
Staff / Moderator (2198 posts)
Jagerman's avatar
Dec 2, 2004, 1:11 PM
Post #4 of 8
Views: 5118
Shortcut
Quote Reply
Re: [SeanP] Who's Online Global In reply to
Before this line:

my $sth = $table->select(...

add:

$table->select_options("ORDER BY user_username");
Jason Rhinelander
Gossamer Threads
jason@gossamer-threads.com
Dec 2, 2004, 1:24 PM
SeanP
User (456 posts)
Dec 2, 2004, 1:24 PM
Post #5 of 8
Views: 5076
Shortcut
Quote Reply
Re: [Jagerman] Who's Online Global In reply to
Works great! Thanks!
Dec 14, 2004, 2:33 PM
SeanP
User (456 posts)
Dec 14, 2004, 2:33 PM
Post #6 of 8
Views: 5080
Shortcut
Quote Reply
Re: [Jagerman] Who's Online Global In reply to
My final global now looks like:

Code:
sub {

my @found;
my $table = $DB->table('Online','User');
$table->select_options ('ORDER BY user_username ASC');
my $sth = $table->select( { 'Online.online_invisible' => 0, 'Online.guest_id_fk' => 0 }, ['User.user_username']);

while (my $userid = $sth->fetchrow_hashref) {
push @found, "<font size=1><A Href=\"/cgi-bin/forums/gforum.cgi?username=$userid->{user_username}\">$userid->{user_username}</A></font>";
}
return (@found ? \join(', ', @found) : 'None');
}


I'm having a slight problem with the Online table not updating itself properly until someone accesses the Who's Online page. So, if someone logs off and nobody accesses the Who's Online for a while, it still lists them as online. I tried adding the following line to the beginning of the global in order to run the whos_online sub routine:

Code:

&GForum::Online::whos_online;

It seems to work some of the time, but other times I get an error that brings the site down. Any help would be greatly appreciated.

Sean
Dec 14, 2004, 3:53 PM
Jagerman
Staff / Moderator (2198 posts)
Jagerman's avatar
Dec 14, 2004, 3:53 PM
Post #7 of 8
Views: 5103
Shortcut
Quote Reply
Re: [SeanP] Who's Online Global In reply to
Try adding this near the beginning of your global:

$DB->table('Online')->delete(GT::SQL::Condition->new(online_time => '<' => (time - $CFG->{online_timeout} * 60)));

That'll purge the Online table of any expired entries.
Jason Rhinelander
Gossamer Threads
jason@gossamer-threads.com
Dec 15, 2004, 10:52 AM
SeanP
User (456 posts)
Dec 15, 2004, 10:52 AM
Post #8 of 8
Views: 5079
Shortcut
Quote Reply
Re: [Jagerman] Who's Online Global In reply to
That works great! Thanks!