diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 21:06:40 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 21:06:40 +0000 |
commit | d827c6cf1631209f5042a9d1d8a7ecc24223c8a0 (patch) | |
tree | 91a431d301efd0e524bdfb0c46e97d591a9d7b03 /dh_md5sums | |
parent | Initial commit. (diff) | |
download | debhelper-d827c6cf1631209f5042a9d1d8a7ecc24223c8a0.tar.xz debhelper-d827c6cf1631209f5042a9d1d8a7ecc24223c8a0.zip |
Adding upstream version 13.11.4.upstream/13.11.4upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rwxr-xr-x | dh_md5sums | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/dh_md5sums b/dh_md5sums new file mode 100755 index 0000000..8f92843 --- /dev/null +++ b/dh_md5sums @@ -0,0 +1,128 @@ +#!/usr/bin/perl + +=head1 NAME + +dh_md5sums - generate DEBIAN/md5sums file + +=cut + +use strict; +use warnings; +use Cwd; +use Debian::Debhelper::Dh_Lib; + +our $VERSION = DH_BUILTIN_VERSION; + +=head1 SYNOPSIS + +B<dh_md5sums> [S<I<debhelper options>>] [B<-x>] [B<-X>I<item>] [B<--include-conffiles>] + +=head1 DESCRIPTION + +B<dh_md5sums> is a debhelper program that is responsible for generating +a F<DEBIAN/md5sums> file, which lists the md5sums of each file in the package. +These files are used by B<dpkg --verify> or the L<debsums(1)> program. + +All files in F<DEBIAN/> are omitted from the F<md5sums> file, as are all +conffiles (unless you use the B<--include-conffiles> switch). + +The md5sums file is installed with proper permissions and ownerships. + +=head1 OPTIONS + +=over 4 + +=item B<-x>, B<--include-conffiles> + +Include conffiles in the md5sums list. Note that this information is +redundant since it is included in F</var/lib/dpkg/status> in Debian packages. + +=item B<-X>I<item>, B<--exclude=>I<item> + +Exclude files that contain I<item> anywhere in their filename from +being listed in the md5sums file. + +=back + +=cut + +init(options => { + "x" => \$dh{INCLUDE_CONFFILES}, # is -x for some unknown historical reason.. + "include-conffiles" => \$dh{INCLUDE_CONFFILES}, +}); + +on_pkgs_in_parallel { + foreach my $package (@_) { + next if is_udeb($package); + + my $dbgsym_tmp = dbgsym_tmpdir($package); + my $tmp=tmpdir($package); + + install_dir("$tmp/DEBIAN"); + + # Check if we should exclude conffiles. + my %conffiles; + if (! $dh{INCLUDE_CONFFILES} && -r "$tmp/DEBIAN/conffiles") { + # Generate exclude regexp. + open(my $fd, '<', "$tmp/DEBIAN/conffiles") + or error("open $tmp/DEBIAN/conffiles failed: $!"); + while (my $line = <$fd>) { + chomp($line); + next if $line !~ s{^/+}{}; + next if $line eq ''; + $conffiles{$line} = 1; + } + close($fd); + } + + generate_md5sums_file($tmp, \%conffiles); + if ( -d $dbgsym_tmp) { + install_dir("${dbgsym_tmp}/DEBIAN"); + generate_md5sums_file($dbgsym_tmp); + } + } +}; + +sub generate_md5sums_file { + my ($tmpdir, $conffiles) = @_; + my $find_pid = open(my $find_fd, '-|') // error("fork failed: $!"); + my (@files, $pipeline_pid); + if (not $find_pid) { + # Child + chdir($tmpdir) or error("chdir($tmpdir) failed: $!"); + exec { 'find' } 'find', '-type', 'f', '!', '-regex', './DEBIAN/.*', '-printf', "%P\\0"; + } + local $/ = "\0"; # NUL-terminated input/"lines" + while (my $line = <$find_fd>) { + chomp($line); + next if excludefile($line); + next if $conffiles and %{$conffiles} and exists($conffiles->{$line}); + push(@files, $line); + } + close($find_fd) or error_exitcode("find -type f ! -regex './DEBIAN/.*' -printf '%P\\0'"); + @files = sort(@files); + verbose_print("cd $tmpdir >/dev/null && " . q{xargs -r0 md5sum | perl -pe 'if (s@^\\\\@@) { s/\\\\\\\\/\\\\/g; }' > DEBIAN/md5sums}); + $pipeline_pid = open(my $pipeline_fd, '|-') // error("fork failed: $!"); + if (not $pipeline_pid) { + # Child + chdir($tmpdir) or error("chdir($tmpdir) failed: $!"); + exec { 'sh' } '/bin/sh', '-c', q{xargs -r0 md5sum | perl -pe 'if (s@^\\\\@@) { s/\\\\\\\\/\\\\/g; }' > DEBIAN/md5sums}; + } + + printf {$pipeline_fd} "%s\0", $_ for @files; # @files include NUL-terminator + close($pipeline_fd) or error_exitcode("cd $tmpdir >/dev/null && xargs -r0 md5sum | perl -pe 'if (s@^\\\\@@) { s/\\\\\\\\/\\\\/g; }' > DEBIAN/md5sums"); + reset_perm_and_owner(0644, "${tmpdir}/DEBIAN/md5sums"); + return; +} + +=head1 SEE ALSO + +L<debhelper(7)> + +This program is a part of debhelper. + +=head1 AUTHOR + +Joey Hess <joeyh@debian.org> + +=cut |