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');
|
