X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FUserDCC.pl;h=49c10f0fa2073ab5ab490a6ad6aa51f26dd74b34;hb=d09c7d3563f2a2c44065847a96bb51942d9c1d8f;hp=8bd29dbdbc739bcc875f4b3ef55c4b0844f5969a;hpb=c0c8fcbc31be4c77e6ec7bd2858e7ce997624789;p=infobot.git

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index 8bd29db..49c10f0 100644
--- a/src/Modules/UserDCC.pl
+++ b/src/Modules/UserDCC.pl
@@ -5,7 +5,14 @@
 #     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...
@@ -755,6 +762,7 @@ sub userDCC {
 	    return;
 	}
 
+	my $chflag;
 	my $user;
 	if ($args[0] =~ /^$mask{nick}$/i) {	# <nick>
 	    $user	= &getUser($args[0]);
@@ -999,7 +1007,7 @@ sub userDCC {
 		&unban($mask, $_);
 	    }
 
-	    if ($c) {
+	    if (@c) {
 		&pSReply("Removed $mask from chans: @c");
 	    } else {
 		&pSReply("$mask was not found in ban list.");
@@ -1121,7 +1129,7 @@ sub userDCC {
     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;
 	}