use strict;
use warnings;
use Xchat qw(:all); # imports all the functions documented on this page

register( "IgnoreExt", "0.1",
     "Extended ignore function which shows some simple line when the ignored user writes something" );

hook_server( "PRIVMSG", \&ignore_ext );

# ^kaffeebot\S*!\S*@\S*

sub ignore_ext {


  my $ignoreNicks = "julistern";


  my @foobar = split("@", $_[0][0]);
     @foobar = split(":", $foobar[0]);
     @foobar = split("!", $foobar[1]);

  my $nick = $foobar[0];

  if( lc($nick) eq lc($ignoreNicks) ) {
    prnt "muh";
    return EAT_XCHAT;
  }

  return EAT_NONE;
}