From 620a999812c4612a48e41d1fd81d094e0667efc6 Mon Sep 17 00:00:00 2001
From: Michele Calgaro <michele.calgaro@yahoo.it>
Date: Sun, 9 Feb 2020 19:43:10 +0900
Subject: Removed beagle related code.

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
(cherry picked from commit f16b630348b5b14c0a3c481be606185f31b6ef12)
---
 khelpcenter/searchhandlers/khc_beagle_index.pl | 49 --------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 khelpcenter/searchhandlers/khc_beagle_index.pl

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

diff --git a/khelpcenter/searchhandlers/khc_beagle_index.pl b/khelpcenter/searchhandlers/khc_beagle_index.pl
deleted file mode 100644
index aaec63607..000000000
--- a/khelpcenter/searchhandlers/khc_beagle_index.pl
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-# vim:sw=4:et
-
-use warnings;
-
-sub getKDEDocDir() 
-{
-    my $prefix = `tde-config --prefix`;
-    chomp $prefix;
-
-    $prefix = "/opt/kde" if (not defined($prefix));
-    return "$prefix/share/doc";
-}
-
-sub addRoot() 
-{
-    my $kdedocdir = &getKDEDocDir;
-
-    open (IN, "-|") || exec "beagle-config", "indexing", "ListRoots";
-
-    my $kdedoc_found = 0;
-    while(<IN>) {
-        if (/^$kdedocdir/o) {
-            $kdedoc_found = 1;
-            last;
-        }
-    }
-    close(IN);
-
-    if (not $kdedoc_found) {
-        `beagle-config indexing AddRoot $kdedocdir`;
-        `beagle-config indexing AddRoot $kdedocdir-bundle`;
-    }
-}
-
-sub createExistsFile($$)
-{
-    my ($idir, $ident) = @_;
-
-    open(OUT, ">", "$idir/$idir");
-    close(OUT);
-}
-
-my $idir = $ARGV[0];
-my $ident = $ARGV[1];
-
-if (addRoot) {
-    createExistsFile($idir, $ident);
-}
-- 
cgit v1.2.1