Parent Directory | Revision Log | Patch
revision 3 by andrew.betts, Mon Nov 20 17:59:30 2006 UTC | revision 25 by knops.gerd, Sun May 20 19:40:53 2007 UTC | |
---|---|---|
# | Line 62 sub newWithID { | Line 62 sub newWithID { |
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; |
# | Line 77 sub setText { | Line 79 sub setText { |
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 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |