3 # Reads debian/docs, installs all files listed there into
4 # /usr/share/doc/$PACKAGE
5 # Also installs the debian/copyright and debian/README.debian and debian/TODO
6 # and handles debian/doc-base.
8 use Debian::Debhelper::Dh_Lib;
11 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
12 $TMP=tmpdir($PACKAGE);
13 $file=pkgfile($PACKAGE,"docs");
15 # If this is a symlink, leave it alone.
16 if ( ! -d "$TMP/usr/share/doc/$PACKAGE" &&
17 ! -l "$TMP/usr/share/doc/$PACKAGE") {
18 doit("install","-g",0,"-o",0,"-d","$TMP/usr/share/doc/$PACKAGE");
24 @docs=filearray($file);
27 if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
32 doit("cp", "-a",@docs,"$TMP/usr/share/doc/$PACKAGE/");
33 doit("chown","-R","0.0","$TMP/usr/share/doc");
34 doit("chmod","-R","go=rX","$TMP/usr/share/doc");
35 doit("chmod","-R","u+rw","$TMP/usr/share/doc");
38 # .Debian is correct, according to policy, but I'm easy.
39 $readme_debian=pkgfile($PACKAGE,'README.Debian');
40 if (! $readme_debian) {
41 $readme_debian=pkgfile($PACKAGE,'README.debian');
42 if (! $readme_debian) {
43 $readme_debian=pkgfile($PACKAGE,'README');
47 if (isnative($PACKAGE)) {
48 doit("install","-g",0,"-o",0,"-m","644","-p",
50 "$TMP/usr/share/doc/$PACKAGE/README");
53 doit("install","-g",0,"-o",0,"-m","644","-p",
55 "$TMP/usr/share/doc/$PACKAGE/README.Debian");
59 $todo=pkgfile($PACKAGE,'TODO');
61 if (isnative($PACKAGE)) {
62 doit("install","-g",0,"-o",0,"-m","644","-p",$todo,
63 "$TMP/usr/share/doc/$PACKAGE/TODO");
66 doit("install","-g",0,"-o",0,"-m","644","-p",$todo,
67 "$TMP/usr/share/doc/$PACKAGE/TODO.Debian");
71 # If the "directory" is a dangling symlink, then don't install
72 # the copyright file. This is useful for multibinary packages
73 # that share a doc directory.
74 if (-d "$TMP/usr/share/doc/$PACKAGE") {
75 # Support debian/package.copyright, but if not present, fall
76 # back on debian/copyright for all packages, not just the
77 # main binary package.
78 $copyright=pkgfile($PACKAGE,'copyright');
79 if (! $copyright && -e "debian/copyright") {
80 $copyright="debian/copyright";
83 doit("install","-g",0,"-o",0,"-m","644","-p",$copyright,
84 "$TMP/usr/share/doc/$PACKAGE/copyright");
88 # Add in the /usr/doc compatability symlinks code.
89 if (! $dh{NOSCRIPTS}) {
90 autoscript($PACKAGE,"postinst","postinst-doc",
91 "s/#PACKAGE#/$PACKAGE/g",
93 autoscript($PACKAGE,"prerm","prerm-doc",
94 "s/#PACKAGE#/$PACKAGE/g",
98 # Handle doc-base files. There are two filename formats, the usual
99 # plus an extended format (debian/package.*).
102 opendir(DEB,"debian/") || error("can't read debian directory: $!");
103 # If this is the main package, we need to handle unprefixed filenames.
104 # For all packages, we must support both the usual filename format plus
105 # that format with a period an something appended.
106 my $regexp="\Q$PACKAGE\E\.";
107 if ($PACKAGE eq $dh{MAINPACKAGE}) {
108 $regexp="(|$regexp)";
110 foreach my $fn (grep {/^${regexp}doc-base(\..*)?$/} readdir(DEB)) {
111 # Parse the file to get the doc id.
112 open (IN, "debian/$fn") || die "Cannot read debian/$fn.";
114 if (/^Document:\s+(.*)(\s+)?/) {
124 if (! -d "$TMP/usr/share/doc-base/") {
125 doit("install","-g",0,"-o",0,"-d","$TMP/usr/share/doc-base/");
128 foreach my $fn (keys %doc_ids) {
129 doit("install","-g",0,"-o",0,"-m644","-p","debian/$fn",
130 "$TMP/usr/share/doc-base/$doc_ids{$fn}");
131 if (! $dh{NOSCRIPTS}) {
132 autoscript($PACKAGE,"postinst","postinst-doc-base",
133 "s/#DOC-ID#/$doc_ids{$fn}/",
135 autoscript($PACKAGE,"prerm","prerm-doc-base",
136 "s/#DOC-ID#/$doc_ids{$fn}/",