62 |
$self->{'id'}=$id; |
$self->{'id'}=$id; |
63 |
$self->{'text'}=$text; |
$self->{'text'}=$text; |
64 |
|
|
65 |
|
$::Statistics->{'unique_messages'}++; |
66 |
|
|
67 |
&::syslog('debug',"New message $id"); |
&::syslog('debug',"New message $id"); |
68 |
|
|
69 |
$self; |
$self; |
103 |
} |
} |
104 |
|
|
105 |
sub message { |
sub message { |
|
my $self=shift; |
|
106 |
|
|
107 |
my $msg=$::CONF{'MessageTemplate'}; |
shift->messageWithTemplate($::CONF{'MessageTemplate'}); |
108 |
|
} |
109 |
|
|
110 |
|
sub messageWithTemplate { |
111 |
|
my $self=shift; |
112 |
|
my $msg=shift; |
113 |
|
|
114 |
$msg=~s/~([^~]*)~/ |
$msg=~s/~([^~]*)~/ |
115 |
if(!defined($1) || $1 eq '') |
if(!defined($1) || $1 eq '') |