convert-cabinet-layout: mkpxedir

diff --git a/convert-cabinet-layout b/convert-cabinet-layout
index 0d1572df008995fc801006600a96ed7f213481e4..4a1b68b6d1fc71e19f369e9782433f3b05aaf8e2 100755 (executable)
--- 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) {