This file is indexed.

/usr/share/irssi/scripts/dispatch.pl is in irssi-scripts 20120326.

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
use strict;
use warnings;
use Irssi;
use Irssi::Irc;
use vars qw($VERSION %IRSSI);

$VERSION = "0.0.2";
%IRSSI = (
	authors     => "Sebastian 'yath' Schmidt",
	contact     => "yathen\@web.de",
	name        => "Command dispatcher",
	description => "This scripts sends unknown commands to the server",
	license     => "GNU GPLv2",
	changed     => "Tue Mar  5 14:55:29 CET 2002",
);

sub event_default_command {
	my ($command, $server) = @_;
	return if (Irssi::settings_get_bool("dispatch_unknown_commands") == 0
		|| !$server);
	$server->send_raw($command);
	Irssi::signal_stop();
}

Irssi::settings_add_bool("misc", "dispatch_unknown_commands", 1);
Irssi::signal_add_first("default command", "event_default_command");