[backend] Create Packages.gz for debian-installer

Create a debian-installer/ subdirectory with Packages.gz to be used with d-i.
openSUSE · Sep 6, 2017 · b1b2912 · b1b2912
1 parent d47d2a4
commit b1b2912
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/backend/bs_publish b/src/backend/bs_publish
@@ -715,6 +715,19 @@ sub createrepo_debian {
   }
   compress_and_rename("$extrep/Sources");
   createrelease_debian($extrep, $projid, $repoid, $data, $options);
+
+  my $udebs="$extrep/debian-installer";
+  mkdir_p("$udebs") unless -d "$udebs";
+  if (qsystem('chdir', $udebs, 'stdout', 'Packages.new', 'dpkg-scanpackages', '-t','udeb','-m', '..', '/dev/null')) {
+      die("    dpkg-scanpackages for udebs failed: $?\n");
+  }
+  compress_and_rename("$udebs/Packages");
+
+  if ( -e "$udebs/Packages") {
+      createrelease_debian($udebs, $projid, $repoid, $data, $options);
+  } else {
+      rmdir("$udebs");
+  }
 }
 
 sub createrelease_debian {