D7net Mini Sh3LL v1
OFF | cURL : OFF | WGET : ON | Perl : ON | Python : OFF
Directory (0755) : /usr/../bin/X11/X11/ |
|
| Current File : //usr/../bin/X11/X11/dpkg-buildpackage |
#!/usr/bin/perl
#
# dpkg-buildpackage
#
# Copyright © 1996 Ian Jackson
# Copyright © 2000 Wichert Akkerman
# Copyright © 2006-2010, 2012-2015 Guillem Jover <guillem@debian.org>
# Copyright © 2007 Frank Lichtenheld
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.
use strict;
use warnings;
use File::Temp qw(tempdir);
use File::Basename;
use File::Copy;
use POSIX qw(:sys_wait_h);
use Dpkg ();
use Dpkg::Gettext;
use Dpkg::ErrorHandling;
use Dpkg::Build::Types;
use Dpkg::BuildOptions;
use Dpkg::BuildProfiles qw(set_build_profiles);
use Dpkg::Conf;
use Dpkg::Compression;
use Dpkg::Checksums;
use Dpkg::Package;
use Dpkg::Version;
use Dpkg::Control;
use Dpkg::Control::Info;
use Dpkg::Changelog::Parse;
use Dpkg::Path qw(find_command);
use Dpkg::IPC;
textdomain('dpkg-dev');
sub showversion {
printf g_("Debian %s version %s.\n"), $Dpkg::PROGNAME, $Dpkg::PROGVERSION;
print g_('
This is free software; see the GNU General Public License version 2 or
later for copying conditions. There is NO warranty.
');
}
sub usage {
printf g_(
'Usage: %s [<option>...]')
. "\n\n" . g_(
'Options:
--build=<type>[,...] specify the build <type>: full, source, binary,
any, all (default is \'full\').
-F, --build=full normal full build (source and binary; default).
-g, --build=source,all source and arch-indep build.
-G, --build=source,any source and arch-specific build.
-b, --build=binary binary-only, no source files.
-B, --build=any binary-only, only arch-specific files.
-A, --build=all binary-only, only arch-indep files.
-S, --build=source source-only, no binary files.
-nc, --no-pre-clean do not pre clean source tree (implies -b).
--pre-clean pre clean source tree (default).
--no-post-clean do not post clean source tree (default).
-tc, --post-clean post clean source tree.
-D, --check-builddeps check build dependencies and conflicts (default).
-d, --no-check-builddeps do not check build dependencies and conflicts.
--ignore-builtin-builddeps
do not check builtin build dependencies.
-P, --build-profiles=<profiles>
assume comma-separated build <profiles> as active.
--rules-requires-root assume legacy Rules-Requires-Root field value.
-R, --rules-file=<rules> rules file to execute (default is debian/rules).
-T, --rules-target=<target> call debian/rules <target>.
--as-root ensure -T calls the target with root rights.
-j, --jobs[=<number>|auto] jobs to run simultaneously (passed to <rules>),
forced mode.
-J, --jobs-try[=<number>|auto]
jobs to run simultaneously (passed to <rules>),
opt-in mode (default is auto).
-r, --root-command=<command>
command to gain root rights (default is fakeroot).
--check-command=<command>
command to check the .changes file (no default).
--check-option=<opt> pass <opt> to check <command>.
--hook-<name>=<command> set <command> as the hook <name>, known hooks:
init preclean source build binary buildinfo
changes postclean check sign done
--buildinfo-option=<opt>
pass option <opt> to dpkg-genbuildinfo.
-p, --sign-command=<command>
command to sign .dsc and/or .changes files
(default is gpg2 or gpg).
-k, --sign-key=<keyid> the key to use for signing.
-ap, --sign-pause add pause before starting signature process.
-us, --unsigned-source unsigned source package.
-ui, --unsigned-buildinfo unsigned .buildinfo file.
-uc, --unsigned-changes unsigned .buildinfo and .changes file.
--no-sign do not sign any file.
--force-sign force signing the resulting files.
--admindir=<directory> change the administrative directory.
-?, --help show this help message.
--version show the version.')
. "\n\n" . g_(
'Options passed to dpkg-architecture:
-a, --host-arch <arch> set the host Debian architecture.
-t, --host-type <type> set the host GNU system type.
--target-arch <arch> set the target Debian architecture.
--target-type <type> set the target GNU system type.')
. "\n\n" . g_(
'Options passed to dpkg-genchanges:
-si source includes orig, if new upstream (default).
-sa source includes orig, always.
-sd source is diff and .dsc only.
-v<version> changes since version <version>.
-m, --release-by=<maint> maintainer for this release is <maint>.
-e, --build-by=<maint> maintainer for this build is <maint>.
-C<descfile> changes are described in <descfile>.
--changes-option=<opt> pass option <opt> to dpkg-genchanges.')
. "\n\n" . g_(
'Options passed to dpkg-source:
-sn force Debian native source format.
-s[sAkurKUR] see dpkg-source for explanation.
-z, --compression-level=<level>
compression level to use for source.
-Z, --compression=<compressor>
compression to use for source (gz|xz|bzip2|lzma).
-i, --diff-ignore[=<regex>] ignore diffs of files matching <regex>.
-I, --tar-ignore[=<pattern>]
filter out files when building tarballs.
--source-option=<opt> pass option <opt> to dpkg-source.
'), $Dpkg::PROGNAME;
}
my $admindir;
my @debian_rules = ('debian/rules');
my @rootcommand = ();
my $signcommand;
my $preclean = 1;
my $postclean = 0;
my $parallel;
my $parallel_force = 0;
my $checkbuilddep = 1;
my $check_builtin_builddep = 1;
my @source_opts;
my $check_command = $ENV{DEB_CHECK_COMMAND};
my @check_opts;
my $signpause;
my $signkey = $ENV{DEB_SIGN_KEYID};
my $signforce = 0;
my $signreleased = 1;
my $signsource = 1;
my $signbuildinfo = 1;
my $signchanges = 1;
my $buildtarget = 'build';
my $binarytarget = 'binary';
my $host_arch = '';
my $host_type = '';
my $target_arch = '';
my $target_type = '';
my @build_profiles = ();
my $rrr_override;
my @call_target = ();
my $call_target_as_root = 0;
my $since;
my $maint;
my $changedby;
my $desc;
my @buildinfo_opts;
my @changes_opts;
my %target_legacy_root = map { $_ => 1 } qw(
clean binary binary-arch binary-indep
);
my %target_official = map { $_ => 1 } qw(
clean build build-arch build-indep binary binary-arch binary-indep
);
my @hook_names = qw(
init preclean source build binary buildinfo changes postclean check sign done
);
my %hook;
$hook{$_} = undef foreach @hook_names;
my $conf = Dpkg::Conf->new();
$conf->load_config('buildpackage.conf');
# Inject config options for command-line parser.
unshift @ARGV, @{$conf};
my $build_opts = Dpkg::BuildOptions->new();
if ($build_opts->has('nocheck')) {
$check_command = undef;
} elsif (not find_command($check_command)) {
$check_command = undef;
}
while (@ARGV) {
$_ = shift @ARGV;
if (/^(?:--help|-\?)$/) {
usage;
exit 0;
} elsif (/^--version$/) {
showversion;
exit 0;
} elsif (/^--admindir$/) {
$admindir = shift @ARGV;
} elsif (/^--admindir=(.*)$/) {
$admindir = $1;
} elsif (/^--source-option=(.*)$/) {
push @source_opts, $1;
} elsif (/^--buildinfo-option=(.*)$/) {
push @buildinfo_opts, $1;
} elsif (/^--changes-option=(.*)$/) {
push @changes_opts, $1;
} elsif (/^(?:-j|--jobs=)(\d*|auto)$/) {
$parallel = $1 || '';
$parallel_force = 1;
} elsif (/^(?:-J|--jobs-try=)(\d*|auto)$/) {
$parallel = $1 || '';
$parallel_force = 0;
} elsif (/^(?:-r|--root-command=)(.*)$/) {
my $arg = $1;
@rootcommand = split ' ', $arg;
} elsif (/^--check-command=(.*)$/) {
$check_command = $1;
} elsif (/^--check-option=(.*)$/) {
push @check_opts, $1;
} elsif (/^--hook-(.+)=(.*)$/) {
my ($hook_name, $hook_cmd) = ($1, $2);
usageerr(g_('unknown hook name %s'), $hook_name)
if not exists $hook{$hook_name};
usageerr(g_('missing hook %s command'), $hook_name)
if not defined $hook_cmd;
$hook{$hook_name} = $hook_cmd;
} elsif (/^--buildinfo-id=.*$/) {
# Deprecated option
warning('--buildinfo-id is deprecated, it is without effect');
} elsif (/^(?:-p|--sign-command=)(.*)$/) {
$signcommand = $1;
} elsif (/^(?:-k|--sign-key=)(.*)$/) {
$signkey = $1;
} elsif (/^--(no-)?check-builddeps$/) {
$checkbuilddep = !(defined $1 and $1 eq 'no-');
} elsif (/^-([dD])$/) {
$checkbuilddep = ($1 eq 'D');
} elsif (/^--ignore-builtin-builddeps$/) {
$check_builtin_builddep = 0;
} elsif (/^-s(gpg|pgp)$/) {
# Deprecated option
warning(g_('-s%s is deprecated; always using gpg style interface'), $1);
} elsif (/^--force-sign$/) {
$signforce = 1;
} elsif (/^--no-sign$/) {
$signforce = 0;
$signsource = 0;
$signbuildinfo = 0;
$signchanges = 0;
} elsif (/^-us$/ or /^--unsigned-source$/) {
$signsource = 0;
} elsif (/^-ui$/ or /^--unsigned-buildinfo$/) {
$signbuildinfo = 0;
} elsif (/^-uc$/ or /^--unsigned-changes$/) {
$signbuildinfo = 0;
$signchanges = 0;
} elsif (/^-ap$/ or /^--sign-pausa$/) {
$signpause = 1;
} elsif (/^-a$/ or /^--host-arch$/) {
$host_arch = shift;
} elsif (/^-a(.*)$/ or /^--host-arch=(.*)$/) {
$host_arch = $1;
} elsif (/^-P(.*)$/ or /^--build-profiles=(.*)$/) {
my $arg = $1;
@build_profiles = split /,/, $arg;
} elsif (/^-s[iad]$/) {
push @changes_opts, $_;
} elsif (/^--(?:compression-level|compression)=.+$/) {
push @source_opts, $_;
} elsif (/^--(?:diff-ignore|tar-ignore)(?:=.+)?$/) {
push @source_opts, $_;
} elsif (/^-(?:s[nsAkurKUR]|[zZ].*|i.*|I.*)$/) {
push @source_opts, $_; # passed to dpkg-source
} elsif (/^-tc$/ or /^--post-clean$/) {
$postclean = 1;
} elsif (/^--no-post-clean$/) {
$postclean = 0;
} elsif (/^-t$/ or /^--host-type$/) {
$host_type = shift; # Order DOES matter!
} elsif (/^-t(.*)$/ or /^--host-type=(.*)$/) {
$host_type = $1; # Order DOES matter!
} elsif (/^--target-arch$/) {
$target_arch = shift;
} elsif (/^--target-arch=(.*)$/) {
$target_arch = $1;
} elsif (/^--target-type$/) {
$target_type = shift;
} elsif (/^--target-type=(.*)$/) {
$target_type = $1;
} elsif (/^(?:--target|--rules-target|-T)$/) {
push @call_target, split /,/, shift @ARGV;
} elsif (/^(?:--target=|--rules-target=|-T)(.+)$/) {
my $arg = $1;
push @call_target, split /,/, $arg;
} elsif (/^--rules-requires-root$/) {
$rrr_override = 'binary-targets';
} elsif (/^--as-root$/) {
$call_target_as_root = 1;
} elsif (/^--pre-clean$/) {
$preclean = 1;
} elsif (/^-nc$/ or /^--no-pre-clean$/) {
$preclean = 0;
} elsif (/^--build=(.*)$/) {
set_build_type_from_options($1, $_);
} elsif (/^-b$/) {
set_build_type(BUILD_BINARY, $_);
} elsif (/^-B$/) {
set_build_type(BUILD_ARCH_DEP, $_);
} elsif (/^-A$/) {
set_build_type(BUILD_ARCH_INDEP, $_);
} elsif (/^-S$/) {
set_build_type(BUILD_SOURCE, $_);
} elsif (/^-G$/) {
set_build_type(BUILD_SOURCE | BUILD_ARCH_DEP, $_);
} elsif (/^-g$/) {
set_build_type(BUILD_SOURCE | BUILD_ARCH_INDEP, $_);
} elsif (/^-F$/) {
set_build_type(BUILD_FULL, $_);
} elsif (/^-v(.*)$/) {
$since = $1;
} elsif (/^-m(.*)$/ or /^--release-by=(.*)$/) {
$maint = $1;
} elsif (/^-e(.*)$/ or /^--build-by=(.*)$/) {
$changedby = $1;
} elsif (/^-C(.*)$/) {
$desc = $1;
} elsif (m/^-[EW]$/) {
# Deprecated option
warning(g_('-E and -W are deprecated, they are without effect'));
} elsif (/^-R(.*)$/ or /^--rules-file=(.*)$/) {
my $arg = $1;
@debian_rules = split ' ', $arg;
} else {
usageerr(g_('unknown option or argument %s'), $_);
}
}
if (@call_target) {
my $targets = join ',', @call_target;
set_build_type_from_targets($targets, '--rules-target', nocheck => 1);
}
if (build_has_all(BUILD_BINARY)) {
$buildtarget = 'build';
$binarytarget = 'binary';
} elsif (build_has_any(BUILD_ARCH_DEP)) {
$buildtarget = 'build-arch';
$binarytarget = 'binary-arch';
} elsif (build_has_any(BUILD_ARCH_INDEP)) {
$buildtarget = 'build-indep';
$binarytarget = 'binary-indep';
}
if (not $preclean) {
# -nc without -b/-B/-A/-S/-F implies -b
set_build_type(BUILD_BINARY) if build_has_any(BUILD_DEFAULT);
# -nc with -S implies no dependency checks
$checkbuilddep = 0 if build_is(BUILD_SOURCE);
}
if ($call_target_as_root and @call_target == 0) {
error(g_('option %s is only meaningful with option %s'),
'--as-root', '--rules-target');
}
if ($check_command and not find_command($check_command)) {
error(g_("check-command '%s' not found"), $check_command);
}
if ($signcommand) {
if (!find_command($signcommand)) {
error(g_("sign-command '%s' not found"), $signcommand);
}
} elsif (($ENV{GNUPGHOME} && -e $ENV{GNUPGHOME}) ||
($ENV{HOME} && -e "$ENV{HOME}/.gnupg")) {
if (find_command('gpg2')) {
$signcommand = 'gpg2';
} elsif (find_command('gpg')) {
$signcommand = 'gpg';
}
}
# Default to auto if none of parallel=N, -J or -j have been specified.
if (not defined $parallel and not $build_opts->has('parallel')) {
$parallel = 'auto';
}
if (defined $parallel) {
if ($parallel eq 'auto') {
# Most Unices.
$parallel = qx(getconf _NPROCESSORS_ONLN 2>/dev/null);
# Fallback for at least Irix.
$parallel = qx(getconf _NPROC_ONLN 2>/dev/null) if $?;
# Fallback to serial execution if cannot infer the number of online
# processors.
$parallel = '1' if $?;
chomp $parallel;
}
if ($parallel_force) {
$ENV{MAKEFLAGS} //= '';
$ENV{MAKEFLAGS} .= " -j$parallel";
}
$build_opts->set('parallel', $parallel);
$build_opts->export();
}
set_build_profiles(@build_profiles) if @build_profiles;
my $changelog = changelog_parse();
my $ctrl = Dpkg::Control::Info->new();
# Check whether we are doing some kind of rootless build, and sanity check
# the fields values.
my %rules_requires_root = parse_rules_requires_root($ctrl->get_source());
my $pkg = mustsetvar($changelog->{source}, g_('source package'));
my $version = mustsetvar($changelog->{version}, g_('source version'));
my $v = Dpkg::Version->new($version);
my ($ok, $error) = version_check($v);
error($error) unless $ok;
my $sversion = $v->as_string(omit_epoch => 1);
my $uversion = $v->version();
my $distribution = mustsetvar($changelog->{distribution}, g_('source distribution'));
my $maintainer;
if ($changedby) {
$maintainer = $changedby;
} elsif ($maint) {
$maintainer = $maint;
} else {
$maintainer = mustsetvar($changelog->{maintainer}, g_('source changed by'));
}
# <https://reproducible-builds.org/specs/source-date-epoch/>
$ENV{SOURCE_DATE_EPOCH} ||= $changelog->{timestamp} || time;
my @arch_opts;
push @arch_opts, ('--host-arch', $host_arch) if $host_arch;
push @arch_opts, ('--host-type', $host_type) if $host_type;
push @arch_opts, ('--target-arch', $target_arch) if $target_arch;
push @arch_opts, ('--target-type', $target_type) if $target_type;
open my $arch_env, '-|', 'dpkg-architecture', '-f', @arch_opts
or subprocerr('dpkg-architecture');
while (<$arch_env>) {
chomp;
my ($key, $value) = split /=/, $_, 2;
$ENV{$key} = $value;
}
close $arch_env or subprocerr('dpkg-architecture');
my $arch;
if (build_has_any(BUILD_ARCH_DEP)) {
$arch = mustsetvar($ENV{DEB_HOST_ARCH}, g_('host architecture'));
} elsif (build_has_any(BUILD_ARCH_INDEP)) {
$arch = 'all';
} elsif (build_has_any(BUILD_SOURCE)) {
$arch = 'source';
}
my $pv = "${pkg}_$sversion";
my $pva = "${pkg}_${sversion}_$arch";
signkey_validate();
if (not $signcommand) {
$signsource = 0;
$signbuildinfo = 0;
$signchanges = 0;
} elsif ($signforce) {
$signsource = 1;
$signbuildinfo = 1;
$signchanges = 1;
} elsif (($signsource or $signbuildinfo or $signchanges) and
$distribution eq 'UNRELEASED') {
$signreleased = 0;
$signsource = 0;
$signbuildinfo = 0;
$signchanges = 0;
}
if ($signsource && build_has_none(BUILD_SOURCE)) {
$signsource = 0;
}
#
# Preparation of environment stops here
#
run_hook('init', 1);
if (not -x 'debian/rules') {
warning(g_('debian/rules is not executable; fixing that'));
chmod(0755, 'debian/rules'); # No checks of failures, non fatal
}
if (scalar @call_target == 0) {
run_cmd('dpkg-source', @source_opts, '--before-build', '.');
}
if ($checkbuilddep) {
my @checkbuilddep_opts;
push @checkbuilddep_opts, '-A' if build_has_none(BUILD_ARCH_DEP);
push @checkbuilddep_opts, '-B' if build_has_none(BUILD_ARCH_INDEP);
push @checkbuilddep_opts, '-I' if not $check_builtin_builddep;
push @checkbuilddep_opts, "--admindir=$admindir" if $admindir;
system('dpkg-checkbuilddeps', @checkbuilddep_opts);
if (not WIFEXITED($?)) {
subprocerr('dpkg-checkbuilddeps');
} elsif (WEXITSTATUS($?)) {
warning(g_('build dependencies/conflicts unsatisfied; aborting'));
warning(g_('(Use -d flag to override.)'));
exit 3;
}
}
foreach my $call_target (@call_target) {
run_rules_cond_root($call_target);
}
exit 0 if scalar @call_target;
run_hook('preclean', $preclean);
if ($preclean) {
run_rules_cond_root('clean');
}
run_hook('source', build_has_any(BUILD_SOURCE));
if (build_has_any(BUILD_SOURCE)) {
warning(g_('building a source package without cleaning up as you asked; ' .
'it might contain undesired files')) if not $preclean;
run_cmd('dpkg-source', @source_opts, '-b', '.');
}
run_hook('build', build_has_any(BUILD_BINARY));
my $build_types = get_build_options_from_type();
if (build_has_any(BUILD_BINARY)) {
# XXX Use some heuristics to decide whether to use build-{arch,indep}
# targets. This is a temporary measure to not break too many packages
# on a flag day.
build_target_fallback($ctrl);
# If we are building rootless, there is no need to call the build target
# independently as non-root.
run_cmd(@debian_rules, $buildtarget) if rules_requires_root($binarytarget);
run_hook('binary', 1);
run_rules_cond_root($binarytarget);
}
run_hook('buildinfo', 1);
push @buildinfo_opts, "--build=$build_types" if build_has_none(BUILD_DEFAULT);
push @buildinfo_opts, "--admindir=$admindir" if $admindir;
run_cmd('dpkg-genbuildinfo', @buildinfo_opts);
run_hook('changes', 1);
push @changes_opts, "--build=$build_types" if build_has_none(BUILD_DEFAULT);
push @changes_opts, "-m$maint" if defined $maint;
push @changes_opts, "-e$changedby" if defined $changedby;
push @changes_opts, "-v$since" if defined $since;
push @changes_opts, "-C$desc" if defined $desc;
my $chg = "../$pva.changes";
my $changes = Dpkg::Control->new(type => CTRL_FILE_CHANGES);
printcmd("dpkg-genchanges @changes_opts >$chg");
open my $changes_fh, '-|', 'dpkg-genchanges', @changes_opts
or subprocerr('dpkg-genchanges');
$changes->parse($changes_fh, g_('parse changes file'));
$changes->save($chg);
close $changes_fh or subprocerr(g_('dpkg-genchanges'));
run_hook('postclean', $postclean);
if ($postclean) {
run_rules_cond_root('clean');
}
run_cmd('dpkg-source', @source_opts, '--after-build', '.');
info(describe_build($changes->{'Files'}));
run_hook('check', $check_command);
if ($check_command) {
run_cmd($check_command, @check_opts, $chg);
}
if ($signpause && ($signsource || $signbuildinfo || $signchanges)) {
print g_("Press <enter> to start the signing process.\n");
getc();
}
run_hook('sign', $signsource || $signbuildinfo || $signchanges);
if ($signsource) {
if (signfile("$pv.dsc")) {
error(g_('failed to sign %s file'), '.dsc');
}
# Recompute the checksums as the .dsc has changed now.
my $buildinfo = Dpkg::Control->new(type => CTRL_FILE_BUILDINFO);
$buildinfo->load("../$pva.buildinfo");
my $checksums = Dpkg::Checksums->new();
$checksums->add_from_control($buildinfo);
$checksums->add_from_file("../$pv.dsc", update => 1, key => "$pv.dsc");
$checksums->export_to_control($buildinfo);
$buildinfo->save("../$pva.buildinfo");
}
if ($signbuildinfo && signfile("$pva.buildinfo")) {
error(g_('failed to sign %s file'), '.buildinfo');
}
if ($signsource or $signbuildinfo) {
# Recompute the checksums as the .dsc and/or .buildinfo have changed.
my $checksums = Dpkg::Checksums->new();
$checksums->add_from_control($changes);
$checksums->add_from_file("../$pv.dsc", update => 1, key => "$pv.dsc")
if $signsource;
$checksums->add_from_file("../$pva.buildinfo", update => 1, key => "$pva.buildinfo");
$checksums->export_to_control($changes);
delete $changes->{'Checksums-Md5'};
update_files_field($changes, $checksums, "$pv.dsc")
if $signsource;
update_files_field($changes, $checksums, "$pva.buildinfo");
$changes->save($chg);
}
if ($signchanges && signfile("$pva.changes")) {
error(g_('failed to sign %s file'), '.changes');
}
if (not $signreleased) {
warning(g_('not signing UNRELEASED build; use --force-sign to override'));
}
run_hook('done', 1);
sub mustsetvar {
my ($var, $text) = @_;
error(g_('unable to determine %s'), $text)
unless defined($var);
info("$text $var");
return $var;
}
sub setup_rootcommand {
if ($< == 0) {
warning(g_('using a gain-root-command while being root')) if @rootcommand;
} else {
push @rootcommand, 'fakeroot' unless @rootcommand;
}
if (@rootcommand and not find_command($rootcommand[0])) {
if ($rootcommand[0] eq 'fakeroot' and $< != 0) {
error(g_("fakeroot not found, either install the fakeroot\n" .
'package, specify a command with the -r option, ' .
'or run this as root'));
} else {
error(g_("gain-root-command '%s' not found"), $rootcommand[0]);
}
}
}
sub parse_rules_requires_root {
my $ctrl = shift;
my %rrr;
my $rrr;
my $keywords_base;
my $keywords_impl;
$rrr = $rrr_override // $ctrl->{'Rules-Requires-Root'} // 'binary-targets';
foreach my $keyword (split ' ', $rrr) {
if ($keyword =~ m{/}) {
if ($keyword =~ m{^dpkg/target/(.*)$}p and $target_official{$1}) {
error(g_('disallowed target in %s field keyword %s'),
'Rules-Requires-Root', $keyword);
} elsif ($keyword ne 'dpkg/target-subcommand') {
error(g_('unknown %s field keyword %s in dpkg namespace'),
'Rules-Requires-Root', $keyword);
}
$keywords_impl++;
} else {
if ($keyword ne 'no' and $keyword ne 'binary-targets') {
warning(g_('unknown %s field keyword %s'),
'Rules-Requires-Root', $keyword);
}
$keywords_base++;
}
if ($rrr{$keyword}++) {
error(g_('field %s contains duplicate keyword %s'),
'Rules-Requires-Root', $keyword);
}
}
if ($call_target_as_root or not exists $rrr{no}) {
setup_rootcommand();
}
# Notify the children we do support R³.
$ENV{DEB_RULES_REQUIRES_ROOT} = join ' ', sort keys %rrr;
if ($keywords_base > 1 or $keywords_base and $keywords_impl) {
error(g_('%s field contains both global and implementation specific keywords'),
'Rules-Requires-Root');
} elsif ($keywords_impl) {
# Set only on <implementations-keywords>.
$ENV{DEB_GAIN_ROOT_CMD} = join ' ', @rootcommand;
# XXX: For ephemeral backwards compatibility.
$ENV{DPKG_GAIN_ROOT_CMD} = $ENV{DEB_GAIN_ROOT_CMD};
} else {
# We should not provide the variable otherwise.
delete $ENV{DEB_GAIN_ROOT_CMD};
# XXX: For ephemeral backwards compatibility.
delete $ENV{DPKG_GAIN_ROOT_CMD};
}
return %rrr;
}
sub run_cmd {
printcmd(@_);
system @_ and subprocerr("@_");
}
sub rules_requires_root {
my $target = shift;
return 1 if $call_target_as_root;
return 1 if $rules_requires_root{"dpkg/target/$target"};
return 1 if $rules_requires_root{'binary-targets'} and $target_legacy_root{$target};
return 0;
}
sub run_rules_cond_root {
my $target = shift;
my @cmd;
push @cmd, @rootcommand if rules_requires_root($target);
push @cmd, @debian_rules, $target;
run_cmd(@cmd);
}
sub run_hook {
my ($name, $enabled) = @_;
my $cmd = $hook{$name};
return if not $cmd;
info("running hook $name");
my %hook_vars = (
'%' => '%',
'a' => $enabled ? 1 : 0,
'p' => $pkg,
'v' => $version,
's' => $sversion,
'u' => $uversion,
);
my $subst_hook_var = sub {
my $var = shift;
if (exists $hook_vars{$var}) {
return $hook_vars{$var};
} else {
warning(g_('unknown %% substitution in hook: %%%s'), $var);
return "\%$var";
}
};
$cmd =~ s/\%(.)/$subst_hook_var->($1)/eg;
run_cmd($cmd);
}
sub update_files_field {
my ($ctrl, $checksums, $filename) = @_;
my $md5sum_regex = checksums_get_property('md5', 'regex');
my $md5sum = $checksums->get_checksum($filename, 'md5');
my $size = $checksums->get_size($filename);
my $file_regex = qr/$md5sum_regex\s+\d+\s+(\S+\s+\S+\s+\Q$filename\E)/;
$ctrl->{'Files'} =~ s/^$file_regex$/$md5sum $size $1/m;
}
sub signkey_validate {
return unless defined $signkey;
# Make sure this is an hex keyid.
return unless $signkey =~ m/^(?:0x)?([[:xdigit:]]+)$/;
my $keyid = $1;
if (length $keyid <= 8) {
error(g_('short OpenPGP key IDs are broken; ' .
'please use key fingerprints in %s or %s instead'),
'-k', 'DEB_SIGN_KEYID');
} elsif (length $keyid <= 16) {
warning(g_('long OpenPGP key IDs are strongly discouraged; ' .
'please use key fingerprints in %s or %s instead'),
'-k', 'DEB_SIGN_KEYID');
}
}
sub signfile {
my $file = shift;
printcmd("signfile $file");
my $signdir = tempdir('dpkg-sign.XXXXXXXX', CLEANUP => 1);
my $signfile = "$signdir/$file";
# Make sure the file to sign ends with a newline.
copy("../$file", $signfile);
open my $signfh, '>>', $signfile or syserr(g_('cannot open %s'), $signfile);
print { $signfh } "\n";
close $signfh or syserr(g_('cannot close %s'), $signfile);
system($signcommand, '--utf8-strings', '--textmode', '--armor',
'--local-user', $signkey || $maintainer, '--clearsign',
'--output', "$signfile.asc", $signfile);
my $status = $?;
if ($status == 0) {
system('mv', '--', "$signfile.asc", "../$file")
and subprocerr('mv');
}
print "\n";
return $status
}
sub fileomitted {
my ($files, $regex) = @_;
return $files !~ /$regex/
}
sub describe_build {
my $files = shift;
my $ext = compression_get_file_extension_regex();
if (fileomitted($files, qr/\.deb/)) {
# source-only upload
if (fileomitted($files, qr/\.diff\.$ext/) and
fileomitted($files, qr/\.debian\.tar\.$ext/)) {
return g_('source-only upload: Debian-native package');
} elsif (fileomitted($files, qr/\.orig\.tar\.$ext/)) {
return g_('source-only, diff-only upload (original source NOT included)');
} else {
return g_('source-only upload (original source is included)');
}
} elsif (fileomitted($files, qr/\.dsc/)) {
return g_('binary-only upload (no source included)');
} elsif (fileomitted($files, qr/\.diff\.$ext/) and
fileomitted($files, qr/\.debian\.tar\.$ext/)) {
return g_('full upload; Debian-native package (full source is included)');
} elsif (fileomitted($files, qr/\.orig\.tar\.$ext/)) {
return g_('binary and diff upload (original source NOT included)');
} else {
return g_('full upload (original source is included)');
}
}
sub build_target_fallback {
my $ctrl = shift;
# If we are building rootless, there is no need to call the build target
# independently as non-root.
return if not rules_requires_root($binarytarget);
return if $buildtarget eq 'build';
return if scalar @debian_rules != 1;
# Check if we are building both arch:all and arch:any packages, in which
# case we now require working build-indep and build-arch targets.
my $pkg_arch = 0;
foreach my $bin ($ctrl->get_packages()) {
if ($bin->{Architecture} eq 'all') {
$pkg_arch |= BUILD_ARCH_INDEP;
} else {
$pkg_arch |= BUILD_ARCH_DEP;
}
}
return if $pkg_arch == BUILD_BINARY;
# Check if the build-{arch,indep} targets are supported. If not, fallback
# to build.
my $pid = spawn(exec => [ $Dpkg::PROGMAKE, '-f', @debian_rules, '-qn', $buildtarget ],
from_file => '/dev/null', to_file => '/dev/null',
error_to_file => '/dev/null');
my $cmdline = "make -f @debian_rules -qn $buildtarget";
wait_child($pid, nocheck => 1, cmdline => $cmdline);
my $exitcode = WEXITSTATUS($?);
subprocerr($cmdline) unless WIFEXITED($?);
if ($exitcode == 2) {
warning(g_("%s must be updated to support the 'build-arch' and " .
"'build-indep' targets (at least '%s' seems to be " .
'missing)'), "@debian_rules", $buildtarget);
$buildtarget = 'build';
}
}
AnonSec - 2021 | Recode By D7net