132 |
my $self=shift; |
my $self=shift; |
133 |
|
|
134 |
my @subscribers=@{$self->{'subscribers'}}; |
my @subscribers=@{$self->{'subscribers'}}; |
135 |
map { $_->close() } @subscribers; |
map { $_->closeChannel($self->{'name'}) } @subscribers; |
136 |
} |
} |
137 |
|
|
138 |
############################################################################### |
############################################################################### |
203 |
my $messageText=shift; |
my $messageText=shift; |
204 |
|
|
205 |
my $message=Meteor::Message->newWithID($MessageID++); |
my $message=Meteor::Message->newWithID($MessageID++); |
206 |
$message->setText($messageText); |
$message->setText($messageText); |
207 |
|
$message->setChannelName($self->{'name'}); |
208 |
push(@{$self->{'messages'}},$message); |
push(@{$self->{'messages'}},$message); |
209 |
|
|
210 |
$self->trimMessageStoreBySize(); |
$self->trimMessageStoreBySize(); |