/usr/share/irssi/scripts/idletime.pl is in irssi-scripts 20131030.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | #!/usr/bin/perl
#
# Do you feel tired of typing /wii ick nick?
# Just try idletime.pl :)
# By Stefan "tommie" Tomanek (stefan@kann-nix.org)
use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
$VERSION = "20030208";
%IRSSI = (
authors => "Stefan 'tommie' Tomanek",
contact => "stefan\@pico.ruhr.de",
name => "idletime",
description => "Retrieves the idletime of any nick",
license => "GPLv2",
url => "",
changed => "$VERSION",
commands => "idle"
);
my %nicks;
sub cmd_idle {
my ($nicks, $server) = @_;
foreach (split(/\s+/, $nicks)) {
push @{$nicks{$server->{chatnet}}}, $_;
$server->command("whois ".$_." ".$_);
}
}
sub event_server_event {
my ($server, $text, $nick, $user) = @_;
my @items = split(/ /,$text);
my $type = $items[0];
if ( ($type eq 301) or ($type eq "311") or ($type eq "312") or ($type eq "317") or ($type eq "318") or ($type eq "319") ) {
my $name = $items[2];
my $i = 0;
if ( has_item($name,@{$nicks{$server->{chatnet}}}) ) {
Irssi::signal_stop();
print_idletime($name, $server, $items[3]) if ($type eq "317");
splice(@{$nicks{$server->{chatnet}}},$i,1) if ($type eq "318");
$i++;
}
}
}
sub has_item {
my ($item, @list) = @_;
foreach (@list) {
$item == $_ && return(1);
}
return(0)
}
sub print_idletime {
my ($name, $ircnet, $time) = @_;
my $hours = int($time / 3600);
my $minutes = int(($time % 3600)/60);
my $seconds = int(($time % 3600)%60);
$ircnet->print(undef,$name." is idle for ".$hours." hours, ".$minutes." minutes and ".$seconds." seconds.", MSGLEVEL_CRAP);
}
Irssi::command_bind('idle', 'cmd_idle');
Irssi::signal_add('server event', 'event_server_event');
|