This is needed in order to figure out which memdisk options should be
used to boot the images on each specific box.
Note that upon success the script stores the tentative host property
in the runvars.
Signed-off-by: Roger Pau Monné <roger....@citrix.com>
---
ts-freebsd-host-install | 27 ++++++++++++++++++++++++++-
1 file changed, 26 insertions(+), 1 deletion(-)
diff --git a/ts-freebsd-host-install b/ts-freebsd-host-install
index 483b9aec..3b0ab970 100755
--- a/ts-freebsd-host-install
+++ b/ts-freebsd-host-install
@@ -41,6 +41,25 @@ use Osstest::TestSupport;
tsreadconfig();
+if ($r{'arch'} !~ m/amd64/g) {
+ logm("Arch $r{'arch'} not supported!");
+ exit 0;
+}
+
+our $bootonly;
+our $memdisk_append;
+while (@ARGV && $ARGV[0] =~ m/^-/g) {
+ if ($ARGV[0] =~ m/^--memdiskappend=(.*)/) {
+ $memdisk_append = $1;
+ } elsif ($ARGV[0] eq "--testboot") {
+ $memdisk_append //= "";
+ $bootonly = 1;
+ } else {
+ die "Unknown argument $ARGV[0]";
+ }
+ shift @ARGV;
+}
+
our ($whhost) = @ARGV;
$whhost ||= 'host';
our $ho= selecthost($whhost);
@@ -95,7 +114,7 @@ END
# Setup the pxelinux config file
logm("Booting from installer image at $pxeimg");
- setup_netboot_memdisk($ho, $pxeimg);
+ setup_netboot_memdisk($ho, $pxeimg, $memdisk_append);
}
sub install () {
@@ -247,6 +266,12 @@ power_state($ho, 1);
logm("Waiting for the installer to boot");
await_tcp(get_timeout($ho,'reboot',$timeout), 5, $ho);
+if ($bootonly) {
+ hostprop_putative_record($ho, "MemdiskAppend", $memdisk_append)
+ if $memdisk_append;
+ exit 0;
+}
+
# Next boot will be from local disk
setup_netboot_local($ho);
--
2.11.0 (Apple Git-81)
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
https://lists.xen.org/xen-devel
