my @results;
if (!exists $topic{$chan}{'Current'}) {
- &DEBUG("Topic: does not exist for $chan.");
return;
}
}
if (grep /^\Q$subtopic\E\|\|\Q$owner\E$/, @results) {
- &DEBUG("topic: we have found a dupe in the topic, not adding.");
+ &status("Topic: we have found a dupe in the topic, not adding.");
next;
}
my ($chan, $topic, $updateMsg, $topicUpdate) = @_;
my $maxlen = 470;
- &DEBUG("topic: chan{$chan} is +t.") if ($channels{$chan}{t});
- &DEBUG("topic: chan{$chan} is -t.") unless ($channels{$chan}{t});
- &DEBUG("topic: I have +o.") if ($channels{$chan}{o}{$ident});
- &DEBUG("topic: I don't have +o.") unless ($channels{$chan}{o}{$ident});
-
if ($channels{$chan}{t} and !$channels{$chan}{o}{$ident}) {
&msg($who, "error: cannot change topic without ops. (channel is +t) :(");
return 0;