/usr/bin/dh_gencontrol is in debhelper 9.20131227ubuntu1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | #!/usr/bin/perl -w
=head1 NAME
dh_gencontrol - generate and install control file
=cut
use strict;
use Debian::Debhelper::Dh_Lib;
=head1 SYNOPSIS
B<dh_gencontrol> [S<I<debhelper options>>] [S<B<--> I<params>>]
=head1 DESCRIPTION
B<dh_gencontrol> is a debhelper program that is responsible for generating
control files, and installing them into the I<DEBIAN> directory with the
proper permissions.
This program is merely a wrapper around L<dpkg-gencontrol(1)>, which calls
it once for each package being acted on, and passes in some additional
useful flags.
=head1 OPTIONS
=over 4
=item B<--> I<params>
Pass I<params> to L<dpkg-gencontrol(1)>.
=item B<-u>I<params>, B<--dpkg-gencontrol-params=>I<params>
This is another way to pass I<params> to L<dpkg-gencontrol(1)>.
It is deprecated; use B<--> instead.
=back
=cut
init(options => {
"dpkg-gencontrol-params=s", => \$dh{U_PARAMS},
});
foreach my $package (@{$dh{DOPACKAGES}}) {
my $tmp=tmpdir($package);
my $ext=pkgext($package);
my $substvars="debian/${ext}substvars";
my $changelog=pkgfile($package,'changelog');
if (! $changelog) {
$changelog='debian/changelog';
}
if ( ! -d "$tmp/DEBIAN" ) {
doit("install","-o",0,"-g",0,"-d","$tmp/DEBIAN");
}
# avoid gratuitous warning
if (! -e $substvars || system("grep -q '^misc:Depends=' $substvars") != 0) {
complex_doit("echo misc:Depends= >> $substvars");
}
# Generate and install control file.
my @command="dpkg-gencontrol";
if (getpackages() > 1) {
push @command, "-p$package";
}
doit(@command, "-l$changelog", "-T$substvars",
"-P$tmp",@{$dh{U_PARAMS}});
# This chmod is only necessary if the user sets the umask to
# something odd.
doit("chmod","644","$tmp/DEBIAN/control");
doit("chown","0:0","$tmp/DEBIAN/control");
}
=head1 SEE ALSO
L<debhelper(7)>
This program is a part of debhelper.
=head1 AUTHOR
Joey Hess <joeyh@debian.org>
=cut
|