From: Ian Campbell <ian.campbell@citrix.com>
Date: Wed, 4 Sep 2013 16:29:56 +0000 (+0100)
Subject: Debian: Honour need-kernel-deb- flag in the installed system too
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=02b332ccbcf250073a0028503794b5e32e31d6af;p=people%2Fdariof%2Fosstest.git

Debian: Honour need-kernel-deb- flag in the installed system too
---

diff --git a/Osstest/Debian.pm b/Osstest/Debian.pm
index e58a7cc..92d97a9 100644
--- a/Osstest/Debian.pm
+++ b/Osstest/Debian.pm
@@ -21,6 +21,7 @@ use strict;
 use warnings;
 
 use IO::File;
+use File::Copy;
 
 use Osstest;
 use Osstest::TestSupport;
@@ -440,6 +441,35 @@ $overlays
 echo latecmd done.
 END
 
+    foreach my $kp (keys %{ $ho->{Flags} }) {
+	$kp =~ s/need-kernel-deb-// or next;
+
+	my $d_i= $c{TftpPath}.'/'.$c{TftpDiBase}.'/'.$r{arch}.'/'.$c{TftpDiVersion};
+
+	my $kurl = create_webfile($ho, "kernel", sub {
+	    copy("$d_i/$kp.deb", $_[0]);
+        });
+
+	my $iurl = create_webfile($ho, "initramfs-tools", sub {
+	    copy("$d_i/initramfs-tools.deb", $_[0]);
+        });
+
+	preseed_hook_command($ho, 'late_command', $sfx, <<END);
+#!/bin/sh
+set -ex
+
+r=/target
+
+wget -O \$r/tmp/kern.deb $kurl
+wget -O \$r/tmp/initramfs-tools.deb $iurl
+
+# This will fail due to dependencies...
+in-target dpkg -i /tmp/kern.deb /tmp/initramfs-tools.deb || true
+# ... Now fix everything up...
+in-target apt-get install -f -y
+END
+    }
+
     my $preseed_file= (<<END);
 d-i mirror/suite string $suite