use strict;
use Data::Dumper;
use vars qw($VERSION %IRSSI);

use Irssi;

# "message join", SERVER_REC, char *channel, char *nick, char *address
my $mcounter = 0;
sub event_join {
	if ($mcounter == 0) {
        	my ($server, $channel, $nick, $address) = @_;
		my $cnick = Irssi::settings_get_str('nick_to_send');
		my $message = Irssi::settings_get_str('message');
		if ($nick =~ /$cnick/i) {
	
			$server->command("MSG $nick $message");
			$mcounter++;
			Irssi::print ("Message sent to $nick");
		}
	}
}

Irssi::signal_add("message join", "event_join");

Irssi::settings_add_str('send message to nick','nick_to_send','foo');
Irssi::settings_add_str('send message to nick','message','bar');