4 |
# An HTTP server for the 2.0 web |
# An HTTP server for the 2.0 web |
5 |
# Copyright (c) 2006 contributing authors |
# Copyright (c) 2006 contributing authors |
6 |
# |
# |
7 |
# Subscriber.pm |
# Channel.pm |
8 |
# |
# |
9 |
# Description: |
# Description: |
10 |
# A Meteor Channel |
# A Meteor Channel |
163 |
|
|
164 |
&::syslog('info','', |
&::syslog('info','', |
165 |
'joinchannel', |
'joinchannel', |
166 |
$subscriber->{'ip'}, |
$subscriber->{'socketFN'}, |
|
$subscriber->{'subscriberID'}, |
|
167 |
$self->{'name'}, |
$self->{'name'}, |
168 |
$mode, |
$logStartIndex |
|
$logStartIndex, |
|
|
$userAgent |
|
169 |
); |
); |
170 |
|
|
171 |
return unless(defined($startIndex)); |
return unless(defined($startIndex)); |
199 |
{ |
{ |
200 |
splice(@{$self->{'subscribers'}},$idx,1); |
splice(@{$self->{'subscribers'}},$idx,1); |
201 |
|
|
202 |
my $timeConnected = time - $subscriber->{'ConnectionStart'}; |
my $timeConnected = time - $subscriber->{'connectionStart'}; |
203 |
&::syslog('info','', |
&::syslog('info','', |
204 |
'leavechannel', |
'leavechannel', |
205 |
$subscriber->{'ip'}, |
$subscriber->{'ip'}, |
206 |
$subscriber->{'subscriberID'}, |
$subscriber->{'subscriberID'}, |
207 |
$self->{'name'}, |
$self->{'name'}, |
208 |
$timeConnected, |
$timeConnected, |
209 |
$subscriber->{'MessageCount'}, |
$subscriber->{'messageCount'}, |
210 |
$subscriber->{'bytesWritten'}, |
$subscriber->{'bytesWritten'}, |
211 |
$reason |
$reason |
212 |
); |
); |