From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 4 Jul 2007 19:02:27 +0000 (+0000)
Subject: removing vestigial traces of the old "worm" stuff
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=79242df734799d7bc6ed440ce46147c7b46ea115;p=Evergreen.git

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
index 0000000000..30f91e1ee7
--- /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
index 30f91e1ee7..0000000000
--- 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);