removing vestigial traces of the old "worm" stuff

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7513 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/extras/import/generate-srfsh-indexer.pl b/Open-ILS/src/extras/import/generate-srfsh-indexer.pl
new file mode 100755 (executable)
index 0000000..30f91e1
--- /dev/null
+++ b/Open-ILS/src/extras/import/generate-srfsh-indexer.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+use strict;
+use Getopt::Long;
+
+my ($start, $stop, $count, $group, $out, $method) = (1,1,1,50,'dynamic-reindex-script.sfsh', 'open-ils.ingest.full.biblio.record_list');
+GetOptions (   "start=i" => \$start,
+               "end=i"   => \$stop,
+               "groupsize=i"   => \$group,
+               "count=i"   => \$count,
+               "output=s"   => \$out,
+               "method=s" => \$method,
+);
+
+$stop = $start + $count unless ($stop);
+
+open SFSH, ">$out" or die("Can't open $out!  $!");
+
+my @list;
+for my $i ( $start .. $stop ) {
+       if ( $i % $group ) {
+               push @list, $i;
+               next;
+       }
+       push @list, $i;
+       print SFSH "request open-ils.ingest $method [".join(',', @list)."]\n" if (@list);
+       @list = ();
+}
+print SFSH "request open-ils.ingest $method [".join(',', @list)."]\n" if (@list);

diff --git a/Open-ILS/src/extras/import/generate-srfsh-wormer.pl b/Open-ILS/src/extras/import/generate-srfsh-wormer.pl
deleted file mode 100755 (executable)
index 30f91e1..0000000
--- a/Open-ILS/src/extras/import/generate-srfsh-wormer.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use Getopt::Long;
-
-my ($start, $stop, $count, $group, $out, $method) = (1,1,1,50,'dynamic-reindex-script.sfsh', 'open-ils.ingest.full.biblio.record_list');
-GetOptions (   "start=i" => \$start,
-               "end=i"   => \$stop,
-               "groupsize=i"   => \$group,
-               "count=i"   => \$count,
-               "output=s"   => \$out,
-               "method=s" => \$method,
-);
-
-$stop = $start + $count unless ($stop);
-
-open SFSH, ">$out" or die("Can't open $out!  $!");
-
-my @list;
-for my $i ( $start .. $stop ) {
-       if ( $i % $group ) {
-               push @list, $i;
-               next;
-       }
-       push @list, $i;
-       print SFSH "request open-ils.ingest $method [".join(',', @list)."]\n" if (@list);
-       @list = ();
-}
-print SFSH "request open-ils.ingest $method [".join(',', @list)."]\n" if (@list);