summaryrefslogtreecommitdiffstats
path: root/scripts/idletime.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--scripts/idletime.pl70
1 files changed, 70 insertions, 0 deletions
diff --git a/scripts/idletime.pl b/scripts/idletime.pl
new file mode 100644
index 0000000..34c5085
--- /dev/null
+++ b/scripts/idletime.pl
@@ -0,0 +1,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');