5 my ($start, $stop, $count, $group, $out, $method) = (1,1,1,50,'dynamic-wormizer-script.sfsh', 'open-ils.worm.wormize.biblio.nomap.noscrub');
6 GetOptions ( "start=i" => \$start,
8 "groupsize=i" => \$group,
11 "method=s" => \$method,
14 $stop = $start + $count unless ($stop);
16 open SFSH, ">$out" or die("Can't open $out! $!");
19 for my $i ( $start .. $stop ) {
24 print SFSH "request open-ils.storage $method [".join(',', @list)."]\n" if (@list);
27 print SFSH "request open-ils.storage $method [".join(',', @list)."]\n" if (@list);