- use http method for obtaining data.

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

diff --git a/blootbot/src/Modules/Kernel.pl b/blootbot/src/Modules/Kernel.pl
index 34cca2fabb1cc4c38a1af87f1fe1686cb54a5d6a..43312ded1999f8652d6dc3ff9d1c9ead86f7112c 100644 (file)
--- a/blootbot/src/Modules/Kernel.pl
+++ b/blootbot/src/Modules/Kernel.pl
@@ -7,51 +7,8 @@
 
 package Kernel;
 
-use IO::Socket;
-use strict;
-
-### TODO: change this to http instead of finger?
-my $server     = "ftp.kernel.org";
-my $port       =  79;
-my $proto      = getprotobyname('tcp');
-
-###local $SIG{ALRM} = sub { die "alarm\n" };
-
 sub kernelGetInfo {
-###    return unless &::loadPerlModule("IO::Socket");
-
-    my $socket    = new IO::Socket;
-
-    socket($socket, PF_INET, SOCK_STREAM, $proto) or return "error: socket: $!";
-    eval {
-       alarm 15;
-       connect($socket, sockaddr_in($port, inet_aton($server))) or return "error: connect: $!";
-       alarm 0;
-    };
-
-    my @retval;
-
-    if ($@ && $@ ne "alarm\n") {               # failed.
-       return;
-    }
-
-    $socket->autoflush(1);     # required.
-
-    print $socket "\n";
-    while (<$socket>) {
-       chop;
-
-       s/\t//g;
-       s/\s$//;
-       s/\s+/ /g;
-
-       next if ($_ eq "");
-
-       push(@retval, $_);
-    }
-    close $socket;
-
-    @retval;
+    return &getURL("http://www.kernel.org/kdist/finger_banner");
 }
 
 sub Kernel {