html/dispatch.pl

• package main
  • event_default_command
• EOF

   1 use strict;
   2 use warnings;
   3 use Irssi;
   4 use Irssi::Irc;
   5 use 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 
  17 sub 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 
  25 Irssi::settings_add_bool("misc", "dispatch_unknown_commands", 1);
  26 Irssi::signal_add_first("default command", "event_default_command");