This file is indexed.

/usr/share/irssi/scripts/chops.pl is in irssi-scripts 20170711.

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");