From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 21 Nov 2002 13:31:49 +0000 (+0000)
Subject: - strictify
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5882ee23e542c6ef8a5b64de1d7648b90e23f443;p=infobot.git

- strictify
- use @c instead of $c
- forgot to change mask to use hash. fixed.


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@658 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/blootbot/src/Modules/UserDCC.pl b/blootbot/src/Modules/UserDCC.pl
index 8bd29db..49c10f0 100644
--- a/blootbot/src/Modules/UserDCC.pl
+++ b/blootbot/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;
 	}