[SimBot-commits] CVS: simbot simbot.pl,1.116,1.117

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28101

Modified Files:
	simbot.pl 
Log Message:
We now work with the proper array when removing servers that have klined us.


Index: simbot.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/simbot.pl,v
retrieving revision 1.116
retrieving revision 1.117
diff -u -d -p -r1.116 -r1.117
--- simbot.pl	6 Jun 2005 21:16:40 -0000	1.116
+++ simbot.pl	6 Jun 2005 21:34:35 -0000	1.117
@@ -24,6 +24,8 @@
 # Hi, my name(space) is:
 package SimBot;
 
+use Data::Dumper;
+
 # Sometimes we end up in Unicode.  Since IRC and Unicode are not good
 # friends, we'll take a ride back to ISO-8859-1 before we send the
 # server any questionable strings.  This requires Perl 5.8.0 or a perl
@@ -1941,9 +1943,9 @@ sub server_error {
 	   if(!defined $chosen_server) {
 	       die q($chosen_server is undefined);
 	   }
-		for (my $i = 0; defined @{$conf{'network'}{'servers'}}[$i]; $i++) {
-			if ($chosen_server eq @{$conf{'network'}{'servers'}}[$i]) {
-				splice(@{$conf{'network'}{'servers'}}, $i, 1)
+		for (my $i = 0; defined @{$conf{'network'}{'server'}}[$i]; $i++) {
+			if ($chosen_server eq @{$conf{'network'}{'server'}}[$i]) {
+				splice(@{$conf{'network'}{'server'}}, $i, 1)
 			}
 		}
 	}