html/wilm.pl

• package main
  • wilm
  • wiilm
  • privmsg
• EOF

   1 # wilm.pl
   2 # Lam 28.10.2001, 10.3.2002
   3 # lam@lac.pl
   4 
   5 use strict;
   6 use vars qw($VERSION %IRSSI);
   7 $VERSION = "1.0.1";
   8 %IRSSI = (
   9 	authors => "Leszek Matok",
  10 	contact => "lam\@lac.pl",
  11 	name => "wilm",
  12 	description => "Provides /wilm and /wiilm commands, which do a whois on a person who sent you last private message",
  13 	license => "Public Domain",
  14 	changed => "10.3.2002 14:00"
  15 );
  16 
  17 my $last_nick;
  18 my $last_server;
  19 
  20 sub wilm {
  21 	my @all_servers = Irssi::servers();
  22 	foreach my $one_server ( @all_servers ) {
  23 		if ( $one_server = $last_server ) {
  24 			$one_server->command( "whois $last_nick" );
  25 			return;
  26 		}
  27 	}
  28 	Irssi::print( "noone to whois" );
  29 }
  30 
  31 sub wiilm {
  32 	my @all_servers = Irssi::servers();
  33 	foreach my $one_server ( @all_servers ) {
  34 		if ( $one_server = $last_server ) {
  35 			$one_server->command( "whois $last_nick $last_nick" );
  36 			return;
  37 		}
  38 	}
  39 	Irssi::print( "noone to whois" );
  40 }
  41 
  42 sub privmsg {
  43 	my ( $server, $data, $nick, $address ) = @_;
  44 	my ( $target, $text ) = split( / :/, $data, 2 );
  45 
  46 	if ( ( lc $target ) eq ( lc $server->{ nick } ) ) {
  47 		$last_nick = $nick;
  48 		$last_server = $server;
  49 	}
  50 }
  51 
  52 Irssi::command_bind( "wilm", "wilm" );
  53 Irssi::command_bind( "wiilm", "wiilm" );
  54 Irssi::signal_add( "event privmsg", "privmsg" );