--- googlecode.com/svn/trunk/Meteor/Channel.pm 2007/05/01 16:59:28 16 +++ googlecode.com/svn/trunk/Meteor/Channel.pm 2007/05/20 19:40:53 25 @@ -99,6 +99,11 @@ map { $_->clearBuffer() } (values %Channels); } +sub numChannels { + + return scalar(keys %Channels); +} + ############################################################################### # Factory methods ############################################################################### @@ -160,14 +165,16 @@ $startIndex=0 if($startIndex<0); + my $numMsgToSend=0; while($startIndex<$msgCount) { my $message=$self->{'messages'}->[$startIndex++]; $txt.=$message->message(); + $numMsgToSend++; } - $subscriber->sendMessage($txt); + $subscriber->sendMessage($txt,$numMsgToSend); } sub removeSubscriber {