Det script som körs i irssi för att fråga efter kaffe.

kaffestatus.pl

use strict;
use warnings;

use Irssi;

our $VERSION = '1.00';
our %IRSSI = (
    authors     => 'Anton Landberg',
    contact     => 'bitter@eta.chalmers.se',
    name        => 'ETAkaffestatus',
    description => 'Lyssnar efter fråga kring kaffe ställd till '.
  	   'Uppkopplad användare',
    license     => 'GNU GPLv3',
);

Irssi::signal_add_last 'message public', 'sig_message_public';

sub sig_message_public {
     my ($server, $msg, $nick, $nick_addr, $target) = @_;
     my $MyNick = $server->{nick};
     my $KaffeStatus = "Vem vet?";
     if ($target =~ m/#eta/i) { # only operate in these channels
	  my $KaffeStatus = `python /home/eta2/kaffestatus.py`;
          $server->command("msg $target $nick: $KaffeStatus") if ($msg =~ m/$MyNick:.*?kaffe.*?/i);
     }
}

Man kanske skulle vilja tillåta vrågor i privat meddelande också?
Eventuellt en fördröjdning för att meddelandena ska komma i rätt ordning?