5 my ($start, $stop, $count, $group, $out) = (1,1,1,50,'dynamic-wormizer-script.sfsh');
6 GetOptions ( "start=i" => \$start,
8 "groupsize=i" => \$group,
13 $stop = $start + $count unless ($stop);
15 open SFSH, ">$out" or die("Can't open $out! $!");
18 for my $i ( $start .. $stop ) {
23 print SFSH "request open-ils.storage open-ils.worm.wormize.no_map.batch ".join(',', @list)."\n" if (@list);
26 print SFSH "request open-ils.storage open-ils.worm.wormize.no_map.no_map.batch ".join(',', @list)."\n" if (@list);