From e4e761759badf0fce19bae155c1dd4cbc6e888a5 Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 7 Nov 2005 13:13:27 +0000 Subject: [PATCH] allow any worm method to be called git-svn-id: svn://svn.open-ils.org/ILS/trunk@1968 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/extras/import/generate-srfsh-wormer.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/extras/import/generate-srfsh-wormer.pl b/Open-ILS/src/extras/import/generate-srfsh-wormer.pl index 16f76b7b7a..67baa4df5a 100755 --- a/Open-ILS/src/extras/import/generate-srfsh-wormer.pl +++ b/Open-ILS/src/extras/import/generate-srfsh-wormer.pl @@ -2,12 +2,13 @@ use strict; use Getopt::Long; -my ($start, $stop, $count, $group, $out) = (1,1,1,50,'dynamic-wormizer-script.sfsh'); +my ($start, $stop, $count, $group, $out, $method) = (1,1,1,50,'dynamic-wormizer-script.sfsh', 'pen-ils.worm.wormize.biblio.nomap.noscrub'); GetOptions ( "start=i" => \$start, "end=i" => \$stop, "groupsize=i" => \$group, "count=i" => \$count, "output=s" => \$out, + "method=s" => \$method, ); $stop = $start + $count unless ($stop); @@ -20,7 +21,7 @@ for my $i ( $start .. $stop ) { push @list, $i; next; } - print SFSH "request open-ils.storage open-ils.worm.wormize.no_map.batch ".join(',', @list)."\n" if (@list); + print SFSH "request open-ils.storage $method [".join(',', @list)."]\n" if (@list); @list = ($i); } -print SFSH "request open-ils.storage open-ils.worm.wormize.no_map.no_map.batch ".join(',', @list)."\n" if (@list); +print SFSH "request open-ils.storage $method [".join(',', @list)."]\n" if (@list); -- 2.43.2