package nullPlugin;

# A plugin that skips IDs found in a skiplist-file

use strict;
our %skiplist;

sub init {
  open INPUT, "nullPlugin-list" or return 1;
  while(<INPUT>){
    chomp;
    $nullPlugin::skiplist{$_} = undef if /^\d+$/;
  }
  close INPUT;

  return 1;
}

sub worker {
  my $id = shift;
  
  return 1 if exists($nullPlugin::skiplist{$id});
}

1;