1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
# vim:cindent:ts=2:sw=2:et:fdm=marker:cms=\ #\ %s
#
# $Id: Dhelp.pm 222 2011-02-28 22:18:55Z robert $
#
package Debian::DocBase::Programs::Dhelp;
use Exporter();
use strict;
use warnings;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(RegisterDhelp UnregisterDhelp);
use Debian::DocBase::Common;
use Debian::DocBase::Utils;
use Debian::DocBase::Gettext;
my $DHELP_PARSE = "/usr/sbin/dhelp_parse";
# executes `/usr/sbin/dhelp_parse $arg $@dirs'
# $arg should be `-d' or `-a' or `-r'
sub _ExecuteDhelpParse($$) { # {{{
my $arg = shift;
my $dirs = shift;
return 0 if $#{$dirs} < 0 and $arg ne '-r';
Execute($DHELP_PARSE, $arg, @$dirs) if ($opt_update_menus);
} # }}}
sub _GetDocFileList($$) { # {{{
my $documents = shift; # in parameter
my $docfiles = shift; # out parameter
foreach my $doc (@$documents) {
my $docid = $doc->GetDocumentID();
my $docfile = $VAR_CTRL_DIR . "/" . $docid;
next unless -f $docfile;
push(@$docfiles, $docfile);
}
} # }}}
# Main functions of the module
# Unregistering documents from dhelp
# Must be called BEFORE the new contents is written
# to /var/lib/doc-base/documents/
sub UnregisterDhelp(@) { # {{{
my @documents = @_;
my @docfiles = ();
Debug("UnregisterDhelp started");
_GetDocFileList(\@documents, \@docfiles);
_ExecuteDhelpParse("-d", \@docfiles);
Debug("UnregisterDhelp finished");
undef @docfiles;
} # }}}
# Registering documents to dhelp
# Must be called before AFTER new contents is written
# to /var/lib/doc-base/documents/
sub RegisterDhelp($$@) { # {{{
my $showinfo = shift;
my $register_all = shift;
my @documents = @_;
my @docfiles = ();
Debug(_g("%s started."), "RegisterDhelp");
if (-x $DHELP_PARSE) {
Inform(_g("Registering documents with %s..."), "dhelp") if $showinfo and $opt_update_menus;
} else {
Debug(_g("Skipping execution of %s - %s package doesn't seem to be installed."), $DHELP_PARSE, "dhelp");
return;
}
if ($register_all) {
_ExecuteDhelpParse("-r", ());
}
else
{
_GetDocFileList(\@documents, \@docfiles);
_ExecuteDhelpParse("-a", \@docfiles) if @docfiles;
}
Debug(_g("%s finished."), "RegisterDhelp");
undef @docfiles;
} # }}}
1;
|
