1#!/usr/local/bin/perl
2
3use strict;
4use Irssi;
5use Time::localtime;
6
7use vars qw($VERSION %IRSSI);
8
9$VERSION = "0.1";
10%IRSSI = (
11    authors     => "Leszek Matok",
12    contact     => "lam\@lac.pl",
13    name        => "idlesince",
14    description => "Adds 'idle since' line to whois replies.",
15    license     => "GPL",
16    url         => "",
17    changed     => "17.9.2002",
18);
19
20sub event_server_event {
21    my ($server, $text, $sname) = @_;
22    my @items = split(/ /,$text);
23
24    my $idlesince = ctime(time()-$items[2]);
25    $server->printformat($items[1], MSGLEVEL_CRAP, 'whois_idlesince',
26	$items[1], $idlesince );
27}
28
29Irssi::theme_register([
30    'whois_idlesince' => '{whois idlesince %|$1}'
31]);
32Irssi::signal_add_last('event 317', 'event_server_event');
33