# Created: 20000707 (from UserExtra.pl)
#
-if (&IsParam("useStrict")) { use strict; }
+use strict;
+
+use vars qw(%users %ignore %sched %bans %mask %cache %channels %param
+ %chanconf %dcc);
+use vars qw($who $chan $message $msgType $user $chnick $conn $ident
+ $verifyUser $ucount_userfile $utime_userfile $lobotomized
+ $utime_chanfile $ucount_chanfile);
+use vars qw(@backlog);
sub userDCC {
# hrm...
return;
}
- ### TODO: fix up $op to support mysql/sqlite/pgsql/dbm(perl)
+ ### TODO: fix up $op to support mysql/sqlite/pgsql
### TODO: => add db/sql specific function to fix this.
my @list = &searchTable("factoids", "factoid_key",
"factoid_value", $op);
my $str = "";
foreach (sort keys %{ $chanconf{$chan} }) {
my $newstr = join(', ', @items);
- if (length $newstr > 60) {
- &pSReply(" $str");
+ if (length $newstr > 63) {
+ &pSReply(" $str");
@items = ();
}
$str = $newstr;
push(@items, "$_ => $chanconf{$chan}{$_}");
}
- &pSReply(" $str") if (@items);
+ &pSReply(" $str") if (@items);
}
return;
}
return;
}
+ my $chflag;
my $user;
if ($args[0] =~ /^$mask{nick}$/i) { # <nick>
$user = &getUser($args[0]);
&unban($mask, $_);
}
- if ($c) {
+ if (@c) {
&pSReply("Removed $mask from chans: @c");
} else {
&pSReply("$mask was not found in ban list.");
if ($message =~ /^banlist(\s+(.*))?$/) {
my $arg = $2;
- if (defined $arg and $arg !~ /^$mask_chan$/) {
+ if (defined $arg and $arg !~ /^$mask{chan}$/) {
&pSReply("error: chan $chan is invalid.");
return;
}
}
# quite a cool hack: reply in DCC CHAT.
- $msgType = "chat";
+ # FIXME broken for +A
+ #$msgType = "chat";
my $done = 0;
$done++ if &parseCmdHook("main", $message);