#
use strict;
-use vars qw(%topiccmp);
-no strict "refs"; ### FIXME!!!
+use vars qw(%topiccmp %topic %channels %orig);
+use vars qw($who $chan $conn $uh $ident);
###############################
##### INTERNAL FUNCTIONS
# Usage: &topicCipher(@topics);
sub topicCipher {
if (!@_) {
- &DEBUG("topicCipher: topic is NULL.");
+ &WARN("topicCipher: topic is NULL for $chan.");
return;
}
$topic{$chan}{'Last'} = $topic;
$topic{$chan}{'Who'} = $orig{who}."!".$uh;
$topic{$chan}{'Time'} = time();
- rawout("TOPIC $chan :$topic");
+ $conn->topic($chan, $topic);
&topicAddHistory($chan,$topic);
return 1;
}
undef @subtopics; # lets reuse this array.
foreach (@newtopics) {
- next if ($_ eq "");
+ next if (!defined $_ or $_ eq "");
push(@subtopics, $_);
}