/usr/share/irssi/scripts/oops.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 | use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
$VERSION = '20071209';
%IRSSI = (
authors => '',
contact => '',
name => 'oops',
description =>
'turns \'ls\' in the beginning of a sent line into the names or whois commands',
license => 'Public Domain',
);
sub send_text {
#"send text", char *line, SERVER_REC, WI_ITEM_REC
my ( $data, $server, $witem ) = @_;
if ( $witem
&& ( $witem->{type} eq "CHANNEL" )
&& ( $data =~ /(^ls |^ls$)/ ) )
{
$witem->command("names $witem->{name}");
Irssi::signal_stop();
}
if ( $witem && ( $witem->{type} eq "QUERY" ) && ( $data =~ /(^ls |^ls$)/ ) )
{
$witem->command("whois $witem->{name}");
Irssi::signal_stop();
}
}
Irssi::signal_add 'send text' => 'send_text'
|