You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
854 B
50 lines
854 B
#!/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);
|
|
}
|