77 |
$list; |
$list; |
78 |
} |
} |
79 |
|
|
|
sub listChannelsUsingTemplate { |
|
|
my $class=shift; |
|
|
my $template=shift; |
|
|
|
|
|
return '' unless(defined($template) && $template ne ''); |
|
|
|
|
|
my $list=''; |
|
|
foreach my $channelName (sort keys %Channels) |
|
|
{ |
|
|
my $channel=$Channels{$channelName}; |
|
|
|
|
|
$list.=$channel->descriptionWithTemplate($template); |
|
|
} |
|
|
|
|
|
$list; |
|
|
} |
|
|
|
|
80 |
sub deleteChannel { |
sub deleteChannel { |
81 |
my $class=shift; |
my $class=shift; |
82 |
my $channelName=shift; |
my $channelName=shift; |
152 |
my $subscriber=shift; |
my $subscriber=shift; |
153 |
my $startId=shift; |
my $startId=shift; |
154 |
my $persist=shift; |
my $persist=shift; |
155 |
|
my $mode=shift || ''; |
156 |
|
my $userAgent=shift || ''; |
157 |
|
|
158 |
# Note: negative $startId means go back that many messages |
# Note: negative $startId means go back that many messages |
159 |
|
my $startIndex=$self->indexForMessageID($startId); |
160 |
|
my $logStartIndex = $startIndex || $self->lastMsgID() || 0; |
161 |
|
|
162 |
push(@{$self->{'subscribers'}},$subscriber) if($persist); |
push(@{$self->{'subscribers'}},$subscriber) if($persist); |
163 |
|
|
164 |
my $startIndex=$self->indexForMessageID($startId); |
&::syslog('info','', |
165 |
|
'joinchannel', |
166 |
|
$subscriber->{'ip'}, |
167 |
|
$subscriber->{'subscriberID'}, |
168 |
|
$self->{'name'}, |
169 |
|
$mode, |
170 |
|
$logStartIndex, |
171 |
|
$userAgent |
172 |
|
); |
173 |
|
|
174 |
return unless(defined($startIndex)); |
return unless(defined($startIndex)); |
175 |
|
|
176 |
my $msgCount=scalar(@{$self->{'messages'}}); |
my $msgCount=scalar(@{$self->{'messages'}}); |
178 |
|
|
179 |
$startIndex=0 if($startIndex<0); |
$startIndex=0 if($startIndex<0); |
180 |
|
|
181 |
if($startIndex<$msgCount) |
if($startIndex<$msgCount) { |
182 |
{ |
$subscriber->sendMessages(@{$self->{'messages'}}[$startIndex..$msgCount-1]); |
|
$subscriber->sendMessages(@{$self->{'messages'}}[$startIndex,$msgCount-1]); |
|
183 |
} |
} |
184 |
} |
} |
185 |
|
|
186 |
sub removeSubscriber { |
sub removeSubscriber { |
187 |
my $self=shift; |
my $self=shift; |
188 |
my $subscriber=shift; |
my $subscriber=shift; |
189 |
|
my $reason=shift ||'unknown'; |
190 |
|
|
191 |
my $idx=undef; |
my $idx=undef; |
192 |
for(my $i=0;$i<scalar(@{$self->{'subscribers'}});$i++) |
my $numsubs = scalar(@{$self->{'subscribers'}}); |
193 |
{ |
|
194 |
if($self->{'subscribers'}->[$i]==$subscriber) |
for (my $i=0; $i<$numsubs; $i++) { |
195 |
{ |
if($self->{'subscribers'}->[$i]==$subscriber) { |
196 |
$idx=$i; |
$idx=$i; |
197 |
last; |
last; |
198 |
} |
} |
201 |
if(defined($idx)) |
if(defined($idx)) |
202 |
{ |
{ |
203 |
splice(@{$self->{'subscribers'}},$idx,1); |
splice(@{$self->{'subscribers'}},$idx,1); |
204 |
|
|
205 |
|
my $timeConnected = time - $subscriber->{'ConnectionStart'}; |
206 |
|
&::syslog('info','', |
207 |
|
'leavechannel', |
208 |
|
$subscriber->{'ip'}, |
209 |
|
$subscriber->{'subscriberID'}, |
210 |
|
$self->{'name'}, |
211 |
|
$timeConnected, |
212 |
|
$subscriber->{'MessageCount'}, |
213 |
|
$subscriber->{'bytesWritten'}, |
214 |
|
$reason |
215 |
|
); |
216 |
} |
} |
217 |
|
|
218 |
$self->checkExpiration(); |
$self->checkExpiration(); |
232 |
$message->setText($messageText); |
$message->setText($messageText); |
233 |
$message->setChannelName($self->{'name'}); |
$message->setChannelName($self->{'name'}); |
234 |
push(@{$self->{'messages'}},$message); |
push(@{$self->{'messages'}},$message); |
235 |
|
&::syslog('debug',"New message ".$message->{"id"}." on channel ".$self->{'name'}); |
236 |
|
|
237 |
$self->trimMessageStoreBySize(); |
$self->trimMessageStoreBySize(); |
238 |
|
|
340 |
|
|
341 |
sub lastMsgID { |
sub lastMsgID { |
342 |
my $self=shift; |
my $self=shift; |
|
|
|
343 |
my $numMessages=scalar(@{$self->{'messages'}}); |
my $numMessages=scalar(@{$self->{'messages'}}); |
344 |
|
return undef unless($numMessages>0); |
|
return 'undefined' unless($numMessages>0); |
|
|
|
|
345 |
@{$self->{'messages'}}[-1]->id(); |
@{$self->{'messages'}}[-1]->id(); |
346 |
} |
} |
347 |
|
|
349 |
my $self=shift; |
my $self=shift; |
350 |
my $template=shift; |
my $template=shift; |
351 |
|
|
352 |
|
return '' unless(defined($template) && $template ne ''); |
353 |
|
|
354 |
$template=~s/~([a-zA-Z0-9_]*)~/ |
$template=~s/~([a-zA-Z0-9_]*)~/ |
355 |
if(!defined($1) || $1 eq '') |
if(!defined($1) || $1 eq '') { |
|
{ |
|
356 |
'~'; |
'~'; |
357 |
} |
} elsif($1 eq 'messageCount') { |
|
elsif($1 eq 'messageCount') |
|
|
{ |
|
358 |
$self->messageCount(); |
$self->messageCount(); |
359 |
} |
} elsif($1 eq 'subscriberCount') { |
|
elsif($1 eq 'subscriberCount') |
|
|
{ |
|
360 |
$self->subscriberCount(); |
$self->subscriberCount(); |
361 |
} |
} elsif($1 eq 'lastMsgID') { |
362 |
elsif($1 eq 'lastMsgID') |
$self->lastMsgID() || 0; |
363 |
{ |
} elsif($1 eq 'name') { |
364 |
$self->lastMsgID(); |
$self->{'name'}; |
365 |
} |
} else { |
|
|
|
|
elsif(exists($self->{$1})) |
|
|
{ |
|
|
$self->{$1}; |
|
|
} |
|
|
else |
|
|
{ |
|
366 |
''; |
''; |
367 |
} |
} |
368 |
/gex; |
/gex; |