[open-ils-commits] r7513 - trunk/Open-ILS/src/extras/import

[svn at svn.open-ils.org]

Author: miker
Date: 2007-07-04 15:02:27 -0400 (Wed, 04 Jul 2007)
New Revision: 7513

Added:
   trunk/Open-ILS/src/extras/import/generate-srfsh-indexer.pl
Removed:
   trunk/Open-ILS/src/extras/import/generate-srfsh-wormer.pl
Log:
removing vestigial traces of the old "worm" stuff

Copied: trunk/Open-ILS/src/extras/import/generate-srfsh-indexer.pl (from rev 7512, trunk/Open-ILS/src/extras/import/generate-srfsh-wormer.pl)
===================================================================
--- trunk/Open-ILS/src/extras/import/generate-srfsh-indexer.pl	                        (rev 0)
+++ trunk/Open-ILS/src/extras/import/generate-srfsh-indexer.pl	2007-07-04 19:02:27 UTC (rev 7513)
@@ -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);

Deleted: trunk/Open-ILS/src/extras/import/generate-srfsh-wormer.pl
===================================================================
--- trunk/Open-ILS/src/extras/import/generate-srfsh-wormer.pl	2007-07-04 19:02:19 UTC (rev 7512)
+++ trunk/Open-ILS/src/extras/import/generate-srfsh-wormer.pl	2007-07-04 19:02:27 UTC (rev 7513)
@@ -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);