/usr/share/irssi/scripts/chops.pl is in irssi-scripts 20100512.
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 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | #!/usr/bin/perl -w
# chops.pl: Simulates BitchX's /chops and /nops commands
# prints list with nickname and userhost
#
# Written by Jakub Jankowski <shasta@atn.pl>
# for irssi 0.7.98.CVS
#
# todo:
# - enhance the look of the script
#
# sample /chops output:
# [11:36:33] -!- Irssi: Information about chanops on #irssi
# [11:36:33] -!- Irssi: [nick] [hostmask]
# [11:36:33] -!- Irssi: shasta shasta@quasimodo.olsztyn.tpsa.pl
# [11:36:34] -!- Irssi: cras cras@xmunkki.org
# [11:36:34] -!- Irssi: fuchs fox@wh8043.stw.uni-rostock.de
# [11:36:34] -!- Irssi: End of listing
#
# sample /nops output:
# [11:40:34] -!- Irssi: Information about non-ops on #irssi
# [11:40:34] -!- Irssi: [nick] [hostmask]
# [11:40:34] -!- Irssi: globe_ ~globe@ui20i21hel.dial.kolumbus.fi
# [11:40:34] -!- Irssi: shastaBX shasta@thorn.kanal.olsztyn.pl
# [11:40:34] -!- Irssi: End of listing
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = "20020223";
%IRSSI = (
authors => 'Jakub Jankowski',
contact => 'shasta@atn.pl',
name => 'chops',
description => 'Simulates BitchX\'s /CHOPS and /NOPS commands.',
license => 'GNU GPLv2 or later',
url => 'http://irssi.atn.pl/',
);
use Irssi;
use Irssi::Irc;
Irssi::theme_register([
'chops_nochan', 'You are not on a channel',
'chops_notsynced', 'Channel $0 is not fully synchronized yet',
'chops_noone', 'There are no $0 to list',
'chops_start', 'Information about $0 on $1',
'chops_end', 'End of listing',
'chops_header', '[nick] [hostmask]',
'chops_line', '$[!9]0 $[!50]1'
]);
sub cmd_chops {
my ($data, $server, $channel) = @_;
my @chanops = ();
# if we're not on a channel, print appropriate message and return
if (!$channel) {
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_nochan');
return;
}
# if channel is not fully synced yet, print appropriate message and return
if (!$channel->{synced}) {
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_notsynced', $channel->{name});
return;
}
# gather all opped people into an array
foreach my $nick ($channel->nicks()) {
push(@chanops, $nick) if ($nick->{op});
}
# if there are no chanops, print appropriate message and return
if (scalar(@chanops) < 1) {
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_noone', "chanops");
return;
}
# print a starting message
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_start', "chanops", $channel->{name});
# print listing header
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_header');
# print every chanop's nick, status (gone/here), userhost and hopcount
foreach my $nick (@chanops) {
my $userhost = $nick->{host};
# if user's host is longer than 50 characters, cut it to 47 to fit in column
$userhost = substr($userhost, 0, 47) if (length($userhost) > 50);
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_line', $nick->{nick}, $userhost);
}
# print listing footer
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_end');
}
sub cmd_nops {
my ($data, $server, $channel) = @_;
my @nonops = ();
# if we're not on a channel, print appropriate message and return
if (!$channel) {
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_nochan');
return;
}
# if channel is not fully synced yet, print appropriate message and return
if (!$channel->{synced}) {
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_notsynced', $channel->{name});
return;
}
# gather all not opped people into an array
foreach my $nick ($channel->nicks()) {
push(@nonops, $nick) if (!$nick->{op});
}
# if there are only chanops, print appropriate message and return
if (scalar(@nonops) < 1) {
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_noone', "non-ops");
return;
}
# print a starting message
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_start', "non-ops", $channel->{name});
# print listing header
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_header');
# print every chanop's nick, status (gone/here), userhost and hopcount
foreach my $nick (@nonops) {
my $userhost = $nick->{host};
# if user's host is longer than 50 characters, cut it to 47 to fit in column
$userhost = substr($userhost, 0, 47) if (length($userhost) > 50);
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_line', $nick->{nick}, $userhost);
}
# print listing footer
Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_end');
}
Irssi::command_bind("chops", "cmd_chops");
Irssi::command_bind("nops", "cmd_nops");
|