/usr/share/irssi/scripts/u.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 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 | use vars qw($VERSION %IRSSI);
use Irssi 20020120;
$VERSION = "1.2";
%IRSSI = (
authors => "Michiel",
contact => "michiel\@dotgeek.org",
name => "List nicks in channel",
description => "BitchX /u clone. Use /u <regex> to show all nicks (including ident\@host) matching regex in the current channel.",
license => "GNU GPL",
url => "http://otoria.freecode.nl/~michiel/u.pl",
changed => "Thu Jun 3 11:04:27 CEST 2004",
);
sub cmd_u
{
my ($data, $server, $channel) = @_;
my @nicks;
my $space;
my $msg;
my $match;
my $nick;
if ($channel->{type} ne "CHANNEL")
{
Irssi::print("You are not on a channel");
return;
}
@nicks = $channel->nicks();
$space = ' 'x50;
foreach $nick (@nicks)
{
# user status?
$msg = ($nick->{serverop} ? '[*' : '[ ');
$msg .= ($nick->{other} ? chr($nick->{other}) : ($nick->{op} ? '@' : ($nick->{halfop} ? '%' : ($nick->{voice} ? '+' : ' '))));
# if nick is too long, cut it off
if (length($nick->{nick}) > 10)
{
$msg .= substr($nick->{nick}, 0, 10)."] ";
}
else # if it is too short, add some spaces
{
$msg .= $nick->{nick}.substr($space, 0, 10-length($nick->{nick}))."] ";
}
# if host is too long, cut it off
if (length($nick->{host}) > 50)
{
$msg .= '['.substr($nick->{host}, 0, 50).']';
}
else # if it is too short, add some spaces
{
$msg .= '['.$nick->{host}.substr($space, 0, 50-length($nick->{host})).']';
}
$match = $nick->{nick}.'!'.$nick->{host}; # For regexp matching
$channel->print($msg) if $match =~ /$data/i;
}
}
Irssi::command_bind('u','cmd_u');
|