ezAPI Perl / ASP (PerlScript)

Perl / ASP (PerlScript) Implementation of Who's Online

by Wandering Drummer

Who's Online statistics for Help Forums
visitors in the last 15 minutes: Members - Guests - Anonymous

Code (Perl)

#!/usr/local/bin/perl

$pub = "beta"; #the PUB the board is on
$boardid = "bezboard"; #the boardid of the board 
$boardname = "Help Forums"; #The name of the board

ezapiWhosOnline($pub, $boardid, $boardname);

sub ezapiWhosOnline ($pub, $boardid, $boardname) {
	
	$url = "http://$pub.ezboard.com/$boardid.ezAPIWhosOnline";
	
	use LWP::Simple;
	
	$text = get $url;
	%data = split (/\r/, $text);
	@ids = split (/,/, $data{wo_ids});
	@names= split (/,/, $data{wo_names});
	
	if ($data{wo_retcode}=="OK") 
	{
	 print "Who's Online statistics for <a href=\"http://$pub.ezboard.com/$boardid\">$boardname</a> \n";
	 print "$data{wo_visitors} visitors in the last 15 minutes: $data{wo_members} Members - $data{wo_guests} Guests - $data{wo_anonymous} Anonymous\n";
	
	 print "";	 
	 for ($x=0; $x<$data{wo_members}; $x++)
	 {
	 print "<a href=\"http://$pub.ezboard.com/$boardid.showUserPublicProfile?gid=$ids[$x]\">";
	 print "$names[$x]";
	 print "</a>";
	 if ($x != $data{wo_members}-1)
	 {
	 print " - ";
	 }
	 print "\n";
	 }
	 print "";
	}else{
	 print "Who's online for <a href=\"http://$pub.ezboard.com/$boardid\">$boardname</a> are currently not available \n";
	}
}

Code (PerlScript)

#!/usr/local/bin/perl

$pub = "beta"; #the PUB the board is on
$boardid = "bezboard"; #the boardid of the board 
$boardname = "Help Forums"; #The name of the board

ezapiWhosOnline($pub, $boardid, $boardname);

sub ezapiWhosOnline ($pub, $boardid, $boardname) {
	
	$url = "http://$pub.ezboard.com/$boardid.ezAPIWhosOnline";
	
	use LWP::Simple;
	
	$text = get $url;
	%data = split (/\r/, $text);
	@ids = split (/,/, $data{wo_ids});
	@names= split (/,/, $data{wo_names});
	
	if ($data{wo_retcode}=="OK") 
	{
	 $Response->Write("Who's Online statistics for <a href=\"http://$pub.ezboard.com/$boardid\">$boardname</a> \n");
	 $Response->Write("$data{wo_visitors} visitors in the last 15 minutes: $data{wo_members} Members - $data{wo_guests} Guests - $data{wo_anonymous} Anonymous\n");
	
	 $Response->Write("");	 
	 for ($x=0; $x<$data{wo_members}; $x++)
	 {
	 $Response->Write("<a href=\"http://$pub.ezboard.com/$boardid.showUserPublicProfile?gid=$ids[$x]\">");
	 $Response->Write("$names[$x]");
	 $Response->Write("</a>");
	 if ($x != $data{wo_members}-1)
	 {
	 $Response->Write(" - ");
	 }
	 $Response->Write("\n");
	 }
	 $Response->Write("");
	}else{
	 $Response->Write("Who's online for <a href=\"http://$pub.ezboard.com/$boardid\">$boardname</a> are currently not available \n");
	}
}