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