Reply to the initial ping command.

Some servers send a ping command immediatly after we connect. The bot original behaviour was to reply to the ping commands after the authentication was done. So if the first thing was sent before any authentication happened it would be impossible to proceed with the authentication because the IRC server wouldn't accept it. This would make the bot to be unable to connect.

IRC/bot.pl

@@ -37,6 +37,8 @@
 use File::Find;
 use File::Basename;
 use Time::HiRes qw/usleep/;
+use IO::Select;
+
 $|=1;
 my $CRLF="\x0D\x0A";
 $\=$CRLF;
@@ -149,17 +151,19 @@ sub get_IRC_socket{
 sub _authenticate{
   my ($sock, $nick, $password) = @_;
 
+  say "Initial read: "._read_from_socket($sock);
   # Log on to the server.
   print $sock "NICK $nick";
   #print $sock "USER $login 8 * :NewsUp TEST \r\n";
   print $sock "USER $nick * * :NewsUP News_UP";
   print $sock "MSG NickServ identify $password" if (defined $password && $password ne '');
 
   # Read lines from the server until it tells us we have connected.
-  while (my $input = <$sock>) {
+  while (my $input = _read_from_socket($sock)) {
     chomp $input;
-    # Check the numerical responses from the server.
-    if ($input =~ /004/) {
+    if ($input =~ /^PING(.*)$/i) { # If the server 
+      print $sock "PONG $1";
+    }elsif ($input =~ /004/) { # Check the numerical responses from the server.
       # We are now logged in.
       last;
     }