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; |
79 |
$self->{'text'}=$text; |
$self->{'text'}=$text; |
80 |
} |
} |
81 |
|
|
82 |
|
sub channelName { |
83 |
|
shift->{'channel'}; |
84 |
|
} |
85 |
|
|
86 |
|
sub setChannelName { |
87 |
|
my $self=shift; |
88 |
|
my $channelName=shift || ''; |
89 |
|
|
90 |
|
$self->{'channel'}=$channelName; |
91 |
|
} |
92 |
|
|
93 |
sub text { |
sub text { |
94 |
shift->{'text'}; |
shift->{'text'}; |
95 |
} |
} |
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 '') |