X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_installchangelogs;h=4620473b0ca83795fdeaa95af79ee4a39c725c6b;hb=e2a6d4cec4a7ee952cf6a7f250d80f1d75a38f95;hp=5325f7b11e647cb7818b223dcca965f668bd4ca7;hpb=b0ebd80067950b5ef61fd4344a88a8bf53ee31ef;p=debhelper.git diff --git a/dh_installchangelogs b/dh_installchangelogs index 5325f7b..4620473 100755 --- a/dh_installchangelogs +++ b/dh_installchangelogs @@ -1,65 +1,181 @@ #!/usr/bin/perl -w -# -# Installs debian/changelog. If another filename is passed to it, installs -# that file as the upstream changelog. -# -# Looks at debian/control to determine if this is a native debian package, -# if so, the debian changelog is just installed as "changelog", and it is an -# error to specify an upstream changelog on the command line. - -BEGIN { push @INC, "debian", "/usr/share/debhelper" } -use Dh_Lib; -init(); -$upstream=shift; +=head1 NAME -if (isnative($dh{MAINPACKAGE}) && defined $upstream) { - error("Cannot specify an upstream changelog for a native debian package."); -} +dh_installchangelogs - install changelogs into package build directories -if (isnative($dh{MAINPACKAGE})) { - $changelog_name='changelog'; -} -else { - $changelog_name='changelog.Debian'; +=cut + +use strict; +use Debian::Debhelper::Dh_Lib; + +=head1 SYNOPSIS + +B [S>] [B<-k>] [B<-X>I] [I] + +=head1 DESCRIPTION + +B is a debhelper program that is responsible for +installing changelogs into package build directories. + +An upstream F file may be specified as an option. If none is +specified, it looks for files with names that seem likely to be changelogs. +(In compatibility level 7 and above.) + +If there is an upstream F file, it will be be installed as +F in the package build directory. If the +changelog is a F file (determined by file extension), it will be +installed as F instead, and will be +converted to plain text with B to generate +F. + +=head1 FILES + +=over 4 + +=item F + +=item F + +=item debian/I.changelog + +=item debian/I.NEWS + +Automatically installed into usr/share/doc/I/ +in the package build directory. + +Use the package specific name if I needs a different +F or F file. + +The F file is installed with a name of changelog +for native packages, and F for non-native packages. +The F file is always installed with a name of F. + +=back + +=head1 OPTIONS + +=over 4 + +=item B<-k>, B<--keep> + +Keep the original name of the upstream changelog. This will be accomplished +by installing the upstream changelog as F, and making a symlink from +that to the original name of the F file. This can be useful if the +upstream changelog has an unusual name, or if other documentation in the +package refers to the F file. + +=item B<-X>I, B<--exclude=>I + +Exclude upstream F files that contain I anywhere in their +filename from being installed. + +=item I + +Install this file as the upstream changelog. + +=back + +=cut + +init(); + +my $upstream=shift; +my $changelog_name="changelog.Debian"; +if (! defined $upstream) { + if (! isnative($dh{MAINPACKAGE}) && !compat(6)) { + foreach my $dir (qw{. doc docs}) { + my @files=sort glob("$dir/*"); + foreach my $name (qw{changelog changes changelog.txt changes.txt history history.txt}) { + my @matches=grep { + lc basename($_) eq $name && -s $_ && ! excludefile($_) + } @files; + if (@matches) { + $upstream=shift @matches; + last; + } + } + } + } + if (isnative($dh{MAINPACKAGE})) { + $changelog_name='changelog'; + } } +my $news_name="NEWS.Debian"; -foreach $PACKAGE (@{$dh{DOPACKAGES}}) { - $TMP=tmpdir($PACKAGE); - $changelog=pkgfile($PACKAGE,"changelog"); +foreach my $package (@{$dh{DOPACKAGES}}) { + next if is_udeb($package); + + my $tmp=tmpdir($package); + my $changelog=pkgfile($package,"changelog"); + my $news=pkgfile($package,"NEWS"); if (!$changelog) { $changelog="debian/changelog"; } + if (!$news) { + $news="debian/NEWS"; + } if (! -e $changelog) { error("could not find changelog $changelog"); } - if (! -d "$TMP/usr/share/doc/$PACKAGE") { - doit("install","-d","$TMP/usr/share/doc/$PACKAGE"); + # If it is a symlink to a documentation directory from the same + # source package, then don't do anything. Think multi-binary + # packages that depend on each other and want to link doc dirs. + if (-l "$tmp/usr/share/doc/$package") { + my $linkval=readlink("$tmp/usr/share/doc/$package"); + my %allpackages=map { $_ => 1 } getpackages(); + if ($allpackages{basename($linkval)}) { + next; + } + # Even if the target doesn't seem to be a doc dir from the + # same source package, don't do anything if it's a dangling + # symlink. + next unless -d "$tmp/usr/share/doc/$package"; + } + + if (! -d "$tmp/usr/share/doc/$package") { + doit("install","-d","$tmp/usr/share/doc/$package"); + } + doit("install","-o",0,"-g",0,"-p","-m644",$changelog, + "$tmp/usr/share/doc/$package/$changelog_name"); + if (-e $news) { + doit("install","-o",0,"-g",0,"-p","-m644",$news, + "$tmp/usr/share/doc/$package/$news_name"); } - doit("install","-o","root","-g","root","-p","-m644",$changelog, - "$TMP/usr/share/doc/$PACKAGE/$changelog_name"); - if ($upstream) { + if (defined $upstream) { my $link_to; if ($upstream=~m/\.html?$/i) { # HTML changelog - doit("install","-o","root","-g","root","-p","-m644", - $upstream,"$TMP/usr/share/doc/$PACKAGE/changelog.html"); - complex_doit("lynx -dump $upstream > $TMP/usr/share/doc/$PACKAGE/changelog"); + doit("install","-o",0,"-g",0,"-p","-m644", + $upstream,"$tmp/usr/share/doc/$package/changelog.html"); + doit("html2text","-nobs","-o","$tmp/usr/share/doc/$package/changelog",$upstream); $link_to='changelog.html'; } else { - doit("install","-o","root","-g","root","-p","-m644", - $upstream,"$TMP/usr/share/doc/$PACKAGE/changelog"); - $link_to='changelog'; + doit("install","-o",0,"-g",0,"-p","-m644", + $upstream,"$tmp/usr/share/doc/$package/changelog"); + $link_to='changelog'; } if ($dh{K_FLAG}) { # Install symlink to original name of the upstream changelog file. # Use basename in case original file was in a subdirectory or something. - doit("ln","-sf",$link_to,"$TMP/usr/share/doc/$PACKAGE/".Dh_Lib::basename($upstream)); + doit("ln","-sf",$link_to,"$tmp/usr/share/doc/$package/".basename($upstream)); } } } + +=head1 SEE ALSO + +L + +This program is a part of debhelper. + +=head1 AUTHOR + +Joey Hess + +=cut