/[meteor]/googlecode.com/svn/trunk/Meteor/Channel.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /googlecode.com/svn/trunk/Meteor/Channel.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 13 by knops.gerd, Mon Apr 30 18:16:17 2007 UTC revision 25 by knops.gerd, Sun May 20 19:40:53 2007 UTC
# Line 99  sub clearAllBuffers { Line 99  sub clearAllBuffers {
99          map { $_->clearBuffer() } (values %Channels);          map { $_->clearBuffer() } (values %Channels);
100  }  }
101    
102    sub numChannels {
103            
104            return scalar(keys %Channels);
105    }
106    
107  ###############################################################################  ###############################################################################
108  # Factory methods  # Factory methods
109  ###############################################################################  ###############################################################################
# Line 160  sub addSubscriber { Line 165  sub addSubscriber {
165                    
166          $startIndex=0 if($startIndex<0);          $startIndex=0 if($startIndex<0);
167                    
168            my $numMsgToSend=0;
169          while($startIndex<$msgCount)          while($startIndex<$msgCount)
170          {          {
171                  my $message=$self->{'messages'}->[$startIndex++];                  my $message=$self->{'messages'}->[$startIndex++];
172                                    
173                  $txt.=$message->message();                  $txt.=$message->message();
174                    $numMsgToSend++;
175          }          }
176                    
177          $subscriber->sendMessage($txt);          $subscriber->sendMessage($txt,$numMsgToSend);
178  }  }
179    
180  sub removeSubscriber {  sub removeSubscriber {
# Line 203  sub addMessage { Line 210  sub addMessage {
210          my $messageText=shift;          my $messageText=shift;
211                    
212          my $message=Meteor::Message->newWithID($MessageID++);          my $message=Meteor::Message->newWithID($MessageID++);
213          $message->setText($messageText);                  $message->setText($messageText);
214            $message->setChannelName($self->{'name'});
215          push(@{$self->{'messages'}},$message);          push(@{$self->{'messages'}},$message);
216                    
217          $self->trimMessageStoreBySize();          $self->trimMessageStoreBySize();
Legend:
Removed from v.13  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.26