Tfe

Old stuff/Perl/xchat/highlight/highlight.pl

#!/usr/bin/perl -w




IRC::register('highlight by tfe','0.1','','');
IRC::add_message_handler(PRIVMSG,highlight);

sub highlight($)
{
$_ = shift;
$nick = IRC::get_info(1);
if (/^[^\s]+ PRIVMSG [^\s]+ :.+?$nick/i)
    {
    system("play ".$ENV{'HOME'}."/.xchat2/highlight.wav &");
    }
}