#!/usr/bin/perl

IRC::register("Ding", "0.1", "", "");
IRC::print("\0035PVT message annoucner - by Sapan Bhatia");
IRC::add_message_handler("PRIVMSG", "notice_handler");

my @talk;

sub notice_handler
{
	my $a=shift(@_);
	$a =~ m/([[:alnum:]_\-\,\.\+\=\~]*)[\!\s@].*PRIVMSG(.*)/;
	
	my $nick = $1;
	my $chan = $2;
	$chan =~ m/(.*)\:/;
	my $c = $1;
	

	if ($c =~ m/sb98052/ || $c =~ m/radical/ || $c=~ m/dvlper/)
	{
		system("play /home/sapan/sounds/ding.wav");
	}
	return 0;
}