I'm using 10.3.6 and I installed the perl chat mod that Martin made some time ago. ( http://www.eblah.com/forum/m-1170621715). I edited Routines.pl like this:
|
Code
if($username eq 'Guest') {
$userwelcome = $displayuser = qq~$rtxt[1], <strong>$rtxt[2]</strong>.~;
$displayuser .= $userpm = qq~$rtxt[3] <a href="$surl\lv-login/" rel="nofollow">$rtxt[4]</a> $rtxt[44] <a href="$surl\lv-register/" rel="nofollow">$rtxt[5]</a>.~; ShowGuest();
} elsif($lockuserout) {
$userwelcome = $displayuser = qq~$rtxt[1] $rtxt[9] <strong>$username</strong>.~;
$displayuser .= $userpm = $rtxt[7];
$memberid{$username}{'md5upgrade'} = 1;
} else {
if(!$pmdisable) {
if($pmmaxquota && $pmmaxquota-((-s"$members/$username.pm")/1024) < 0) { $userpm = qq~<strong><img src="$images/warning_sm.png" class="centerimg" alt="" /> $rtxt[67] <img src="$images/warning_sm.png" class="centerimg" alt="" /></strong>~; }
else {
$memberid{$username}{'pmnew'} = $memberid{$username}{'pmnew'} || 0;
$memberid{$username}{'pmcnt'} = $memberid{$username}{'pmcnt'} || 0;
$newpms = qq~ (<strong>$memberid{$username}{'pmnew'} $rtxt[11]</strong>)~ if($memberid{$username}{'pmnew'} > 0);
$displayuser .= $userpm = qq~ $rtxt[10] <strong>$memberid{$username}{'pmcnt'}</strong>$newpms <a href="$surl\lv-memberpanel/a-pm/" title="$rtxt[12]">$rtxt[13]</a>.~;
}
} else { $displayuser .= $userpm = " $rtxt[54]"; }
|
|
to
|
Code
if($username eq 'Guest') {
$userwelcome = $displayuser = qq~$rtxt[1], <strong>$rtxt[2]</strong>.~;
$displayuser .= $userpm = qq~$rtxt[3] <a href="$surl\lv-login/" rel="nofollow">$rtxt[4]</a> $rtxt[44] <a href="$surl\lv-register/" rel="nofollow">$rtxt[5]</a>.~; ShowGuest();
} elsif($lockuserout) {
$userwelcome = $displayuser = qq~$rtxt[1] $rtxt[9] <strong>$username</strong>.~;
$displayuser .= $userpm = $rtxt[7];
$memberid{$username}{'md5upgrade'} = 1;
} else {
if(!$pmdisable) {
if($pmmaxquota && $pmmaxquota-((-s"$members/$username.pm")/1024) < 0) { $userpm = qq~<strong><img src="$images/warning_sm.png" class="centerimg" alt="" /> $rtxt[67] <img src="$images/warning_sm.png" class="centerimg" alt="" /></strong></a><br /><a href="http://www.mysite.com/cgi-bin/cgichat/chat.pl?logIn=1" target="_blank">Chat room</a>~; }
else {
$memberid{$username}{'pmnew'} = $memberid{$username}{'pmnew'} || 0;
$memberid{$username}{'pmcnt'} = $memberid{$username}{'pmcnt'} || 0;
$newpms = qq~ (<strong>$memberid{$username}{'pmnew'} $rtxt[11]</strong>)~ if($memberid{$username}{'pmnew'} > 0);
$displayuser .= $userpm = qq~ $rtxt[10] <strong>$memberid{$username}{'pmcnt'}</strong>$newpms <a href="$surl\lv-memberpanel/a-pm/" title="$rtxt[12]">$rtxt[13]</a><br /><a href="http://www.mysite.com/cgi-bin/cgichat/chat.pl?logIn=1" target="_blank">Chat room</a>.~;
}
} else { $displayuser .= $userpm = " $rtxt[54]"; }
|
|
The result is:  &  In settings file I have $chatRefreshTime = 10; $chatOnlineRefreshTime = 10; The problem is that only the first user that enters the chat gets listed in the "Who's chatting" frame. Any ideas why? |