1use strict;
2use warnings;
3use Irssi;
4use Irssi::Irc;
5use vars qw($VERSION %IRSSI);
6
7$VERSION = "0.0.2";
8%IRSSI = (
9	authors     => "Sebastian 'yath' Schmidt",
10	contact     => "yathen\@web.de",
11	name        => "Command dispatcher",
12	description => "This scripts sends unknown commands to the server",
13	license     => "GNU GPLv2",
14	changed     => "Tue Mar  5 14:55:29 CET 2002",
15);
16
17sub event_default_command {
18	my ($command, $server) = @_;
19	return if (Irssi::settings_get_bool("dispatch_unknown_commands") == 0
20		|| !$server);
21	$server->send_raw($command);
22	Irssi::signal_stop();
23}
24
25Irssi::settings_add_bool("misc", "dispatch_unknown_commands", 1);
26Irssi::signal_add_first("default command", "event_default_command");
27