use Irssi;
use Data::Dumper;
use callee;

use vars qw($VERSION %IRSSI);

$VERSION = '0.2';

%IRSSI = (
	authors		=> 'unknown',
	contact		=> 'none',
	name			=> 'signal_test',
	description => 'testing out anonymous signals',
	license	=> 'Public Domain',);

sub testing {
	my ($data,$server,$witem) = @_;
	if ($server && $server->{connected}){
		foreach my $l (split(/ /,$data)) {
			Irssi::signal_add('message public',
				sub {
					my ($s,$msg,$nick,$address,$target) = @_;
					if ($nick eq $l) {
						Irssi::print("$nick : $msg");
						Irssi::signal_remove('message public',callee);
					}
				});
		}
	}
}
Irssi::command_bind('whaddup','testing');