mirror of git://git.acid.vegas/archive.git
15 lines
400 B
Perl
15 lines
400 B
Perl
use strict;
|
|
use warnings;
|
|
use Irssi;
|
|
use Irssi::Irc;
|
|
|
|
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");
|