irssi-scripts 20120326 / usr / share / irssi / scripts / kernel.pl

# Fetches the version(s) of the latest Linux kernel(s).

# /kernel

use strict;
use Irssi;
use IO::Socket;

use vars qw($VERSION %IRSSI);

$VERSION = '0.9';
%IRSSI = (
    authors     => 'Johan "Ion" Kiviniemi',
    contact     => 'ion at hassers.org',
    name        => 'Kernel',
    description => 'Fetches the version(s) of the latest Linux kernel(s).',
    license     => 'Public Domain',
    url         => 'http://ion.amigafin.org/irssi/',
    changed     => 'Tue Mar 12 22:20 EET 2002',
);

sub finger($$) {
    # Yes, Net::Finger is already done and i'm reinventing the wheel.
    my ($user, $host) = @_;
    my $buffer;
    if (my $socket = IO::Socket::INET->new(
            PeerHost => $host,
            PeerPort => 'finger(79)',
            Proto    => 'tcp',
        ))
    {
        if (syswrite $socket, "$user\n") {
            unless (sysread $socket, $buffer, 1024) {
                # Should i use $! here?
                Irssi::print(
                    "Unable to read from the socket: $!",
                    Irssi::MSGLEVEL_CLIENTERROR
                );
            }
        } else {
            # ..and here?
            Irssi::print(
                "Unable to write to the socket: $!",
                Irssi::MSGLEVEL_CLIENTERROR
            );
        }
    } else {
        Irssi::print("Connection to $host failed: $!",
            Irssi::MSGLEVEL_CLIENTERROR);
    }
    return $buffer;
}

sub get_version {
    my @version;
    if (my $finger = finger("", "finger.kernel.org")) {
        # The magic of the regexps :)
        @version = $finger =~ /:\s*(\S+)\s*$/gm;
        # Modify this to do whatever you want.
        Irssi::print("@version");
    }
}

Irssi::command_bind('kernel_version', 'get_version');