From b0ebd80067950b5ef61fd4344a88a8bf53ee31ef Mon Sep 17 00:00:00 2001 From: joey Date: Tue, 23 Nov 1999 21:56:41 +0000 Subject: r308: * dh_suidregister: Die with understandable error message if asked to act on files that don't exist. * dh_installchangelogs: to comply with policy, if it's told to act on a html changelog, it installs it as changelog.html.gz and dumps a plain text version to changelog.gz. The dumping is done with lynx. (Closes: #51099) * Dh_Getopt.pm: Modified it so any options specified after -- are added to U_PARAMS. This means that instead of passing '-u"something nasty"' to dh_gencontrol and the like, you can pass '-- something nasty' without fiddling to get the quoting right, etc. --- dh_installchangelogs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'dh_installchangelogs') diff --git a/dh_installchangelogs b/dh_installchangelogs index 187e134..5325f7b 100755 --- a/dh_installchangelogs +++ b/dh_installchangelogs @@ -43,21 +43,23 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) { "$TMP/usr/share/doc/$PACKAGE/$changelog_name"); if ($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"); - doit("ln", "-sf", 'changelog.html', - "$TMP/usr/share/doc/$PACKAGE/changelog"); + complex_doit("lynx -dump $upstream > $TMP/usr/share/doc/$PACKAGE/changelog"); + $link_to='changelog.html'; } else { doit("install","-o","root","-g","root","-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","changelog","$TMP/usr/share/doc/$PACKAGE/".Dh_Lib::basename($upstream)); + doit("ln","-sf",$link_to,"$TMP/usr/share/doc/$PACKAGE/".Dh_Lib::basename($upstream)); } } } -- cgit v1.2.1