t/db_dependent/zebra_config.pl

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use File::Copy;
   5 use File::Path qw(make_path);
   6 use File::Find;
   7 use File::Basename;
   8 use File::Spec;
   9
  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';
  14
  15 $ENV{__BIB_INDEX_MODE__} = $indexing_mode;
  16 $ENV{__AUTH_INDEX_MODE__} = $indexing_mode;
  17
  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';
  24 } else {
  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';
  29 }
  30
  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/lock/zebradb/rebuild");
  35 make_path("$destination/var/lib/zebradb");
  36 make_path("$destination/var/lib/zebradb/biblios");
  37 make_path("$destination/var/lib/zebradb/biblios/key");
  38 make_path("$destination/var/lib/zebradb/biblios/register");
  39 make_path("$destination/var/lib/zebradb/biblios/shadow");
  40 make_path("$destination/var/lib/zebradb/biblios/tmp");
  41 make_path("$destination/var/lib/zebradb/authorities");
  42 make_path("$destination/var/lib/zebradb/authorities/key");
  43 make_path("$destination/var/lib/zebradb/authorities/register");
  44 make_path("$destination/var/lib/zebradb/authorities/shadow");
  45 make_path("$destination/var/lib/zebradb/authorities/tmp");
  46 make_path("$destination/var/run/zebradb");
  47
  48 $ENV{'INSTALL_BASE'} = $destination;
  49 $ENV{'__INSTALL_BASE__'} = $destination;
  50
  51 my @files = ( "$source/etc/koha-conf.xml",
  52               "$source/etc/searchengine/queryparser.yaml",
  53             );
  54
  55 find(sub { push @files, $File::Find::name if ( -f $File::Find::name ); }, "$source/etc/zebradb");
  56
  57 foreach my $file (@files) {
  58     my $target = "$file";
  59     $target =~ s#$source#$destination#;
  60     $target =~ s#etc/zebradb#etc/koha/zebradb#;
  61     unlink($target);
  62     make_path(dirname($target));
  63     copy("$file", "$target");
  64     system("perl $source/rewrite-config.PL $target");
  65     if ($file =~ m/xml/) {
  66         replace("$target", "$destination/intranet/templates", "$source/koha-tmpl/intranet-tmpl");
  67     }
  68 }
  69
  70
  71 sub replace {
  72     my ($file, $pattern, $replacement) = @_;
  73     system("sed -i -e 's#$pattern#$replacement#' $file");
  74 }