runtime/khelpcenter/searchhandlers/khc_docbookdig.pl.cmake

   1 #!/usr/bin/perl
   2 #
   3 #  Wrapper script for creating search indices for htdig.
   4 #
   5 #  This file is part of KHelpcenter.
   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 &dbg( "INDEXDIR: $indexdir" );
  56
  57 if ( !$lang ) { $lang = "en"; }
  58
  59 my $tmpdir = "$indexdir/$identifier.tmp";
  60 if ( ! -e $tmpdir ) {
  61   mkdir $tmpdir;
  62 }
  63
  64 print "Creating index for <b>'$identifier'</b>\n";
  65
  66 my $htdigconf = $indexdir;
  67 my $htdigdb = $indexdir;
  68
  69 my $conffile = "$htdigconf/$identifier.conf";
  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 my $startfile = "$tmpdir/index.html";
  82
  83 if ( !open( START, ">$startfile" ) ) {
  84   print STDERR "Unable to open '$startfile' for writing.\n";
  85   exit 1;
  86 }
  87
  88 $ENV{ PATH } = '/bin:/usr/bin';
  89 $ENV{ CDPATH } = '';
  90 $ENV{ ENV } = '';
  91
  92 my $findpath = "@HTML_INSTALL_DIR@/$lang/";
  93 my $findcmd = "find $findpath -name index.docbook";
  94
  95 print STDERR "FINDCMD: $findcmd\n";
  96
  97 if ( !open FIND, "$findcmd|" ) {
  98   print STDERR "Unable to find docs.\n";
  99   exit 1;
 100 }
 101 while ( <FIND> ) {
 102   chomp;
 103   my $path = $_;
 104   $path =~ /$findpath(.*)\/index.docbook$/;
 105   my $app = $1;
 106   print START "<a href=\"help://$app/index.docbook\">$path</a>\n";
 107 }
 108 close START;
 109
 110 my $mimetypefile = "$tmpdir/htdig_mime";
 111 if ( !open( MIME, ">$mimetypefile" ) ) {
 112   print STDERR "Unable to open '$mimetypefile' for writing.\n";
 113   exit 1;
 114 }
 115 print MIME << "EOT";
 116 text/html       html
 117 text/docbook    docbook
 118 EOT
 119 close MIME;
 120
 121 my $parserfile = "$tmpdir/docbookparser";
 122 if ( !open( PARSER, ">$parserfile" ) ) {
 123   print STDERR "Unable to open '$parserfile' for writing.\n";
 124   exit 1;
 125 }
 126 print PARSER << "EOT";
 127 #! /bin/sh
 128
 129 file=\$1
 130 shift
 131 mime=\$1
 132 shift
 133
 134 if test "\$#" -gt 0; then
 135   orig=\${1/file:\\//}
 136   shift
 137 fi
 138
 139 case "\$orig" in
 140   help:/*)
 141         orig=\${orig/help:\\//}
 142         orig=\${orig/\/index.docbook/}
 143         cd @HTML_INSTALL_DIR@/en/\$orig
 144         file=index.docbook
 145         ;;
 146   *)
 147         file=\$orig
 148         cd `dirname \$orig`
 149         ;;
 150 esac
 151
 152 echo "t apptitle"
 153 #$kdeprefix/bin/meinproc --htdig "\$file"
 154 $kdeprefix/bin/meinproc4 --htdig "\$file"
 155 EOT
 156 close PARSER;
 157 chmod 0755, $parserfile;
 158
 159 if ( !open( CONF, ">$conffile" ) ) {
 160   print STDERR "Unable to open '$conffile' for writing.\n";
 161   exit 1;
 162 }
 163 print CONF << "EOT";
 164 # htdig configuration for doc '$identifier'
 165 #
 166 # This file has been automatically created by KHelpcenter
 167 common_dir:             $commondir
 168 locale:                 $locale
 169 database_dir:           $htdigdb
 170 database_base:          \${database_dir}/$identifier
 171 local_urls:             help://=@HTML_INSTALL_DIR@/en/ file://=/
 172 local_urls_only:        true
 173 limit_urls_to:          file:// help:/
 174 ignore_noindex:         true
 175 max_hop_count:          4
 176 robotstxt_name:         kdedig
 177 compression_level:      6
 178 template_map:           Long long $kdeprefix/share/apps/khelpcenter/searchhandlers/htdig/htdig_long.html
 179 search_algorithm:       exact:1 prefix:0.8
 180 maximum_pages:          1
 181 matches_per_page:       10
 182 start_url:              file://$tmpdir/index.html
 183 external_parsers:       text/docbook $parserfile
 184 valid_extensions:       .docbook .html
 185 mime_types:             $mimetypefile
 186 EOT
 187 close CONF;
 188
 189 my $ret = system( "$htdigbin/htdig", "-v", "-s", "-i", "-c", $conffile );
 190 if ( $ret != 0 ) {
 191   print STDERR "htdig failed\n";
 192 } else {
 193   $ret = system( "$htdigbin/htmerge", "-c", $conffile );
 194   if ( $ret != 0 ) { print STDERR "htmerge failed\n"; }
 195 }
 196
 197 if ( $ret == 0 ) {
 198   my $existsfile = "$indexdir/$identifier.exists";
 199
 200   if ( !open( EXISTS, ">$existsfile" ) ) {
 201     print STDERR "Unable to open '$existsfile' for writing.\n";
 202     exit 1;
 203   }
 204   print EXISTS "$identifier\n";
 205   close EXISTS;
 206
 207   print "Finished successfully.\n";
 208 }
 209
 210 exit $ret;
 211
 212 sub dbg($)
 213 {
 214   $dbg && print STDERR shift, "\n";
 215 }
 216
 217 sub usage()
 218 {
 219   print "Usage: khc_docbookdig.pl --indexdir <indexdir> --docpath <path> ";
 220   print "--identifier <identifier>\n";
 221   exit 1;
 222 }