#!/usr/bin/perl -w

IRC::print "\0035:: Loading ignore script ::\003 \n";
IRC::add_message_handler("PRIVMSG", "privmsg_handler");
IRC::add_command_handler("ignore", "ignore_handler");

sub privmsg_handler 
{
  my $line = shift(@_);
  $line =~ /:(.*!.*@.*) .*:.*/;
  $nick_address = $1;
  foreach my $luser (@ignore_list)
  {
    if ($nick_address =~ /$luser/) {return 1;}
  }
  return 0;
}

# ignore regex
sub ignore_handler
{
  my $luser = shift(@_);
  
  push @ignore_list, $luser;
  IRC::print "\0035:: regex $luser added to ignore list. ::\003 \n";
  return 1;
}