/[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 45 by knops.gerd, Mon Feb 4 19:02:49 2008 UTC revision 46 by knops.gerd, Mon Feb 4 19:24:25 2008 UTC
# Line 228  sub addMessage { Line 228  sub addMessage {
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 {
# Line 292  sub indexForMessageID { Line 294  sub indexForMessageID {
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 '');
# Line 327  sub indexForMessageID { Line 329  sub indexForMessageID {
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;
# Line 344  sub descriptionWithTemplate { Line 356  sub descriptionWithTemplate {
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};
Legend:
Removed from v.45  
changed lines
  Added in v.46
  ViewVC Help
Powered by ViewVC 1.1.26