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