mirror of https://github.com/captn3m0/dotfiles.git
27 lines
717 B
Perl
27 lines
717 B
Perl
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");
|