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