[Xen-devel] [OSSTEST PATCH 44/62] Debian: preseed_hook_installscript: New $atonce option

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

This runs the script right away as well as merely installing it.

Signed-off-by: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>
---
 Osstest/Debian.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/Osstest/Debian.pm b/Osstest/Debian.pm
index 3afea62b..d1b52b5b 100644
--- a/Osstest/Debian.pm
+++ b/Osstest/Debian.pm
@@ -1482,20 +1482,23 @@ sub preseed_hook_command ($$$$) {
     push @{ $preseed_cmds{$di_key} }, $cmd_cmd;
 }
 
-sub preseed_hook_installscript ($$$$$) {
-    my ($ho, $sfx, $installer_dir, $installer_leaf, $data) = @_;
+sub preseed_hook_installscript ($$$$$;$) {
+    my ($ho, $sfx, $installer_dir, $installer_leaf, $data, $atonce) = @_;
     # the specified script is installed via partman/early_command
     my $installer_pathname= "$installer_dir/$installer_leaf";
     my $urlfile= $installer_pathname;
     $urlfile =~ s/[^-_0-9a-z]/ sprintf "X%02x", ord($&) /ge;
     my $url= create_webfile($ho, $urlfile, $data);
-    preseed_hook_command($ho, 'partman/early_command', $sfx, <<END);
+    preseed_hook_command($ho, 'partman/early_command', $sfx,
+                        <<END.($atonce?<<END_ATONCE:''));
 #!/bin/sh
 set -ex
 mkdir -p '$installer_dir'
 $preseed_wget -O '$installer_pathname' '$url'
 chmod +x '$installer_pathname'
 END
+'$installer_pathname'
+END_ATONCE
 }
 
 sub preseed_hook_overlay ($$$$) {
-- 
2.11.0


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxxx
https://lists.xenproject.org/mailman/listinfo/xen-devel