From e01673a2efa421edb4c3b539afa54868a4f29c1f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Sl=C3=A1vek=20Banko?= <slavek.banko@axis.cz>
Date: Fri, 7 Feb 2014 02:51:30 +0100
Subject: Add cmake rule to find htsearch binary

---
 khelpcenter/searchhandlers/khc_htsearch.pl | 117 -----------------------------
 1 file changed, 117 deletions(-)
 delete mode 100755 khelpcenter/searchhandlers/khc_htsearch.pl

(limited to 'khelpcenter/searchhandlers/khc_htsearch.pl')

diff --git a/khelpcenter/searchhandlers/khc_htsearch.pl b/khelpcenter/searchhandlers/khc_htsearch.pl
deleted file mode 100755
index 5dc3f5f71..000000000
--- a/khelpcenter/searchhandlers/khc_htsearch.pl
+++ /dev/null
@@ -1,117 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-
-use Encode;
-use Getopt::Long;
-
-use open IO => ':utf8';
-use open ':std';
-
-my $htsearchpath="/srv/www/cgi-bin/htsearch";
-my $config;
-my $format;
-my $method;
-my $words;
-my $lang;
-my $docbook;
-my $indexdir;
-my $maxnum;
-
-GetOptions (
-  'binary=s' => \$htsearchpath,
-  'config=s' => \$config,
-  'format=s' => \$format,
-  'method=s' => \$method,
-  'words=s' => \$words,
-  'lang=s' => \$lang,
-  'docbook' => \$docbook,
-  'indexdir=s' => \$indexdir,
-  'maxnum=s' => \$maxnum
-);
-
-if ( !$indexdir ) {
-  print STDERR "No index dir given.\n";
-  exit 1;
-}
-
-if ( !$lang ) { $lang = "en"; }
-
-my $charset = langCharset( $lang );
-
-$words = encode( $charset, $words );
-
-if ( !open( HTSEARCH, "-|", "$htsearchpath", "-c", "$indexdir/$config.conf",
-            "format=$format&method=$method&words=$words&matchesperpage=$maxnum&exclude=[index.html]" ) )
-{
-  print "Can't execute htsearch at '$htsearchpath'.\n";
-  exit 1;
-}
-
-my ($body,$liststart,$ref,$link,$error,$errorOut);
-
-while( <HTSEARCH> ) {
-  if ( !$body ) {
-    print;
-    if ( /^<body/ ) { $body = 1; }
-  }
-  if ( /^<h3>/ ) {
-    print;
-    print "<ul>\n";
-    $liststart = 1;
-  }
-  if ( /^<img src.*<a href="(.*)">(.*)<\/a>/ ) {
-    $ref = $1;
-    $link = $2;
-
-    print STDERR "REF: $ref  LINK: $link\n";
-
-    $ref =~ s/file:\/\/localhost//;
-    
-    $ref =~ s/http:\/\/localhost\//file:\//;
-
-    if ( $docbook ) {
-      $ref =~ /help:\/\/(.*)\/index.docbook/;
-      my $app = $1;
-      $ref = "help:$app";
-
-      $link =~ s/apptitle/$app/;
-    }
-    
-    print "  <li><a href=\"$ref\">$link</a></li>\n";
-  }
-  if ( /^<h1>ht:\/\/Dig error/ ) {
-    $error = 1;
-    print "Htdig error:\n";
-  }
-  if ( $error && /^<pre>/ ) {
-    $errorOut = 1;
-  }
-  if ( $errorOut ) {
-    print;
-    if ( /^<\/pre>/ ) { $errorOut = 0; }
-  }
-}
-
-close HTSEARCH;
-
-if ( $liststart ) { print "</ul>\n"; }
-
-print "</body></html>\n";
-
-if ( $? != 0 ) { exit $?; }
-
-1;
-
-# Return charset used for given language
-sub langCharset( $ )
-{
-  my $lang = shift;
-  if ( $lang eq "cz" || $lang eq "hu" ) {
-    return "latin2";
-  } elsif ( $lang eq "kr" ) {
-    return "utf8";
-  } else {
-    return "latin1";
-  }
-}
-- 
cgit v1.2.3