dh_md5sums

   1 #!/usr/bin/perl -w
   2
   3 =head1 NAME
   4
   5 dh_md5sums - generate DEBIAN/md5sums file
   6
   7 =cut
   8
   9 use strict;
  10 use Cwd;
  11 use Debian::Debhelper::Dh_Lib;
  12
  13 =head1 SYNOPSIS
  14
  15 B<dh_md5sums> [S<I<debhelper options>>] [B<-x>] [B<-X>I<item>] [B<--include-conffiles>]
  16
  17 =head1 DESCRIPTION
  18
  19 dh_md5sums is a debhelper program that is responsible for generating
  20 a DEBIAN/md5sums file, which lists the md5sums of each file in the package.
  21 These files are used by the debsums package.
  22
  23 All files in DEBIAN/ are omitted from the md5sums file, as are all
  24 conffiles (unless you use the --include-conffiles switch).
  25
  26 The md5sums file is installed with proper permissions and ownerships.
  27
  28 =head1 OPTIONS
  29
  30 =over 4
  31
  32 =item B<-x>, B<--include-conffiles>
  33
  34 Include conffiles in the md5sums list. Note that this information is
  35 redundant since it is included elsewhere in debian packages.
  36
  37 =item B<-X>I<item>, B<--exclude=>I<item>
  38
  39 Exclude files that contain "item" anywhere in their filename from
  40 being listed in the md5sums file.
  41
  42 =back
  43
  44 =cut
  45
  46 init();
  47
  48 foreach my $package (@{$dh{DOPACKAGES}}) {
  49         next if is_udeb($package);
  50
  51         my $tmp=tmpdir($package);
  52
  53         if (! -d "$tmp/DEBIAN") {
  54                 doit("install","-d","$tmp/DEBIAN");
  55         }
  56
  57         # Check if we should exclude conffiles.
  58         my $exclude="";
  59         if (! $dh{INCLUDE_CONFFILES} && -r "$tmp/DEBIAN/conffiles") {
  60                 # Generate exclude regexp.
  61                 open (CONFF,"$tmp/DEBIAN/conffiles");
  62                 while (<CONFF>) {
  63                         chomp;
  64                         s/^\///;
  65                         $exclude.="! -path \"./$_\" ";
  66                 }
  67                 close CONFF;
  68         }
  69
  70         # See if we should exclude other files.
  71         if (defined($dh{EXCLUDE_FIND}) && $dh{EXCLUDE_FIND} ne '') {
  72                 $exclude.="! \\( $dh{EXCLUDE_FIND} \\) ";
  73         }
  74
  75         complex_doit("(cd $tmp >/dev/null ; find . -type f $exclude ! -regex '.*/DEBIAN/.*' -printf '%P\\0' | xargs -r0 md5sum > DEBIAN/md5sums) >/dev/null");
  76         # If the file's empty, no reason to waste inodes on it.
  77         if (-z "$tmp/DEBIAN/md5sums") {
  78                 doit("rm","-f","$tmp/DEBIAN/md5sums");
  79         }
  80         else {
  81                 doit("chmod",644,"$tmp/DEBIAN/md5sums");
  82                 doit("chown","0:0","$tmp/DEBIAN/md5sums");
  83         }
  84 }
  85
  86 =head1 SEE ALSO
  87
  88 L<debhelper(7)>
  89
  90 This program is a part of debhelper.
  91
  92 =head1 AUTHOR
  93
  94 Joey Hess <joeyh@debian.org>
  95
  96 =cut