Xchat plugin to make thinklight blink

thinklight.plb

use strict;
use warnings;

Xchat::register('ThinkLight', '0.1', 'Make thinklight blink when called on IRC');
     
Xchat::hook_server('PRIVMSG', \&match_nickname);

Xchat::print(" Registered Thinklight event handler ");
     
sub match_nickname {
	my $nick = Xchat::get_info('nick') ;
	if ($_[1][0] =~ /$nick/){
		thinklight() ;
	}      
	return Xchat::EAT_NONE;
}


sub thinklight
{
		system("thinkalert 5 100000") ;
}