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 |
|
|
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 '') |