--- googlecode.com/svn/trunk/Meteor/Channel.pm	2007/05/01 16:59:28	16
+++ googlecode.com/svn/trunk/Meteor/Channel.pm	2008/02/04 19:24:25	46
@@ -77,6 +77,23 @@
 	$list;
 }
 
+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;
+}
+
 sub deleteChannel {
 	my $class=shift;
 	my $channelName=shift;
@@ -99,6 +116,11 @@
 	map { $_->clearBuffer() } (values %Channels);
 }
 
+sub numChannels {
+	
+	return scalar(keys %Channels);
+}
+
 ###############################################################################
 # Factory methods
 ###############################################################################
@@ -160,14 +182,10 @@
 	
 	$startIndex=0 if($startIndex<0);
 	
-	while($startIndex<$msgCount)
+	if($startIndex<$msgCount)
 	{
-		my $message=$self->{'messages'}->[$startIndex++];
-		
-		$txt.=$message->message();
+		$subscriber->sendMessages(@{$self->{'messages'}}[$startIndex,$msgCount-1]);
 	}
-	
-	$subscriber->sendMessage($txt);
 }
 
 sub removeSubscriber {
@@ -209,8 +227,9 @@
 	
 	$self->trimMessageStoreBySize();
 	
-	my $text=$message->message();
-	map { $_->sendMessage($text) } @{$self->{'subscribers'}};
+	map { $_->sendMessages($message) } @{$self->{'subscribers'}};
+	
+	$message;
 }
 
 sub messageCount {
@@ -275,7 +294,7 @@
 	#
 	return undef unless(defined($id));
 	
-	my $numMessages=scalar(scalar(@{$self->{'messages'}}));
+	my $numMessages=scalar(@{$self->{'messages'}});
 	
 	return undef unless($numMessages);
 	return -1 unless($id ne '');
@@ -310,5 +329,50 @@
 	return $low;
 }
 
+sub lastMsgID {
+	my $self=shift;
+	
+	my $numMessages=scalar(@{$self->{'messages'}});
+	
+	return 'undefined' unless($numMessages>0);
+	
+	@{$self->{'messages'}}[-1]->id();
+}
+
+sub descriptionWithTemplate {
+	my $self=shift;
+	my $template=shift;
+	
+	$template=~s/~([a-zA-Z0-9_]*)~/
+		if(!defined($1) || $1 eq '')
+		{
+			'~';
+		}
+		elsif($1 eq 'messageCount')
+		{
+			$self->messageCount();
+		}
+		elsif($1 eq 'subscriberCount')
+		{
+			$self->subscriberCount();
+		}
+		elsif($1 eq 'lastMsgID')
+		{
+			$self->lastMsgID();
+		}
+		
+		elsif(exists($self->{$1}))
+		{
+			$self->{$1};
+		}
+		else
+		{
+			'';
+		}
+	/gex;
+	
+	$template;
+}
+
 1;
 ############################################################################EOF
\ No newline at end of file