summaryrefslogtreecommitdiff
path: root/dh_installdocs
diff options
context:
space:
mode:
authorjoey <joey>2001-02-09 00:57:53 +0000
committerjoey <joey>2001-02-09 00:57:53 +0000
commit053f6f8b4e7431d32511aef209188a084e8c7e79 (patch)
tree209a51c8c8fdbcce25c834198f1b3ef705dcb5b0 /dh_installdocs
parentae0346306694bb2c52193f6352755c223e6e8935 (diff)
r420: big monsta changes
Diffstat (limited to 'dh_installdocs')
-rwxr-xr-xdh_installdocs69
1 files changed, 35 insertions, 34 deletions
diff --git a/dh_installdocs b/dh_installdocs
index 6191091..7cadc5e 100755
--- a/dh_installdocs
+++ b/dh_installdocs
@@ -1,86 +1,87 @@
#!/usr/bin/perl -w
#
# Reads debian/docs, installs all files listed there into
-# /usr/share/doc/$PACKAGE
+# /usr/share/doc/$package
# Also installs the debian/copyright and debian/README.debian and debian/TODO
# and handles debian/doc-base.
+use strict;
use Debian::Debhelper::Dh_Lib;
init();
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
- $TMP=tmpdir($PACKAGE);
- $file=pkgfile($PACKAGE,"docs");
+foreach my $package (@{$dh{DOPACKAGES}}) {
+ my $tmp=tmpdir($package);
+ my $file=pkgfile($package,"docs");
# If this is a symlink, leave it alone.
- if ( ! -d "$TMP/usr/share/doc/$PACKAGE" &&
- ! -l "$TMP/usr/share/doc/$PACKAGE") {
- doit("install","-g",0,"-o",0,"-d","$TMP/usr/share/doc/$PACKAGE");
+ if ( ! -d "$tmp/usr/share/doc/$package" &&
+ ! -l "$tmp/usr/share/doc/$package") {
+ doit("install","-g",0,"-o",0,"-d","$tmp/usr/share/doc/$package");
}
- undef @docs;
+ my @docs;
if ($file) {
@docs=filearray($file, ".");
}
- if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
+ if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
push @docs, @ARGV;
}
if (@docs) {
- doit("cp", "-a",@docs,"$TMP/usr/share/doc/$PACKAGE/");
- doit("chown","-R","0.0","$TMP/usr/share/doc");
- doit("chmod","-R","go=rX","$TMP/usr/share/doc");
- doit("chmod","-R","u+rw","$TMP/usr/share/doc");
+ doit("cp", "-a",@docs,"$tmp/usr/share/doc/$package/");
+ doit("chown","-R","0.0","$tmp/usr/share/doc");
+ doit("chmod","-R","go=rX","$tmp/usr/share/doc");
+ doit("chmod","-R","u+rw","$tmp/usr/share/doc");
}
# .Debian is correct, according to policy, but I'm easy.
- $readme_debian=pkgfile($PACKAGE,'README.Debian');
+ my $readme_debian=pkgfile($package,'README.Debian');
if (! $readme_debian) {
- $readme_debian=pkgfile($PACKAGE,'README.debian');
+ $readme_debian=pkgfile($package,'README.debian');
}
if ($readme_debian) {
doit("install","-g",0,"-o",0,"-m","644","-p","$readme_debian",
- "$TMP/usr/share/doc/$PACKAGE/README.Debian");
+ "$tmp/usr/share/doc/$package/README.Debian");
}
- $todo=pkgfile($PACKAGE,'TODO');
+ my $todo=pkgfile($package,'TODO');
if ($todo) {
- if (isnative($PACKAGE)) {
+ if (isnative($package)) {
doit("install","-g",0,"-o",0,"-m","644","-p",$todo,
- "$TMP/usr/share/doc/$PACKAGE/TODO");
+ "$tmp/usr/share/doc/$package/TODO");
}
else {
doit("install","-g",0,"-o",0,"-m","644","-p",$todo,
- "$TMP/usr/share/doc/$PACKAGE/TODO.Debian");
+ "$tmp/usr/share/doc/$package/TODO.Debian");
}
}
# If the "directory" is a dangling symlink, then don't install
# the copyright file. This is useful for multibinary packages
# that share a doc directory.
- if (-d "$TMP/usr/share/doc/$PACKAGE") {
+ if (-d "$tmp/usr/share/doc/$package") {
# Support debian/package.copyright, but if not present, fall
# back on debian/copyright for all packages, not just the
# main binary package.
- $copyright=pkgfile($PACKAGE,'copyright');
+ my $copyright=pkgfile($package,'copyright');
if (! $copyright && -e "debian/copyright") {
$copyright="debian/copyright";
}
if ($copyright) {
doit("install","-g",0,"-o",0,"-m","644","-p",$copyright,
- "$TMP/usr/share/doc/$PACKAGE/copyright");
+ "$tmp/usr/share/doc/$package/copyright");
}
}
# Add in the /usr/doc compatability symlinks code.
if (! $dh{NOSCRIPTS}) {
- autoscript($PACKAGE,"postinst","postinst-doc",
- "s/#PACKAGE#/$PACKAGE/g",
+ autoscript($package,"postinst","postinst-doc",
+ "s/#PACKAGE#/$package/g",
);
- autoscript($PACKAGE,"prerm","prerm-doc",
- "s/#PACKAGE#/$PACKAGE/g",
+ autoscript($package,"prerm","prerm-doc",
+ "s/#PACKAGE#/$package/g",
);
}
@@ -92,8 +93,8 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
# If this is the main package, we need to handle unprefixed filenames.
# For all packages, we must support both the usual filename format plus
# that format with a period an something appended.
- my $regexp="\Q$PACKAGE\E\.";
- if ($PACKAGE eq $dh{MAINPACKAGE}) {
+ my $regexp="\Q$package\E\.";
+ if ($package eq $dh{MAINPACKAGE}) {
$regexp="(|$regexp)";
}
foreach my $fn (grep {/^${regexp}doc-base(\..*)?$/} readdir(DEB)) {
@@ -110,18 +111,18 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
closedir(DEB);
if (%doc_ids) {
- if (! -d "$TMP/usr/share/doc-base/") {
- doit("install","-g",0,"-o",0,"-d","$TMP/usr/share/doc-base/");
+ if (! -d "$tmp/usr/share/doc-base/") {
+ doit("install","-g",0,"-o",0,"-d","$tmp/usr/share/doc-base/");
}
}
foreach my $fn (keys %doc_ids) {
doit("install","-g",0,"-o",0,"-m644","-p","debian/$fn",
- "$TMP/usr/share/doc-base/$doc_ids{$fn}");
+ "$tmp/usr/share/doc-base/$doc_ids{$fn}");
if (! $dh{NOSCRIPTS}) {
- autoscript($PACKAGE,"postinst","postinst-doc-base",
+ autoscript($package,"postinst","postinst-doc-base",
"s/#DOC-ID#/$doc_ids{$fn}/",
);
- autoscript($PACKAGE,"prerm","prerm-doc-base",
+ autoscript($package,"prerm","prerm-doc-base",
"s/#DOC-ID#/$doc_ids{$fn}/",
);
}