This file is indexed.

/usr/share/irssi/scripts/noisyquery.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
# prints "Query started with nick in window x" when query windows are
# created automatically. For irssi 0.7.98

# 21.08.2001 bd@bc-bd.org :: added automatic whois

use Irssi;

$VERSION="0.1.1";
%IRSSI = (
	authors=> 'unknown',
	contact=> 'bd@bc-bd.org',
	name=> 'noisyquery',
	description=> 'Prints an info about a newly started Query in your current window and runs a /whois on the nick.',
	license=> 'GPL v2',
	url=> 'http://bc-bd.org/software.php3#irssi',
);

sub sig_query() {
	my ($query, $auto) = @_;

	# don't say anything if we did /query,
	# or if query went to active window
	my $refnum = $query->window()->{refnum};
	my $window = Irssi::active_win();
	if ($auto && $refnum != $window->{refnum}) {
		$window->print("Query started with ".$query->{name}." in window $refnum");
		$query->{server}->command("whois ".$query->{name});
	}
}

Irssi::signal_add_last('query created', 'sig_query');