From 6ee052ec42b26a23e5369e21426555998e0ad6aa Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Thu, 12 Mar 2015 18:53:31 +0000
Subject: [PATCH] convert-cabinet-layout: mkpxedir

---
 convert-cabinet-layout | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/convert-cabinet-layout b/convert-cabinet-layout
index 0d1572d..4a1b68b 100755
--- a/convert-cabinet-layout
+++ b/convert-cabinet-layout
@@ -89,9 +89,9 @@ our %dests;
 our %outfor;
 our $ndests=0;
 
-sub outfor ($$) {
-    my ($dest,$s) = @_;
-    $dests{$dest} //= $ndests++;
+sub outfor ($$;$) {
+    my ($dest,$s,$pri) = @_;
+    $dests{$dest} //= ($pri // $ndests++);
     $outfor{$dest} .= $s;
 }
 
@@ -213,8 +213,19 @@ while (my $row = csv_row()) {
 }
 
 if (defined $createlike) {
-    outfor "mg-hosts",
-    "./mg-hosts create-like $createlike ".(join ",", @machines)."\n";
+    outfor "create",
+    "./mg-hosts create-like $createlike ".(join ",", @machines)."\n",
+    -1;
+
+    outfor "mkpxe",
+    "./mg-allocate @machines\n",
+    100;
+
+    outfor "mkpxe",
+    "./mg-hosts mkpxedir @machines\n";
+
+    outfor "mkpxe",
+    "./mg-allocate ".(join " ", map { "!$_" } @machines)."\n";
 }
 
 if (@flags) {
-- 
2.39.5