r5821 - trunk/server/rcon2irc

[DONOTREPLY at icculus.org]

Author: div0
Date: 2009-02-10 02:02:39 -0500 (Tue, 10 Feb 2009)
New Revision: 5821

Modified:
   trunk/server/rcon2irc/rcon2irc.pl
Log:
fix two bugs in reconnecting code


Modified: trunk/server/rcon2irc/rcon2irc.pl
===================================================================
--- trunk/server/rcon2irc/rcon2irc.pl	2009-02-10 06:19:18 UTC (rev 5820)
+++ trunk/server/rcon2irc/rcon2irc.pl	2009-02-10 07:02:39 UTC (rev 5821)
@@ -799,15 +799,15 @@
 	delete $channels{irc};
 	schedule sub {
 		my ($timer) = @_;
-		if(!defined $store{slots_full})
+		if(!defined $store{slots_active})
 		{
 			# DP is not running, then delay IRC reconnecting
 			#use Data::Dumper; print Dumper \$timer;
-			schedule $timer => 1;;
+			schedule $timer => 1;
 			return;
 			# this will keep irc_error_active
 		}
-		$channels{irc} = new Channel::Line(new Connection::Socket(tcp => "" => $config{irc_server}));
+		$channels{irc} = new Channel::Line(new Connection::Socket(tcp => "" => $config{irc_server} => 6667));
 		delete $store{$_} for grep { /^irc_/ } keys %store;
 		$store{irc_nick} = "";
 		schedule sub {