2 require 'oils_header.pl';
3 use strict; use warnings;
4 use OpenSRF::EX qw(:try);
6 # ------------------------------------------------------------
7 # Forks workers to force mods-ization of metarecords
8 # ------------------------------------------------------------
13 my $workers = shift || 1;
16 die "$0 <config> <minid> <maxid> [<num_processes>]\n" unless $maxid;
18 die "too many workers..\n" if $workers > 20;
25 osrf_connect($config);
27 for( $minid..$maxid ) {
29 next unless $_ % $workers == $id;
35 'open-ils.search.biblio.metarecord.mods_slim.retrieve',
38 if( oils_is_event($val) ) {
39 print "$_ - not found\n";