runtime/khelpcenter/searchhandlers/khc_htdig.pl.cmake

   1 #!/usr/bin/perl
   2 #
   3 #  Wrapper script for creating search indices for htdig.
   4 #
   5 #  This file is part of the SuSE help system.
   6 #
   7 #  Copyright (C) 2002  SuSE Linux AG, Nuernberg
   8 #
   9 #  Author: Cornelius Schumacher <cschum@suse.de>
  10 #
  11 #  This program is free software; you can redistribute it and/or modify
  12 #  it under the terms of the GNU General Public License as published by
  13 #  the Free Software Foundation; either version 2 of the License, or
  14 #  (at your option) any later version.
  15 #
  16 #  This program is distributed in the hope that it will be useful,
  17 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 #  GNU General Public License for more details.
  20 #
  21 #  You should have received a copy of the GNU General Public License
  22 #  along with this program; if not, write to the Free Software
  23 #  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  24
  25 use strict;
  26
  27 use Getopt::Long;
  28
  29 my $htdigdata = "/srv/www/htdig/common/";
  30 my $htdigbin = "/usr/bin";
  31 my $kdeprefix = "@CMAKE_INSTALL_PREFIX@";
  32 chomp $kdeprefix;
  33
  34 my $dbg = 1;
  35
  36 my ($indexdir, $docpath, $identifier, $lang, $help );
  37
  38 GetOptions (
  39   'indexdir=s' => \$indexdir,
  40   'docpath=s' => \$docpath,
  41   'identifier=s' => \$identifier,
  42   'lang=s' => \$lang,
  43   'help' => \$help,
  44 );
  45
  46 if ( $help ) {
  47   usage();
  48 }
  49
  50 if ( !$indexdir || !$docpath || !$identifier ) {
  51   print STDERR "Missing arguments.\n";
  52   usage();
  53 }
  54
  55 if ( !$lang ) { $lang = "en"; }
  56
  57 &dbg( "INDEXDIR: $indexdir" );
  58
  59 print "Creating index for <b>'$identifier'</b>\n";
  60
  61 my $htdigconf = $indexdir;
  62 my $htdigdb = $indexdir;
  63
  64 my $conffile = "$htdigconf/$identifier.conf";
  65
  66 if ( !open( CONF, ">$conffile" ) ) {
  67   print STDERR "Unable to open '$conffile' for writing.\n";
  68   exit 1;
  69 }
  70
  71 my $commondir = "$htdigdata/$lang";
  72 if ( !$lang || !-e $commondir ) {
  73   $commondir = "$htdigdata/en";
  74 }
  75 if ( !-e $commondir ) { $commondir = $htdigdata; }
  76
  77 my $locale;
  78 if ( $lang eq "de" ) { $locale = "de_DE"; }
  79 else { $locale = $lang; }
  80
  81 print CONF << "EOT";
  82 # htdig configuration for doc '$identifier'
  83 #
  84 # This file has been automatically created by KHelpcenter
  85
  86 common_dir:             $commondir
  87 locale:                 $locale
  88 database_dir:           $htdigdb
  89 local_urls:             http://localhost=
  90 local_urls_only:        true
  91 limit_urls_to:          http://localhost
  92 ignore_noindex:         true
  93 max_hop_count:          4
  94 robotstxt_name:         kdedig
  95 compression_level:      6
  96 template_map:           Long long $kdeprefix/share/apps/khelpcenter/searchhandlers/htdig/htdig_long.html \\
  97                         Short short $htdigdata/short.html
  98 search_algorithm:       exact:1 prefix:0.8
  99 maximum_pages:          1
 100 matches_per_page:       10
 101 database_base:          \${database_dir}/$identifier
 102 start_url:              http://localhost/$docpath
 103 # for pdf-files
 104 max_doc_size:           5000000
 105 external_parsers: application/pdf /usr/share/doc/packages/htdig/contrib/parse_doc.pl      application/postscript /usr/share/doc/packages/htdig/contrib/parse_doc.pl
 106 #external_parsers: text/docbook /build/htdig/parser
 107 EOT
 108
 109 close CONF;
 110
 111 $ENV{ PATH } = '';
 112 $ENV{ CDPATH } = '';
 113 $ENV{ ENV } = '';
 114
 115 my $ret = system( "$htdigbin/htdig", "-s", "-i", "-c", $conffile );
 116 if ( $ret != 0 ) {
 117   print STDERR "htdig failed\n";
 118 } else {
 119   $ret = system( "$htdigbin/htmerge", "-c", $conffile );
 120   if ( $ret != 0 ) { print STDERR "htmerge failed\n"; }
 121 }
 122
 123 if ( $ret == 0 ) {
 124   my $existsfile = "$indexdir/$identifier.exists";
 125
 126   if ( !open( EXISTS, ">$existsfile" ) ) {
 127     print STDERR "Unable to open '$existsfile' for writing.\n";
 128     exit 1;
 129   }
 130   print EXISTS "$identifier\n";
 131   close EXISTS;
 132
 133   print "Finished successfully.\n";
 134 }
 135
 136 exit $ret;
 137
 138 sub dbg($)
 139 {
 140   $dbg && print STDERR shift, "\n";
 141 }
 142
 143 sub usage()
 144 {
 145   print "Usage: khc_htdig.pl --indexdir <indexdir> --docpath <path> ";
 146   print "--identifier <identifier>\n";
 147   exit 1;
 148 }