#
#  Copyright (c) 2005, William Pitcock
#  All rights reserved.
# 
#  Redistribution and use in source and binary forms, with
#  or without modification, are permitted provided that the
#  following conditions are met:
# 
#  1. Redistributions of source code must retain the above
#     copyright notice, this list of conditions and the
#     following disclaimer.
#  2. Redistributions in binary form must reproduce the
#     above copyright notice, this list of conditions and
#     the following disclaimer in the documentation and/or
#     other materials provided with the distribution.
# 
#  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
#  CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
#  WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
#  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
#  PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
#  COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY
#  DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
#  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
#  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
#  USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
#  CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
#  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
#  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
#  USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
#  OF SUCH DAMAGE.
#
use Irssi;
use vars qw($VERSION %IRSSI);

$VERSION = "0.1";
%IRSSI = (
	authors		=> 'William Pitcock',
	contact		=> 'nenolod@nenolod.net',
	name		=> 'inject',
	description	=> 'Injects a message into a server session.',
	license		=> 'BSD',
	url		=> 'http://www.nenolod.net/code/misc',
	modules		=> '',
	sbitems		=> '',
	commands	=> 'inject'
);

Irssi::command_bind("inject", "cmd_inject");

sub cmd_inject {
	my ($data, $server) = @_;

	if ($data)
	{
		Irssi::print("Injecting $data on server record $server->{address}");
		Irssi::signal_emit("server incoming", $server, $data);	
	}
	else
	{
		Irssi::print("No data specified to inject.");
	}
}