diff options
| author | Robert Xu <[email protected]> | 2011-11-10 18:04:39 -0500 |
|---|---|---|
| committer | Robert Xu <[email protected]> | 2011-11-10 18:04:39 -0500 |
| commit | 21fcfa3348213aa87f0e3aef62ca4720c6d31cb7 (patch) | |
| tree | 2cfb64c59322628e613ed0895e3c3694d3abe6bd /opensuse/tdebase/khelpcenter-beagle.diff | |
| parent | 8667643bff14a60d8571c599efd3e48bed3e3b12 (diff) | |
| download | tde-packaging-21fcfa3348213aa87f0e3aef62ca4720c6d31cb7.tar.gz tde-packaging-21fcfa3348213aa87f0e3aef62ca4720c6d31cb7.zip | |
initial commit to suse branch: eclipse integration
Diffstat (limited to 'opensuse/tdebase/khelpcenter-beagle.diff')
| -rw-r--r-- | opensuse/tdebase/khelpcenter-beagle.diff | 172 |
1 files changed, 0 insertions, 172 deletions
diff --git a/opensuse/tdebase/khelpcenter-beagle.diff b/opensuse/tdebase/khelpcenter-beagle.diff deleted file mode 100644 index 6b4314e6a..000000000 --- a/opensuse/tdebase/khelpcenter-beagle.diff +++ /dev/null @@ -1,172 +0,0 @@ -Index: khelpcenter/searchhandlers/khc_beagle_search.pl -=================================================================== ---- /dev/null -+++ khelpcenter/searchhandlers/khc_beagle_search.pl -@@ -0,0 +1,88 @@ -+#!/usr/bin/perl -w -+# vim:sw=4:et -+ -+use warnings; -+use strict; -+use Getopt::Long; -+ -+sub isBeagleRunning() -+{ -+ open(IN, "-|") || exec "beagle-ping"; -+ while(<IN>) { -+ if (/^Daemon version:/) { -+ close(IN); -+ return 1; -+ } -+ } -+ close(IN); -+ return 0; -+} -+ -+sub formatHTML($$) -+{ -+ my ($query, $hits) = @_; -+ -+ print "<html>\n<body\n<ul>\n"; -+ -+ foreach my $hit(@$hits) { -+ print "<li>$hit</li>\n"; -+ } -+ print "</ul>\n</body>\n</html>\n"; -+} -+ -+sub beagleQuery($$$) -+{ -+ my ($words, $method, $maxnum) = @_; -+ -+ my @hits = (); -+ -+ open(IN, "-|") || exec "beagle-query", "--type", "DocbookEntry", "--type", "File", "--max-hits", $maxnum, @$words, "ext:docbook"; -+ while(<IN>) { -+ chop; -+ next if (/^Debug:/); -+ -+ my $uri = $_; -+ $uri = $1 if ($uri =~ /^file:\/\/(.*)$/); -+ -+ print "uri: $uri\n"; -+ my $helpLink = &makeHelpLink($uri); -+ -+ push(@hits, $helpLink) if (!grep { /^$helpLink$/ } @hits); -+ } -+ close(IN); -+ return @hits; -+} -+ -+sub makeHelpLink($) -+{ -+ # Try to figure out the name of the application from the path to its index.docbook file -+ -+ my ($path) = @_; -+ my @pathcomponents = split '/', $path; -+ -+ my $appName = $pathcomponents[-2]; -+ my $appName2 = $pathcomponents[-3]; -+ -+ if ($appName eq $appName2 or $appName2 eq "doc" -+ or (-d "/usr/share/locale/$appName2")) { -+ return "<a href=\"help:/$appName\">$appName</a>"; -+ } -+ return "<a href=\"help:/$appName2/$appName\">$appName ($appName2)</a>"; -+} -+ -+my $method = "and"; -+my $maxnum = 100; -+ -+GetOptions("method=s", \$method, "maxnum=i", \$maxnum); -+ -+my @hits = ("The Beagle daemon is not running, search is not available"); -+ -+my @words = @ARGV; -+ -+if (isBeagleRunning()) { -+ @hits = beagleQuery(\@words, $method, $maxnum); -+} -+ -+@hits = ("There are no search results") if ($#hits < 0); -+ -+formatHTML(\@words, \@hits); -Index: khelpcenter/searchhandlers/khc_beagle_index.pl -=================================================================== ---- /dev/null -+++ khelpcenter/searchhandlers/khc_beagle_index.pl -@@ -0,0 +1,49 @@ -+#!/usr/bin/perl -+# vim:sw=4:et -+ -+use warnings; -+ -+sub getKDEDocDir() -+{ -+ my $prefix = `kde-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); -+} -Index: khelpcenter/searchhandlers/docbook.desktop -=================================================================== ---- khelpcenter/searchhandlers/docbook.desktop.orig -+++ khelpcenter/searchhandlers/docbook.desktop -@@ -2,5 +2,5 @@ - - DocumentTypes=text/docbook - --SearchCommand=khc_htsearch.pl --docbook --indexdir=%d --config=%i --words=%w --method=%o --maxnum=%m --lang=en --IndexCommand=khc_docbookdig.pl --indexdir=%d --docpath=%p --identifier=%i -+SearchCommand=khc_beagle_search.pl --method=%o --maxnum=%m %w -+IndexCommand=khc_beagle_index.pl %d %i -Index: khelpcenter/searchhandlers/Makefile.am -=================================================================== ---- khelpcenter/searchhandlers/Makefile.am.orig -+++ khelpcenter/searchhandlers/Makefile.am -@@ -3,7 +3,7 @@ searchhandlers_DATA = htdig.desktop man. - searchhandlersdir = $(kde_datadir)/khelpcenter/searchhandlers - - kde_bin_SCRIPTS = khc_htdig.pl khc_htsearch.pl khc_mansearch.pl \ -- khc_docbookdig.pl -+ khc_docbookdig.pl khc_beagle_search.pl khc_beagle_index.pl - - htdigdata_DATA = htdig_long.html - |