make it possible to seed /var/cache/apt/archives with deb packages

This commit is contained in:
Johannes 'josch' Schauer 2020-11-13 19:02:41 +01:00
parent 50d8d5edae
commit bf87e83bdb
Signed by untrusted user: josch
GPG key ID: F2CBA5C78FBD83E1
4 changed files with 385 additions and 48 deletions

View file

@ -20,7 +20,7 @@ fi
perlcritic --severity 4 --verbose 8 mmdebstrap perlcritic --severity 4 --verbose 8 mmdebstrap
black --check taridshift tarfilter black --check taridshift tarfilter proxysolver
mirrordir="./shared/cache/debian" mirrordir="./shared/cache/debian"
@ -74,6 +74,9 @@ fi
if [ ! -e shared/tarfilter ] || [ tarfilter -nt shared/tarfilter ]; then if [ ! -e shared/tarfilter ] || [ tarfilter -nt shared/tarfilter ]; then
cp -a tarfilter shared cp -a tarfilter shared
fi fi
if [ ! -e shared/proxysolver ] || [ proxysolver -nt shared/proxysolver ]; then
cp -a proxysolver shared
fi
mkdir -p shared/hooks mkdir -p shared/hooks
if [ ! -e shared/hooks/setup00-merged-usr.sh ] || [ hooks/setup00-merged-usr.sh -nt shared/hooks/setup00-merged-usr.sh ]; then if [ ! -e shared/hooks/setup00-merged-usr.sh ] || [ hooks/setup00-merged-usr.sh -nt shared/hooks/setup00-merged-usr.sh ]; then
cp -a hooks/setup00-merged-usr.sh shared/hooks/setup00-merged-usr.sh cp -a hooks/setup00-merged-usr.sh shared/hooks/setup00-merged-usr.sh
@ -87,7 +90,7 @@ if [ ! -e shared/hooks/eatmydata/customize.sh ] || [ hooks/eatmydata/customize.s
fi fi
starttime= starttime=
total=151 total=157
skipped=0 skipped=0
runtests=0 runtests=0
i=1 i=1
@ -2445,6 +2448,68 @@ else
runtests=$((runtests+1)) runtests=$((runtests+1))
fi fi
# test that the user can drop archives into /var/cache/apt/archives as well as
# into /var/cache/apt/archives/partial
for variant in extract custom essential apt minbase buildd important standard; do
case "$variant" in
custom)
# we cannot try try it in other variants than
# chrootless unless we pass a package list including
# dpkg and friends
continue
;;
standard)
# python is priority:standard but uninstallable since
# August 03 2020, see Debian bug #968217
continue
;;
esac
print_header "mode=$defaultmode,variant=$variant: compare output with pre-seeded /var/cache/apt/archives"
cat << END > shared/test.sh
#!/bin/sh
set -eu
export LC_ALL=C.UTF-8
export SOURCE_DATE_EPOCH=$SOURCE_DATE_EPOCH
$CMD --include=doc-debian --mode=$defaultmode --variant=$variant \
--setup-hook='mkdir -p "\$1"/var/cache/apt/archives/partial' \
--setup-hook='touch "\$1"/var/cache/apt/archives/lock' \
--setup-hook='chmod 0640 "\$1"/var/cache/apt/archives/lock' \
$DEFAULT_DIST - $mirror > orig.tar
# somehow, when trying to create a tarball from the 9p mount, tar throws the
# following error: tar: ./doc-debian_6.4_all.deb: File shrank by 132942 bytes; padding with zeros
# to reproduce, try: tar --directory /mnt/cache/debian/pool/main/d/doc-debian/ --create --file - . | tar --directory /tmp/ --extract --file -
# this will be different:
# md5sum /mnt/cache/debian/pool/main/d/doc-debian/*.deb /tmp/*.deb
# another reason to copy the files into a new directory is, that we can use shell globs
tmpdir=\$(mktemp -d)
cp /mnt/cache/debian/pool/main/b/busybox/busybox_*"_$HOSTARCH.deb" /mnt/cache/debian/pool/main/a/apt/apt_*"_$HOSTARCH.deb" "\$tmpdir"
$CMD --include=doc-debian --mode=$defaultmode --variant=$variant \
--setup-hook='mkdir -p "\$1"/var/cache/apt/archives/partial' \
--setup-hook='sync-in "'"\$tmpdir"'" /var/cache/apt/archives/partial' \
$DEFAULT_DIST - $mirror > test1.tar
cmp orig.tar test1.tar
$CMD --include=doc-debian --mode=$defaultmode --variant=$variant --skip=download/empty \
--customize-hook='touch "\$1"/var/cache/apt/archives/partial' \
--setup-hook='mkdir -p "\$1"/var/cache/apt/archives/' \
--setup-hook='sync-in "'"\$tmpdir"'" /var/cache/apt/archives/' \
--setup-hook='chmod 0755 "\$1"/var/cache/apt/archives/' \
$DEFAULT_DIST - $mirror > test2.tar
cmp orig.tar test2.tar
rm "\$tmpdir"/*.deb
rmdir "\$tmpdir"
END
if [ "$HAVE_QEMU" = "yes" ]; then
./run_qemu.sh
runtests=$((runtests+1))
elif [ "$defaultmode" = "root" ]; then
./run_null.sh SUDO
runtests=$((runtests+1))
else
./run_null.sh
runtests=$((runtests+1))
fi
done
print_header "mode=$defaultmode,variant=apt: create directory --dry-run" print_header "mode=$defaultmode,variant=apt: create directory --dry-run"
cat << END > shared/test.sh cat << END > shared/test.sh
#!/bin/sh #!/bin/sh

View file

@ -424,7 +424,7 @@ if [ "$HAVE_QEMU" = "yes" ]; then
tmpdir="$(mktemp -d)" tmpdir="$(mktemp -d)"
trap "cleanuptmpdir; cleanup_newcachedir" EXIT INT TERM trap "cleanuptmpdir; cleanup_newcachedir" EXIT INT TERM
pkgs=perl-doc,systemd-sysv,perl,arch-test,fakechroot,fakeroot,mount,uidmap,qemu-user-static,binfmt-support,qemu-user,dpkg-dev,mini-httpd,libdevel-cover-perl,libtemplate-perl,debootstrap,procps,apt-cudf,aspcud,squashfs-tools-ng,genext2fs,python3,libcap2-bin,gpg,debootstrap,distro-info-data,iproute2,ubuntu-keyring pkgs=perl-doc,systemd-sysv,perl,arch-test,fakechroot,fakeroot,mount,uidmap,qemu-user-static,binfmt-support,qemu-user,dpkg-dev,mini-httpd,libdevel-cover-perl,libtemplate-perl,debootstrap,procps,apt-cudf,aspcud,squashfs-tools-ng,genext2fs,python3,libcap2-bin,gpg,debootstrap,distro-info-data,iproute2,ubuntu-keyring,apt-utils
if [ "$HAVE_PROOT" = "yes" ]; then if [ "$HAVE_PROOT" = "yes" ]; then
pkgs="$pkgs,proot" pkgs="$pkgs,proot"
fi fi

View file

@ -33,7 +33,7 @@ use File::Path qw(make_path remove_tree);
use File::Temp qw(tempfile tempdir); use File::Temp qw(tempfile tempdir);
use File::Basename; use File::Basename;
use File::Find; use File::Find;
use Cwd qw(abs_path); use Cwd qw(abs_path getcwd);
require "syscall.ph"; ## no critic (Modules::RequireBarewordIncludes) require "syscall.ph"; ## no critic (Modules::RequireBarewordIncludes)
use Fcntl qw(S_IFCHR S_IFBLK FD_CLOEXEC F_GETFD F_SETFD); use Fcntl qw(S_IFCHR S_IFBLK FD_CLOEXEC F_GETFD F_SETFD);
use List::Util qw(any none); use List::Util qw(any none);
@ -781,11 +781,34 @@ sub run_dpkg_progress {
} }
sub run_apt_progress { sub run_apt_progress {
my $options = shift; my $options = shift;
my @debs = @{ $options->{PKGS} // [] }; my @debs = @{ $options->{PKGS} // [] };
my $tmpedsp;
if (exists $options->{EDSP_RES}) {
(undef, $tmpedsp) = tempfile(
"mmdebstrap.edsp.XXXXXXXXXXXX",
OPEN => 0,
TMPDIR => 1
);
}
my $get_exec = sub { my $get_exec = sub {
my @prefix = ();
my @opts = ();
my $solverpath = "/usr/lib/mmdebstrap/solvers";
if (-e "./proxysolver") {
# for development purposes, use the current directory if it
# contains a file called proxysolver
$solverpath = getcwd();
}
if (exists $options->{EDSP_RES}) {
push @prefix, 'env', "APT_EDSP_DUMP_FILENAME=$tmpedsp";
push @opts, "-oDir::Bin::solvers=$solverpath",
'--solver=proxysolver';
}
return ( return (
@prefix,
@{ $options->{ARGV} }, @{ $options->{ARGV} },
@opts,
"-oAPT::Status-Fd=$_[0]", "-oAPT::Status-Fd=$_[0]",
# prevent apt from messing up the terminal and allow dpkg to # prevent apt from messing up the terminal and allow dpkg to
# receive SIGINT and quit immediately without waiting for # receive SIGINT and quit immediately without waiting for
@ -820,6 +843,35 @@ sub run_apt_progress {
} }
}; };
run_progress $get_exec, $line_handler, $line_has_error, $options->{CHDIR}; run_progress $get_exec, $line_handler, $line_has_error, $options->{CHDIR};
if (exists $options->{EDSP_RES}) {
info "parsing EDSP results...";
open my $fh, '<', $tmpedsp
or error "failed to open $tmpedsp for reading: $!";
my $inst = 0;
my $pkg;
my $ver;
while (my $line = <$fh>) {
chomp $line;
if ($line ne "") {
if ($line =~ /^Install: \d+/) {
$inst = 1;
} elsif ($line =~ /^Package: (.*)/) {
$pkg = $1;
} elsif ($line =~ /^Version: (.*)/) {
$ver = $1;
}
next;
}
if ($inst == 1 && defined $pkg && defined $ver) {
push @{ $options->{EDSP_RES} }, [$pkg, $ver];
}
$inst = 0;
undef $pkg;
undef $ver;
}
close $fh;
unlink $tmpedsp;
}
return; return;
} }
@ -1250,7 +1302,8 @@ sub setup {
run_update($options); run_update($options);
(my $pkgs_to_install, my $essential_pkgs) = run_download($options); (my $pkgs_to_install, my $essential_pkgs, my $cached_debs)
= run_download($options);
if ( $options->{mode} ne 'chrootless' if ( $options->{mode} ne 'chrootless'
or $options->{variant} eq 'extract') { or $options->{variant} eq 'extract') {
@ -1270,7 +1323,7 @@ sub setup {
$chrootcmd = run_prepare($options); $chrootcmd = run_prepare($options);
} }
run_essential($options, $essential_pkgs, $chrootcmd); run_essential($options, $essential_pkgs, $chrootcmd, $cached_debs);
run_hooks('essential', $options); run_hooks('essential', $options);
@ -1685,6 +1738,10 @@ sub run_setup() {
## no critic (Variables::RequireLocalizedPunctuationVars) ## no critic (Variables::RequireLocalizedPunctuationVars)
$ENV{"APT_CONFIG"} = "$tmpfile"; $ENV{"APT_CONFIG"} = "$tmpfile";
} }
# we have to make the config file world readable so that a possible
# /usr/lib/apt/solvers/apt process which is run by the _apt user is also
# able to read it
chmod 0666, "$tmpfile" or error "cannot chmod $tmpfile: $!";
if ($verbosity_level >= 3) { if ($verbosity_level >= 3) {
0 == system('apt-get', '--version') 0 == system('apt-get', '--version')
or error "apt-get --version failed: $?"; or error "apt-get --version failed: $?";
@ -1787,6 +1844,44 @@ sub run_download() {
if ($options->{variant} eq 'buildd') { if ($options->{variant} eq 'buildd') {
push @pkgs_to_install, 'build-essential'; push @pkgs_to_install, 'build-essential';
} }
# We use /var/cache/apt/archives/ to figure out which packages apt chooses
# to install. That's why the directory must be empty if:
# - /var/cache/apt/archives exists, and
# - no simulation run is done, and
# - the variant is not extract or custom or the number to be
# installed packages not zero
my @cached_debs = ();
my @dl_debs = ();
if (
!$options->{dryrun}
&& ((none { $_ eq $options->{variant} } ('extract', 'custom'))
|| scalar @pkgs_to_install != 0)
&& -d "$options->{root}/var/cache/apt/archives/"
) {
my $apt_archives = "/var/cache/apt/archives/";
opendir my $dh, "$options->{root}/$apt_archives"
or error "cannot read $apt_archives";
while (my $deb = readdir $dh) {
if ($deb !~ /\.deb$/) {
next;
}
if (!-f "$options->{root}/$apt_archives/$deb") {
next;
}
push @cached_debs, $deb;
}
closedir $dh;
if (scalar @cached_debs > 0) {
if (any { $_ eq 'download/empty' } @{ $options->{skip} }) {
info "skipping download/empty as requested";
} else {
error("/var/cache/apt/archives/ inside the chroot contains: "
. (join ', ', (sort @cached_debs)));
}
}
}
# To figure out the right package set for the apt variant we can use: # To figure out the right package set for the apt variant we can use:
# $ apt-get dist-upgrade -o dir::state::status=/dev/null # $ apt-get dist-upgrade -o dir::state::status=/dev/null
# This is because that variants only contain essential packages and # This is because that variants only contain essential packages and
@ -1799,9 +1894,15 @@ sub run_download() {
return ([], []); return ([], []);
} }
my %result = ();
if ($options->{dryrun}) { if ($options->{dryrun}) {
info "simulate downloading packages with apt..."; info "simulate downloading packages with apt...";
} else { } else {
# if there are already packages in /var/cache/apt/archives/, we
# need to use our proxysolver to obtain the solution chosen by apt
if (scalar @cached_debs > 0) {
$result{EDSP_RES} = \@dl_debs;
}
info "downloading packages with apt..."; info "downloading packages with apt...";
} }
run_apt_progress({ run_apt_progress({
@ -1813,6 +1914,7 @@ sub run_download() {
'install' 'install'
], ],
PKGS => [@pkgs_to_install], PKGS => [@pkgs_to_install],
%result
}); });
} elsif ($options->{variant} eq 'apt') { } elsif ($options->{variant} eq 'apt') {
# if we just want to install Essential:yes packages, apt and their # if we just want to install Essential:yes packages, apt and their
@ -1828,9 +1930,15 @@ sub run_download() {
# remind me in 5+ years that I said that after I wrote # remind me in 5+ years that I said that after I wrote
# in the bugreport: "Are you crazy?!? Nobody in his # in the bugreport: "Are you crazy?!? Nobody in his
# right mind would even suggest depending on it!") # right mind would even suggest depending on it!")
my %result = ();
if ($options->{dryrun}) { if ($options->{dryrun}) {
info "simulate downloading packages with apt..."; info "simulate downloading packages with apt...";
} else { } else {
# if there are already packages in /var/cache/apt/archives/, we
# need to use our proxysolver to obtain the solution chosen by apt
if (scalar @cached_debs > 0) {
$result{EDSP_RES} = \@dl_debs;
}
info "downloading packages with apt..."; info "downloading packages with apt...";
} }
run_apt_progress({ run_apt_progress({
@ -1841,6 +1949,7 @@ sub run_download() {
$options->{dryrun} ? '-oAPT::Get::Simulate=true' : (), $options->{dryrun} ? '-oAPT::Get::Simulate=true' : (),
'dist-upgrade' 'dist-upgrade'
], ],
%result
}); });
} elsif ( } elsif (
any { $_ eq $options->{variant} } ( any { $_ eq $options->{variant} } (
@ -1941,9 +2050,15 @@ sub run_download() {
debug " $pkg"; debug " $pkg";
} }
my %result = ();
if ($options->{dryrun}) { if ($options->{dryrun}) {
info "simulate downloading packages with apt..."; info "simulate downloading packages with apt...";
} else { } else {
# if there are already packages in /var/cache/apt/archives/, we
# need to use our proxysolver to obtain the solution chosen by apt
if (scalar @cached_debs > 0) {
$result{EDSP_RES} = \@dl_debs;
}
info "downloading packages with apt..."; info "downloading packages with apt...";
} }
run_apt_progress({ run_apt_progress({
@ -1955,45 +2070,78 @@ sub run_download() {
'install' 'install'
], ],
PKGS => [keys %ess_pkgs], PKGS => [keys %ess_pkgs],
%result
}); });
} else { } else {
error "unknown variant: $options->{variant}"; error "unknown variant: $options->{variant}";
} }
# collect the .deb files that were downloaded by apt
my @essential_pkgs; my @essential_pkgs;
if (!$options->{dryrun}) { if (scalar @cached_debs > 0 && scalar @dl_debs > 0) {
my $apt_archives = "/var/cache/apt/archives/"; my $archives = "/var/cache/apt/archives/";
opendir my $dh, "$options->{root}/$apt_archives" # for each package in @dl_debs, check if it's in
or error "cannot read $apt_archives"; # /var/cache/apt/archives/ and add it to @essential_pkgs
while (my $deb = readdir $dh) { foreach my $p (@dl_debs) {
if ($deb !~ /\.deb$/) { my ($pkg, $ver_epoch) = @{$p};
next; # apt appends the architecture at the end of the package name
($pkg, my $arch) = split ':', $pkg, 2;
# apt replaces the colon by its percent encoding %3a
my $ver = $ver_epoch;
$ver =~ s/:/%3a/;
# the architecture returned by apt is the native architecture.
# Since we don't know whether the package is architecture
# independent or not, we first try with the native arch and then
# with "all" and only error out if neither exists.
if (-e "$options->{root}/$archives/${pkg}_${ver}_$arch.deb") {
push @essential_pkgs, "$archives/${pkg}_${ver}_$arch.deb";
} elsif (-e "$options->{root}/$archives/${pkg}_${ver}_all.deb") {
push @essential_pkgs, "$archives/${pkg}_${ver}_all.deb";
} else {
error( "cannot find package for $pkg:$arch (= $ver_epoch) "
. "in /var/cache/apt/archives/");
} }
$deb = "$apt_archives/$deb";
if (!-f "$options->{root}/$deb") {
next;
}
push @essential_pkgs, $deb;
} }
closedir $dh; } else {
# collect the .deb files that were downloaded by apt from the content
if (scalar @essential_pkgs == 0) { # of /var/cache/apt/archives/
# check if a file:// URI was used if (!$options->{dryrun}) {
open(my $pipe_apt, '-|', 'apt-get', 'indextargets', '--format', my $apt_archives = "/var/cache/apt/archives/";
'$(URI)', 'Created-By: Packages') opendir my $dh, "$options->{root}/$apt_archives"
or error "cannot start apt-get indextargets: $!"; or error "cannot read $apt_archives";
while (my $uri = <$pipe_apt>) { while (my $deb = readdir $dh) {
if ($uri =~ /^file:\/\//) { if ($deb !~ /\.deb$/) {
error "nothing got downloaded -- use copy:// instead of" next;
. " file://";
} }
$deb = "$apt_archives/$deb";
if (!-f "$options->{root}/$deb") {
next;
}
push @essential_pkgs, $deb;
}
closedir $dh;
if (scalar @essential_pkgs == 0) {
# check if a file:// URI was used
open(my $pipe_apt, '-|', 'apt-get', 'indextargets', '--format',
'$(URI)', 'Created-By: Packages')
or error "cannot start apt-get indextargets: $!";
while (my $uri = <$pipe_apt>) {
if ($uri =~ /^file:\/\//) {
error
"nothing got downloaded -- use copy:// instead of"
. " file://";
}
}
error "nothing got downloaded";
} }
error "nothing got downloaded";
} }
} }
# Unpack order matters. Since we create this list using two different
# methods but we want both methods to have the same result, we sort the
# list before returning it.
@essential_pkgs = sort @essential_pkgs;
return (\@pkgs_to_install, \@essential_pkgs); return (\@pkgs_to_install, \@essential_pkgs, \@cached_debs);
} }
sub run_extract() { sub run_extract() {
@ -2316,6 +2464,7 @@ sub run_essential() {
my $options = shift; my $options = shift;
my $essential_pkgs = shift; my $essential_pkgs = shift;
my $chrootcmd = shift; my $chrootcmd = shift;
my $cached_debs = shift;
if (scalar @{$essential_pkgs} == 0) { if (scalar @{$essential_pkgs} == 0) {
info "no essential packages -- skipping..."; info "no essential packages -- skipping...";
@ -2385,9 +2534,17 @@ sub run_essential() {
error "unknown mode: $options->{mode}"; error "unknown mode: $options->{mode}";
} }
foreach my $deb (@{$essential_pkgs}) { if (any { $_ eq 'essential/unlink' } @{ $options->{skip} }) {
unlink "$options->{root}/$deb" info "skipping essential/unlink as requested";
or error "cannot unlink $deb: $!"; } else {
foreach my $deb (@{$essential_pkgs}) {
# do not unlink those packages that were in /var/cache/apt/archive
# before the download phase
next
if any { "/var/cache/apt/archives/$_" eq $deb } @{$cached_debs};
unlink "$options->{root}/$deb"
or error "cannot unlink $deb: $!";
}
} }
return; return;
@ -2468,10 +2625,34 @@ sub run_install() {
$? == 0 or error "apt-get indextargets failed"; $? == 0 or error "apt-get indextargets failed";
if (scalar @pkgs_to_install_from_outside > 0) { if (scalar @pkgs_to_install_from_outside > 0) {
my @cached_debs = ();
my @dl_debs = ();
# /var/cache/apt/archives/ might not be empty either because
# the user used hooks to populate it or because skip options
# like essential/unlink or check/empty were used.
{
my $apt_archives = "/var/cache/apt/archives/";
opendir my $dh, "$options->{root}/$apt_archives"
or error "cannot read $apt_archives";
while (my $deb = readdir $dh) {
if ($deb !~ /\.deb$/) {
next;
}
if (!-f "$options->{root}/$apt_archives/$deb") {
next;
}
push @cached_debs, $deb;
}
closedir $dh;
}
my %result = ();
if ($options->{dryrun}) { if ($options->{dryrun}) {
info 'simulate downloading ' info 'simulate downloading '
. (join ', ', @pkgs_to_install_from_outside) . "..."; . (join ', ', @pkgs_to_install_from_outside) . "...";
} else { } else {
if (scalar @cached_debs > 0) {
$result{EDSP_RES} = \@dl_debs;
}
info 'downloading ' info 'downloading '
. (join ', ', @pkgs_to_install_from_outside) . "..."; . (join ', ', @pkgs_to_install_from_outside) . "...";
} }
@ -2486,26 +2667,60 @@ sub run_install() {
'install' 'install'
], ],
PKGS => [@pkgs_to_install_from_outside], PKGS => [@pkgs_to_install_from_outside],
%result
}); });
if ($options->{dryrun}) { if ($options->{dryrun}) {
info 'simulate installing ' info 'simulate installing '
. (join ', ', @pkgs_to_install_from_outside) . "..."; . (join ', ', @pkgs_to_install_from_outside) . "...";
} else { } else {
my @debs_to_install; my @debs_to_install;
my $apt_archives = "/var/cache/apt/archives/"; if (scalar @cached_debs > 0 && scalar @dl_debs > 0) {
opendir my $dh, "$options->{root}/$apt_archives" my $archives = "/var/cache/apt/archives/";
or error "cannot read $apt_archives"; my $prefix = "$options->{root}/$archives";
while (my $deb = readdir $dh) { # for each package in @dl_debs, check if it's in
if ($deb !~ /\.deb$/) { # /var/cache/apt/archives/ and add it to
next; # @debs_to_install
foreach my $p (@dl_debs) {
my ($pkg, $ver_epoch) = @{$p};
# apt appends the architecture at the end of the
# package name
($pkg, my $arch) = split ':', $pkg, 2;
# apt replaces the colon by its percent encoding
my $ver = $ver_epoch;
$ver =~ s/:/%3a/;
# the architecture returned by apt is the native
# architecture. Since we don't know whether the
# package is architecture independent or not, we
# first try with the native arch and then
# with "all" and only error out if neither exists.
if (-e "$prefix/${pkg}_${ver}_$arch.deb") {
push @debs_to_install,
"$archives/${pkg}_${ver}_$arch.deb";
} elsif (-e "$prefix/${pkg}_${ver}_all.deb") {
push @debs_to_install,
"$archives/${pkg}_${ver}_all.deb";
} else {
error( "cannot find package for "
. "$pkg:$arch (= $ver_epoch) "
. "in /var/cache/apt/archives/");
}
} }
$deb = "$apt_archives/$deb"; } else {
if (!-f "$options->{root}/$deb") { my $apt_archives = "/var/cache/apt/archives/";
next; opendir my $dh, "$options->{root}/$apt_archives"
or error "cannot read $apt_archives";
while (my $deb = readdir $dh) {
if ($deb !~ /\.deb$/) {
next;
}
$deb = "$apt_archives/$deb";
if (!-f "$options->{root}/$deb") {
next;
}
push @debs_to_install, $deb;
} }
push @debs_to_install, $deb; closedir $dh;
} }
closedir $dh;
if (scalar @debs_to_install == 0) { if (scalar @debs_to_install == 0) {
warning "nothing got downloaded -- maybe the packages" warning "nothing got downloaded -- maybe the packages"
. " were already installed?"; . " were already installed?";
@ -2524,6 +2739,11 @@ sub run_install() {
PKGS => \@debs_to_install, PKGS => \@debs_to_install,
}); });
foreach my $deb (@debs_to_install) { foreach my $deb (@debs_to_install) {
# do not unlink those packages that were in
# /var/cache/apt/archive before the install phase
next
if any { "/var/cache/apt/archives/$_" eq $deb }
@cached_debs;
unlink "$options->{root}/$deb" unlink "$options->{root}/$deb"
or error "cannot unlink $deb: $!"; or error "cannot unlink $deb: $!";
} }

52
proxysolver Executable file
View file

@ -0,0 +1,52 @@
#!/usr/bin/env python3
# thin layer around /usr/lib/apt/solvers/apt, so that we can capture the solver
# result
#
# we set Debug::EDSP::WriteSolution=yes so that Install stanzas also come with
# Package and Version fields. That way, we do not also have to parse the EDSP
# request and spend time matching ID numbers
import subprocess
import sys
import os
import getpass
if not os.path.exists("/usr/lib/apt/solvers/apt"):
print(
"""Error: ERR_NO_SOLVER
Message: The external apt solver doesn't exist. You must install the apt-utils package.
"""
)
exit()
fname = os.environ.get("APT_EDSP_DUMP_FILENAME")
if fname is None:
print(
"""Error: ERR_NO_FILENAME
Message: You have to set the environment variable APT_EDSP_DUMP_FILENAME
to a valid filename to store the dump of EDSP solver input in.
For example with: export APT_EDSP_DUMP_FILENAME=/tmp/dump.edsp
"""
)
exit()
try:
with open(fname, "w") as f:
with subprocess.Popen(
["/usr/lib/apt/solvers/apt", "-oDebug::EDSP::WriteSolution=yes"],
stdin=sys.stdin.fileno(),
stdout=subprocess.PIPE,
bufsize=0, # unbuffered
text=True, # open in text mode
) as p:
for line in p.stdout:
print(line, end="")
f.write(line)
except (FileNotFoundError, PermissionError) as e:
print(
"""Error: ERR_CREATE_FILE
Message: Writing EDSP solver input to file '%s' failed as it couldn't be created!
"""
% fname
)