X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FIRC%2FIrc.pl;h=b6eb283c6b8fe8f49c38caca3d3389a6ff481815;hb=8a79d430aef83402420b5a8378e78cfa01051c93;hp=a5a90cafe10754a6dca26c7ac29b1750ed0565c8;hpb=d09c7d3563f2a2c44065847a96bb51942d9c1d8f;p=infobot.git

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index a5a90ca..b6eb283 100644
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -5,10 +5,16 @@
 #      NOTE: Based on code by Kevin Lenzo & Patrick Cole  (c) 1997
 #
 
-if (&IsParam("useStrict")) { use strict; }
+use strict;
 
-use vars qw($nickserv);
-$nickserv	= 0;
+use vars qw(%floodjoin %nuh %dcc %cache %channels %param %mask
+	%chanconf %orig %ircPort %ircstats %last %netsplit);
+use vars qw($irc $nickserv $ident $conn $msgType $who $talkchannel
+	$addressed);
+use vars qw($notcount $nottime $notsize $msgcount $msgtime $msgsize
+		$pubcount $pubtime $pubsize);
+use vars qw($b_blue $ob);
+use vars qw(@joinchan @ircServers);
 
 # static scalar variables.
 $mask{ip}	= '(\d+)\.(\d+)\.(\d+)\.(\d+)';
@@ -19,6 +25,8 @@ my $isnick2	= '0-9\-';
 $mask{nick}	= "[$isnick1]{1}[$isnick1$isnick2]*";
 $mask{nuh}	= '\S*!\S*\@\S*';
 
+$nickserv	= 0;
+
 sub ircloop {
     my $error	= 0;
     my $lastrun = 0;
@@ -636,7 +644,7 @@ sub invite {
 # Usage: &joinNextChan();
 sub joinNextChan {
     if (scalar @joinchan) {
-	$chan = shift @joinchan;
+	my $chan = shift @joinchan;
 	&joinchan($chan);
 
 	if (my $i = scalar @joinchan) {
@@ -707,6 +715,7 @@ sub IsNickInChan {
 
 sub IsNickInAnyChan {
     my ($nick) = @_;
+    my $chan;
 
     foreach $chan (keys %channels) {
 	next unless (grep /^\Q$nick\E$/i, keys %{ $channels{$chan}{''}  });
@@ -812,10 +821,12 @@ sub getJoinChans {
 
 sub closeDCC {
 #    &DEBUG("closeDCC called.");
+    my $type;
 
     foreach $type (keys %dcc) {
 	next if ($type ne uc($type));
  
+	my $nick;
 	foreach $nick (keys %{ $dcc{$type} }) {
 	    next unless (defined $nick);
 	    &status("DCC CHAT: closing DCC $type to $nick.");