diff options
Diffstat (limited to 'khelpcenter/searchhandlers/khc_beagle_index.pl')
-rw-r--r-- | khelpcenter/searchhandlers/khc_beagle_index.pl | 49 |
1 files changed, 0 insertions, 49 deletions
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); -} |