228 |
$self->trimMessageStoreBySize(); |
$self->trimMessageStoreBySize(); |
229 |
|
|
230 |
map { $_->sendMessages($message) } @{$self->{'subscribers'}}; |
map { $_->sendMessages($message) } @{$self->{'subscribers'}}; |
231 |
|
|
232 |
|
$message; |
233 |
} |
} |
234 |
|
|
235 |
sub messageCount { |
sub messageCount { |
294 |
# |
# |
295 |
return undef unless(defined($id)); |
return undef unless(defined($id)); |
296 |
|
|
297 |
my $numMessages=scalar(scalar(@{$self->{'messages'}})); |
my $numMessages=scalar(@{$self->{'messages'}}); |
298 |
|
|
299 |
return undef unless($numMessages); |
return undef unless($numMessages); |
300 |
return -1 unless($id ne ''); |
return -1 unless($id ne ''); |
329 |
return $low; |
return $low; |
330 |
} |
} |
331 |
|
|
332 |
|
sub lastMsgID { |
333 |
|
my $self=shift; |
334 |
|
|
335 |
|
my $numMessages=scalar(@{$self->{'messages'}}); |
336 |
|
|
337 |
|
return 'undefined' unless($numMessages>0); |
338 |
|
|
339 |
|
@{$self->{'messages'}}[-1]->id(); |
340 |
|
} |
341 |
|
|
342 |
sub descriptionWithTemplate { |
sub descriptionWithTemplate { |
343 |
my $self=shift; |
my $self=shift; |
344 |
my $template=shift; |
my $template=shift; |
356 |
{ |
{ |
357 |
$self->subscriberCount(); |
$self->subscriberCount(); |
358 |
} |
} |
359 |
|
elsif($1 eq 'lastMsgID') |
360 |
|
{ |
361 |
|
$self->lastMsgID(); |
362 |
|
} |
363 |
|
|
364 |
elsif(exists($self->{$1})) |
elsif(exists($self->{$1})) |
365 |
{ |
{ |
366 |
$self->{$1}; |
$self->{$1}; |