5 use File::Path qw(make_path);
10 my $source = File::Spec->rel2abs('.');
11 my $destination = $ARGV[0];
12 my $marc_type = $ARGV[1] || 'marc21';
13 my $indexing_mode = $ARGV[2] || 'grs1';
15 $ENV{__BIB_INDEX_MODE__} = $indexing_mode;
16 $ENV{__AUTH_INDEX_MODE__} = $indexing_mode;
18 $ENV{__ZEBRA_MARC_FORMAT__} = $marc_type;
19 if ($indexing_mode eq 'dom') {
20 $ENV{__ZEBRA_BIB_CFG__} = 'zebra-biblios-dom.cfg';
21 $ENV{__BIB_RETRIEVAL_CFG__} = 'retrieval-info-bib-dom.xml';
22 $ENV{__ZEBRA_AUTH_CFG__} = 'zebra-authorities-dom.cfg';
23 $ENV{__AUTH_RETRIEVAL_CFG__} = 'retrieval-info-auth-dom.xml';
25 $ENV{__ZEBRA_BIB_CFG__} = 'zebra-biblios.cfg';
26 $ENV{__BIB_RETRIEVAL_CFG__} = 'retrieval-info-bib-grs1.xml';
27 $ENV{__ZEBRA_AUTH_CFG__} = 'zebra-authorities.cfg';
28 $ENV{__AUTH_RETRIEVAL_CFG__} = 'retrieval-info-auth-grs1.xml';
31 make_path("$destination/var/lock/zebradb");
32 make_path("$destination/var/lock/zebradb/biblios");
33 make_path("$destination/var/lock/zebradb/authorities");
34 make_path("$destination/var/lib/zebradb");
35 make_path("$destination/var/lib/zebradb/biblios");
36 make_path("$destination/var/lib/zebradb/biblios/key");
37 make_path("$destination/var/lib/zebradb/biblios/register");
38 make_path("$destination/var/lib/zebradb/biblios/shadow");
39 make_path("$destination/var/lib/zebradb/biblios/tmp");
40 make_path("$destination/var/lib/zebradb/authorities");
41 make_path("$destination/var/lib/zebradb/authorities/key");
42 make_path("$destination/var/lib/zebradb/authorities/register");
43 make_path("$destination/var/lib/zebradb/authorities/shadow");
44 make_path("$destination/var/lib/zebradb/authorities/tmp");
45 make_path("$destination/var/run/zebradb");
47 $ENV{'INSTALL_BASE'} = $destination;
48 $ENV{'__INSTALL_BASE__'} = $destination;
50 my @files = ( "$source/etc/koha-conf.xml",
51 "$source/etc/searchengine/queryparser.yaml",
54 find(sub { push @files, $File::Find::name if ( -f $File::Find::name ); }, "$source/etc/zebradb");
56 foreach my $file (@files) {
58 $target =~ s#$source#$destination#;
59 $target =~ s#etc/zebradb#etc/koha/zebradb#;
61 make_path(dirname($target));
62 copy("$file", "$target");
63 system("perl $source/rewrite-config.PL $target");
64 if ($file =~ m/xml/) {
65 replace("$target", "$destination/intranet/templates", "$source/koha-tmpl/intranet-tmpl");
71 my ($file, $pattern, $replacement) = @_;
72 system("sed -i -e 's#$pattern#$replacement#' $file");