From dba37f38e76f81dda05d2e837176757a91636ef6 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 11 Aug 2005 16:35:54 +0000
Subject: [PATCH] This script can be use to rebuild the zebra DB. It stores all
 koha MARC records in iso2709, in the bilbios directory. After that, you just
 have to "zebraidx update biblios"

I tried on a 9900 DB, here are the results :

[paul@bureau migration_tools]$ ./rebuild_zebra.pl -c
9900
9903 MARC record done in 37.9104120731354 seconds

[paul@bureau zebra]$ zebraidx update biblios
<snip>
18:31:24-11/08 zebraidx(20348) [log] Iterations . . . 144575
18:31:24-11/08 zebraidx(20348) [log] Distinct words .  39891
18:31:24-11/08 zebraidx(20348) [log] Updates. . . . .     46
18:31:24-11/08 zebraidx(20348) [log] Deletions. . . .      2
18:31:24-11/08 zebraidx(20348) [log] Insertions . . .  39843
18:31:24-11/08 zebraidx(20348) [log] zebra_register_close p=0x8104cf8
18:31:25-11/08 zebraidx(20348) [log] Records:    9887 i/u/d 9881/6/0
18:31:25-11/08 zebraidx(20348) [log] user/system: 531/145
18:31:25-11/08 zebraidx(20348) [log] zebra_stop
18:31:25-11/08 zebraidx(20348) [log] zebraidx times: 11.33  5.31  1.45
---
 misc/migration_tools/rebuild_zebra.pl | 55 +++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100755 misc/migration_tools/rebuild_zebra.pl

diff --git a/misc/migration_tools/rebuild_zebra.pl b/misc/migration_tools/rebuild_zebra.pl
new file mode 100755
index 0000000000..3a15e37fff
--- /dev/null
+++ b/misc/migration_tools/rebuild_zebra.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+# small script that import an iso2709 file into koha 2.0
+
+use strict;
+
+# Koha modules used
+use MARC::File::USMARC;
+use MARC::Record;
+use MARC::Batch;
+use C4::Context;
+use C4::Biblio;
+use Time::HiRes qw(gettimeofday);
+
+use Getopt::Long;
+my ( $input_marc_file, $number) = ('',0);
+my ($confirm);
+GetOptions(
+    'c' => \$confirm,
+);
+
+unless ($confirm) {
+	print <<EOF
+
+script to write files for zebra DB reindexing. Once it's done, run zebraidx update biblios
+
+run the script with -c to confirm the reindexing.
+
+EOF
+;#'
+die;
+}
+
+$|=1; # flushes output
+
+my $dbh = C4::Context->dbh;
+my $cgidir = C4::Context->intranetdir ."/cgi-bin";
+unless (opendir(DIR, "$cgidir")) {
+		$cgidir = C4::Context->intranetdir."/";
+} 
+
+my $starttime = gettimeofday;
+my $sth = $dbh->prepare("select biblionumber from biblio");
+$sth->execute;
+my $i=0;
+while ((my $biblionumber) = $sth->fetchrow) {
+	my $record = MARCgetbiblio($dbh,$biblionumber);
+	my $filename = $cgidir."/zebra/biblios/BIBLIO".$biblionumber."iso2709";
+	open F,"> $filename";
+	print F $record->as_usmarc();
+	close F;
+	$i++;
+	print "\r$i" unless ($i % 100);
+}
+my $timeneeded = gettimeofday - $starttime;
+print "\n$i MARC record done in $timeneeded seconds\n";
-- 
2.39.5