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