--- googlecode.com/svn/trunk/Meteor/Message.pm 2007/05/01 16:59:28 16 +++ googlecode.com/svn/trunk/Meteor/Message.pm 2008/02/04 19:02:49 45 @@ -62,6 +62,8 @@ $self->{'id'}=$id; $self->{'text'}=$text; + $::Statistics->{'unique_messages'}++; + &::syslog('debug',"New message $id"); $self; @@ -101,9 +103,13 @@ } sub message { - my $self=shift; - my $msg=$::CONF{'MessageTemplate'}; + shift->messageWithTemplate($::CONF{'MessageTemplate'}); +} + +sub messageWithTemplate { + my $self=shift; + my $msg=shift; $msg=~s/~([^~]*)~/ if(!defined($1) || $1 eq '')