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

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

revision 11 by knops.gerd, Thu Dec 14 16:29:42 2006 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 77  sub setText { Line 77  sub setText {
77          $self->{'text'}=$text;          $self->{'text'}=$text;
78  }  }
79    
80    sub channelName {
81            shift->{'channel'};
82    }
83    
84    sub setChannelName {
85            my $self=shift;
86            my $channelName=shift || '';
87            
88            $self->{'channel'}=$channelName;
89    }
90    
91  sub text {  sub text {
92          shift->{'text'};          shift->{'text'};
93  }  }
# Line 90  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.11  
changed lines
  Added in v.50
  ViewVC Help
Powered by ViewVC 1.1.26