[pve-devel] [PATCH] try all available compressors for Packages

[Stoiko Ivanov <s.ivanov@proxmox.com>]

Some repositories (e.g. debian-security) only offer .xz compressed
Packages, others (e.g. promox repositories) only .gz compressed ones.

Make the compressors an array and try them in order until successful

Signed-off-by: Stoiko Ivanov <s.ivanov@proxmox.com>
---
Note: best viewed with `-w`
Was not too sure about the comment on it being hacky - but it seems ok to me
this way (I think this is what apt does as well?)

 DAB.pm | 38 +++++++++++++++++++++++---------------
 1 file changed, 23 insertions(+), 15 deletions(-)

diff --git a/DAB.pm b/DAB.pm
index 26db7ad..c540237 100644
--- a/DAB.pm
+++ b/DAB.pm
@@ -618,17 +618,16 @@ sub initialize {
     my $logfd = $self->{logfd} = IO::File->new (">$self->{logfile}") ||
 	die "unable to open log file";
 
-    # FIXME: seems a bit like a hacky way??
-    my $COMPRESSOR = {
-	ext => 'gz',
-	decomp => 'gzip -d',
-    };
-    if ($self->{config}->{suite} eq 'bullseye') {
-	$COMPRESSOR = {
+    my $COMPRESSORS = [
+	{
 	    ext => 'xz',
 	    decomp => 'xz -d',
-	};
-    }
+	},
+	{
+	    ext => 'gz',
+	    decomp => 'gzip -d',
+	},
+    ];
 
     foreach my $ss (@{$self->{sources}}) {
 	my $src = $ss->{mirror} || $ss->{source};
@@ -645,12 +644,21 @@ sub initialize {
 	    warn "Release info ignored\n";
 	};
 
-	foreach my $comp (@{$ss->{comp}}) {
-	    $path = "dists/$ss->{suite}/$comp/binary-$arch/Packages.$COMPRESSOR->{ext}";
-	    $target = "$infodir/" . __url_to_filename ("$ss->{source}/$path");
-	    my $pkgsrc = "$src/$path";
-	    $self->download ($pkgsrc, $target);
-	    $self->run_command ("$COMPRESSOR->{decomp} '$target'");
+	foreach my $compressor (@$COMPRESSORS) {
+	    foreach my $comp (@{$ss->{comp}}) {
+		$path = "dists/$ss->{suite}/$comp/binary-$arch/Packages.$compressor->{ext}";
+		$target = "$infodir/" . __url_to_filename ("$ss->{source}/$path");
+		my $pkgsrc = "$src/$path";
+		eval {
+		    $self->download ($pkgsrc, $target);
+		    $self->run_command ("$compressor->{decomp} '$target'");
+		};
+		if (my $err = $@) {
+		    print $logfd "could not download Packages.$compressor->{ext}\n";
+		} else {
+		    last;
+		}
+	    }
 	}
     }
 }
-- 
2.30.2