# when kicked from a channel, unban yourself, rejoin, and /kill the fucker
# who did this to you


use Irssi;
use Irssi::Irc;
use strict;
use vars qw($VERSION %IRSSI);

$VERSION = "20030701";
%IRSSI = (
	authors		=> 'cj_',
	name		=> 'punishver',
	description	=> 'kill  assholes that ctcp version me',
	license		=> 'Public Domain',
	changed		=> $VERSION,
);

my $message = "asshat";

sub event_ctcp_version {
	if (Irssi::settings_get_bool('kill_on_version')) {
		my ($self, $unused, $target) = @_;
		return if $target =~ /nlbot/i;
		Irssi::print("VERSION from $target, launching WMD!!!oneone");
		$self->command("MSG $target $message");
		$self->send_raw("KILL $target $message");
		Irssi::signal_stop();
	}
}

Irssi::signal_add('ctcp msg version', \&event_ctcp_version);
Irssi::settings_add_bool($IRSSI{name}, 'kill_on_version', 0);