From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 27 Oct 2003 10:04:23 +0000 (+0000)
Subject: - use http method for obtaining data.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9e364d9d3071b15edb1cc9d80b4efcb3d2d134c7;p=infobot.git

- 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 34cca2f..43312de 100644
--- 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 {