Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add proper backports support in generate_firmware_task 

When BACKPORTS is defined, look for firmware in $codename-backports
first, then in $codename

(cherry picked from commit 5710321f9e)
This commit is contained in:
Steve McIntyre 2018-08-13 14:36:36 +01:00 committed by Cyril Brulebois
parent 4b60e6d16a
commit 65dfea3ef6
1 changed files with 42 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
tools/generate_firmware_task
View File

@ -16,15 +16,17 @@
use strict;
my ($mirror, $codename, $archlist, $outfile, $localdebs);
my ($mirror, $codename, $archlist, $outfile, $localdebs, $backports);
my $date;
my $pkgfiles = "";
my $bp_pkgfiles = "";
my ($pkg, $filename, $arch);
my %seen;
$codename = $ENV{'CODENAME'};
$mirror = $ENV{'MIRROR'};
$localdebs = $ENV{'LOCALDEBS'};
$backports = $ENV{'BACKPORTS'};
$archlist = shift;
$outfile = shift;
@ -34,12 +36,20 @@ if (!defined($codename) || !defined($mirror) ||
}
foreach $arch (split(' ', $archlist)) {
if (defined($backports)) {
$bp_pkgfiles = "$pkgfiles $mirror/dists/$codename-backports/*/binary-$arch/Packages.gz";
$bp_pkgfiles = "$pkgfiles $mirror/dists/$codename-backports/*/binary-$arch/Packages.xz";
}
$pkgfiles = "$pkgfiles $mirror/dists/$codename/*/binary-$arch/Packages.gz";
$pkgfiles = "$pkgfiles $mirror/dists/$codename/*/binary-$arch/Packages.xz";
}
if (defined($localdebs)) {
foreach $arch (split(' ', $archlist)) {
if (defined($backports)) {
$bp_pkgfiles = "$pkgfiles $localdebs/dists/$codename-backports/*/binary-$arch/Packages.gz";
$bp_pkgfiles = "$pkgfiles $localdebs/dists/$codename-backports/*/binary-$arch/Packages.xz";
}
$pkgfiles = "$pkgfiles $localdebs/dists/$codename/*/binary-$arch/Packages.gz";
$pkgfiles = "$pkgfiles $localdebs/dists/$codename/*/binary-$arch/Packages.xz";
}
@ -58,9 +68,6 @@ print OUT " */\n";
print "$0: Checking for firmware packages:\n";
open (INPKG, "\$BASEDIR/tools/catz $pkgfiles |") or die "Can't read input package files: $!\n";
$/ = ''; # Browse by paragraph
sub contains_firmware($$) {
my $count = 0;
open (PKGLISTING, "dpkg --contents $mirror/$filename | grep ' ./lib/firmware/' |") or
@ -75,7 +82,14 @@ sub contains_firmware($$) {
}
}
while (defined($_ = <INPKG>)) {
sub check_packages($$) {
my $use_bp = shift;
my $packages = shift;
open (INPKG, "\$BASEDIR/tools/catz $packages |") or die "Can't read input package files: $!\n";
$/ = ''; # Browse by paragraph
while (defined($_ = <INPKG>)) {
m/^Package: (\S+)/m and $pkg = $1;
m/^Filename: (\S+)/m and $filename = $1;
@ -87,10 +101,21 @@ while (defined($_ = <INPKG>)) {
$seen{$filename} = 1;
if (contains_firmware($mirror, $filename)) {
print " $pkg ($filename)\n";
if ($use_bp) {
print OUT "$pkg/$codename-backports\n";
} else {
print OUT "$pkg\n";
}
}
}
}
close INPKG;
}
close INPKG;
if (defined($backports)) {
check_packages(1, $bp_pkgfiles);
}
check_packages(0, $pkgfiles);
close OUT;