/[meteor]/trunk/Meteor/Message.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 /trunk/Meteor/Message.pm

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

revision 16 by knops.gerd, Tue May 1 16:59:28 2007 UTC revision 50 by andrew.betts, Wed Feb 27 13:55:35 2008 UTC
# Line 62  sub newWithID { Line 62  sub newWithID {
62          $self->{'id'}=$id;          $self->{'id'}=$id;
63          $self->{'text'}=$text;          $self->{'text'}=$text;
64                    
65          &::syslog('debug',"New message $id");          $::Statistics->{'unique_messages'}++;
66                            
67          $self;          $self;
68  }  }
69    
# Line 101  sub timestamp { Line 101  sub timestamp {
101  }  }
102    
103  sub message {  sub message {
         my $self=shift;  
104                    
105          my $msg=$::CONF{'MessageTemplate'};          shift->messageWithTemplate($::CONF{'MessageTemplate'});
106    }
107    
108    sub messageWithTemplate {
109            my $self=shift;
110            my $msg=shift;
111                    
112          $msg=~s/~([^~]*)~/          $msg=~s/~([^~]*)~/
113                  if(!defined($1) || $1 eq '')                  if(!defined($1) || $1 eq '')

Legend:
Removed from v.16  
changed lines
  Added in v.50

  ViewVC Help
Powered by ViewVC 1.1.26