Chat Online Status Fix

Closed

I have a small section of Perl code that Does not appear to be working (see below). Basically it uses LWP::Simple to get a list of online chatters from my chat area, and it is suppose to display who is online . The URL is also hosted on my site as well and I know it works. When that URL is called, it produces the following (assuming "eddie" and "sue" is online):

1 user is connected to the server

eddie

sue

---

Here is part of the Perl script that calls the PHP script:

if ($uid) {

use LWP::Simple;

my $url = "[url removed, login to view]";

my $online = get($url);

foreach my $line ( split(/\n/,$online) ) {

if($line =~ m#<li>(.*)</li>#isog) {

my $cusr = lc($1);

$chatting{$cusr}++;

}

}

}

---

I believe this part is working as I have tested LWP::Simple on my server and all appears to be fine with it. If this part is working, the section below is what displays whether the user is online or offline:

if ($uid) {

if ($chatting{$blog{'user_name'}}) {

$on_status = qq^ <div>$l_visit <br><img border="0" src="$global{admin_image_path}/[url removed, login to view]" width="15" height="15" align="absmiddle" style="margin-right:2px;"> <a title="start chatting" href="javascript:ChatPop('[url removed, login to view]');"><font color="#00AD00">is chatting</font></a></div>

<div class="userPanelButtons">

<br>&nbsp;

</div>\n^;

} else {

$on_status = qq^ <div>$l_visit <br> <img border="0" src="$global{admin_image_path}/[url removed, login to view]" width="15" height="15" align="absmiddle" style="margin-right:2px;"> <a title="start chatting" href="javascript:ChatPop('[url removed, login to view]');">not chatting</a></div>

<div class="userPanelButtons">

<br>&nbsp;

</div>\n^;

}

I believe this to be a pretty quick fix, but I do not know what to look for. I would be looking to pay $30. I am available via Google Talk to quickly award a winner and text a solution. This coding used to work, but for some reason, it stopped a while back.

Thanks, Ed

Skills: Perl, PHP

See more: work online for google, php work online, php code online, perl chat script, online works com, look for work online, li-be, it works global, c++ online coding, coding work online, coding php online, code online google, code it right online, php chat online status, working online for google, sue, Online works, list of online, global solution, global online, code ed, class online, chat php code, Chat on line

Project ID: #1651532

Awarded to:

gangabass

I can do this for you. See PM for details.

$30 USD in 0 days
(190 Reviews)
6.2

1 freelancer is bidding on average $30 for this job

dracco

hello, I'm really interested in your project and I can do this in a short time. I'm ready to start right away. Best regards. Dracco.

$30 USD in 1 day
(126 Reviews)
5.8