html/oops.pl

• package main
  • send_text
• EOF

   1 use strict;
   2 use vars qw($VERSION %IRSSI);
   3 
   4 use Irssi;
   5 $VERSION = '20071209';
   6 %IRSSI = (
   7     authors     => '',
   8     contact     => '',
   9     name        => 'oops',
  10     description =>
  11 'turns \'ls\' in the beginning of a sent line into the names or whois commands',
  12     license => 'Public Domain',
  13 );
  14 
  15 sub send_text {
  16 
  17     #"send text", char *line, SERVER_REC, WI_ITEM_REC
  18     my ( $data, $server, $witem ) = @_;
  19     if ( $witem
  20         && ( $witem->{type} eq "CHANNEL" )
  21         && ( $data =~ /(^ls |^ls$)/ ) )
  22     {
  23         $witem->command("names $witem->{name}");
  24         Irssi::signal_stop();
  25     }
  26     if ( $witem && ( $witem->{type} eq "QUERY" ) && ( $data =~ /(^ls |^ls$)/ ) )
  27     {
  28         $witem->command("whois $witem->{name}");
  29         Irssi::signal_stop();
  30     }
  31 }
  32 
  33 Irssi::signal_add 'send text' => 'send_text'