[Koha-cvs] koha/misc/migration_tools rebuild_zebra.pl
paul poulain
paul at koha-fr.org
Tue Apr 17 10:50:33 CEST 2007
CVSROOT: /sources/koha
Module name: koha
Changes by: paul poulain <tipaul> 07/04/17 08:50:33
Modified files:
misc/migration_tools: rebuild_zebra.pl
Log message:
some bugfixes for this script that automatically build zebra DB from default config files
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/migration_tools/rebuild_zebra.pl?cvsroot=koha&r1=1.6&r2=1.7
Patches:
Index: rebuild_zebra.pl
===================================================================
RCS file: /sources/koha/koha/misc/migration_tools/rebuild_zebra.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- rebuild_zebra.pl 29 Mar 2007 13:30:32 -0000 1.6
+++ rebuild_zebra.pl 17 Apr 2007 08:50:33 -0000 1.7
@@ -14,7 +14,7 @@
$|=1; # flushes output
# limit for database dumping
-my $limit;# = "LIMIT 500";
+my $limit = "LIMIT 500";
my $directory;
my $skip_export;
my $keep_export;
@@ -204,14 +204,15 @@
$created_dir_or_file++;
}
- unless (-f C4::Context->ModZebrations('authorityserver')->{ccl2rpn}) {
- system("cp -f $kohadir/misc/zebra/ccl.properties ".C4::Context->ModZebrations('authorityserver')->{ccl2rpn});
- # system("cp -f $kohadir/misc/zebra/ccl.properties $authorityserverdir/etc/ccl.properties");
+ unless (-f C4::Context->zebraconfig('authorityserver')->{ccl2rpn}) {
+# system("cp -f $kohadir/misc/zebra/ccl.properties ".C4::Context->zebraconfig('authorityserver')->{ccl2rpn});
+ system("cp -f $kohadir/misc/zebra/ccl.properties $authorityserverdir/etc/ccl.properties");
print "Info: copied ccl.properties\n";
$created_dir_or_file++;
}
unless (-f C4::Context->zebraconfig('authorityserver')->{cql2rpn}) {
- system("cp -f $kohadir/misc/zebra/pqf.properties ".C4::Context->zebraconfig('authorityserver')->{cql2rpn});
+# system("cp -f $kohadir/misc/zebra/pqf.properties ".C4::Context->zebraconfig('authorityserver')->{ccl2rpn});
+ system("cp -f $kohadir/misc/zebra/pqf.properties $authorityserverdir/etc/pqf.properties");
print "Info: copied pqf.properties\n";
$created_dir_or_file++;
}
@@ -222,42 +223,42 @@
unless (-f C4::Context->zebraconfig('authorityserver')->{config}) {
open ZD,">:utf8 ",C4::Context->zebraconfig('authorityserver')->{config};
print ZD "
- # generated by KOHA/misc/migration_tools/rebuild_zebra.pl
- profilePath:\${srcdir:-.}:$authorityserverdir/tab/:$tabdir/tab/:\${srcdir:-.}/tab/
+# generated by KOHA/misc/migration_tools/rebuild_zebra.pl
+profilePath:\${srcdir:-.}:$authorityserverdir/tab/:$tabdir/tab/:\${srcdir:-.}/tab/
- encoding: UTF-8
- # Files that describe the attribute sets supported.
- attset: auth1.att
- attset: explain.att
- attset: gils.att
-
- modulePath:$modulesdir/modules/
- # Specify record type
- iso2709.recordType:grs.marcxml.record
- recordType:grs.xml
- recordId: (auth1,Local-Number)
- storeKeys:1
- storeData:1
-
-
- # Lock File Area
- lockDir: $authorityserverdir/lock
- perm.anonymous:r
- perm.kohaadmin:rw
- passw.kohalis
- shadow
- register: $authorityserverdir/register:4G
- shadow: $authorityserverdir/shadow:4G
-
- # Temp File area for result sets
- setTmpDir: $authorityserverdir/tmp
-
- # Temp File area for index program
- keyTmpDir: $authorityserverdir/key
-
- # Approx. Memory usage during indexing
- memMax: 40M
- rank:rank-1
+encoding: UTF-8
+# Files that describe the attribute sets supported.
+attset: auth1.att
+attset: explain.att
+attset: gils.att
+
+modulePath:$modulesdir/modules/
+# Specify record type
+iso2709.recordType:grs.marcxml.record
+recordType:grs.xml
+recordId: (auth1,Local-Number)
+storeKeys:1
+storeData:1
+
+
+# Lock File Area
+lockDir: $authorityserverdir/lock
+perm.anonymous:r
+perm.kohaadmin:rw
+passw.kohalis
+shadow
+register: $authorityserverdir/register:4G
+shadow: $authorityserverdir/shadow:4G
+
+# Temp File area for result sets
+setTmpDir: $authorityserverdir/tmp
+
+# Temp File area for index program
+keyTmpDir: $authorityserverdir/key
+
+# Approx. Memory usage during indexing
+memMax: 40M
+rank:rank-1
";
print "Info: creating zebra-authorities.cfg\n";
$created_dir_or_file++;
@@ -303,9 +304,10 @@
print "====================\n";
print "REINDEXING zebra\n";
print "====================\n";
- system("zebraidx -g iso2709 -c ".C4::Context->zebraconfig('authorityserver')->{config}." -d authorities init") if ($reset);
- system("zebraidx -g iso2709 -c ".C4::Context->zebraconfig('authorityserver')->{config}." -d authorities update $directory/authorities");
- system("zebraidx -g iso2709 -c ".C4::Context->zebraconfig('authorityserver')->{config}." -d authorities commit");
+warn ">>>>>>>>>>>>>>>".C4::Context->zebraconfig('authorityserver')->{config};
+ system("zebraidx -c ".C4::Context->zebraconfig('authorityserver')->{config}." -g iso2709 -d authorities init") if ($reset);
+ system("zebraidx -c ".C4::Context->zebraconfig('authorityserver')->{config}." -g iso2709 -d authorities update $directory/authorities");
+ system("zebraidx -c ".C4::Context->zebraconfig('authorityserver')->{config}." -g iso2709 -d authorities commit");
} else {
print "skipping authorities\n";
}
@@ -391,14 +393,15 @@
print "Info: copied default.idx\n";
$created_dir_or_file++;
}
- unless (-f C4::Context->ModZebrations('biblioserver')->{ccl2rpn}) {
- system("cp -f $kohadir/misc/zebra/ccl.properties ".C4::Context->ModZebrations('biblioserver')->{ccl2rpn});
- # system("cp -f $kohadir/misc/zebra/ccl.properties $biblioserverdir/etc/ccl.properties");
+ unless (-f C4::Context->zebraconfig('biblioserver')->{ccl2rpn}) {
+# system("cp -f $kohadir/misc/zebra/ccl.properties ".C4::Context->zebraconfig('biblioserver')->{ccl2rpn});
+ system("cp -f $kohadir/misc/zebra/ccl.properties $biblioserverdir/etc/ccl.properties");
print "Info: copied ccl.properties\n";
$created_dir_or_file++;
}
unless (-f C4::Context->zebraconfig('biblioserver')->{cql2rpn}) {
- system("cp -f $kohadir/misc/zebra/pqf.properties ".C4::Context->zebraconfig('authorityserver')->{cql2rpn});
+# system("cp -f $kohadir/misc/zebra/pqf.properties ".C4::Context->zebraconfig('biblioserver')->{ccl2rpn});
+ system("cp -f $kohadir/misc/zebra/pqf.properties $biblioserverdir/etc/pqf.properties");
print "Info: copied pqf.properties\n";
$created_dir_or_file++;
}
@@ -409,42 +412,42 @@
unless (-f C4::Context->zebraconfig('biblioserver')->{config}) {
open ZD,">:utf8 ",C4::Context->zebraconfig('biblioserver')->{config};
print ZD "
- # generated by KOHA/misc/migrtion_tools/rebuild_zebra.pl
- profilePath:\${srcdir:-.}:$biblioserverdir/tab/:$tabdir/tab/:\${srcdir:-.}/tab/
+# generated by KOHA/misc/migrtion_tools/rebuild_zebra.pl
+profilePath:\${srcdir:-.}:$biblioserverdir/tab/:$tabdir/tab/:\${srcdir:-.}/tab/
- encoding: UTF-8
- # Files that describe the attribute sets supported.
- attset:bib1.att
- attset:explain.att
- attset:gils.att
-
- modulePath:$modulesdir/modules/
- # Specify record type
- iso2709.recordType:grs.marcxml.record
- recordType:grs.xml
- recordId: (bib1,Local-Number)
- storeKeys:1
- storeData:1
-
-
- # Lock File Area
- lockDir: $biblioserverdir/lock
- perm.anonymous:r
- perm.kohaadmin:rw
- passw.kohalis
- shadow
- register: $biblioserverdir/register:4G
- shadow: $biblioserverdir/shadow:4G
-
- # Temp File area for result sets
- setTmpDir: $biblioserverdir/tmp
-
- # Temp File area for index program
- keyTmpDir: $biblioserverdir/key
-
- # Approx. Memory usage during indexing
- memMax: 40M
- rank:rank-1
+encoding: UTF-8
+# Files that describe the attribute sets supported.
+attset:bib1.att
+attset:explain.att
+attset:gils.att
+
+modulePath:$modulesdir/modules/
+# Specify record type
+iso2709.recordType:grs.marcxml.record
+recordType:grs.xml
+recordId: (bib1,Local-Number)
+storeKeys:1
+storeData:1
+
+
+# Lock File Area
+lockDir: $biblioserverdir/lock
+perm.anonymous:r
+perm.kohaadmin:rw
+passw.kohalis
+shadow
+register: $biblioserverdir/register:4G
+shadow: $biblioserverdir/shadow:4G
+
+# Temp File area for result sets
+setTmpDir: $biblioserverdir/tmp
+
+# Temp File area for index program
+keyTmpDir: $biblioserverdir/key
+
+# Approx. Memory usage during indexing
+memMax: 40M
+rank:rank-1
";
print "Info: creating zebra-biblios.cfg\n";
$created_dir_or_file++;
@@ -478,7 +481,8 @@
my $i=0;
while (my ($biblionumber) = $sth->fetchrow) {
my $record = GetMarcBiblio($biblionumber);
- # warn $record->as_formatted;
+ warn $record->as_formatted;
+die if $record->subfield('090','9') eq 11;
# print $record;
# check that biblionumber & biblioitemnumber are stored in the MARC record, otherwise, add them & update the biblioitems.marcxml data.
my $record_correct=1;
@@ -554,6 +558,7 @@
print "====================\n";
print "REINDEXING zebra\n";
print "====================\n";
+warn ">>>>>>>>>>>>>".C4::Context->zebraconfig('biblioserver')->{config};
system("zebraidx -g iso2709 -c ".C4::Context->zebraconfig('biblioserver')->{config}." -d biblios init") if ($reset);
system("zebraidx -g iso2709 -c ".C4::Context->zebraconfig('biblioserver')->{config}." -d biblios update $directory/biblios");
system("zebraidx -g iso2709 -c ".C4::Context->zebraconfig('biblioserver')->{config}." -d biblios commit");
More information about the Koha-cvs
mailing list