Fix legacy boot breakage by windows uefi support

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10684 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

xCAT-server/lib/perl/xCAT/Template.pm

@@ -21,6 +21,7 @@ my $field;
 my $idir;
 my $node;
 my %loggedrealms;
+my $lastmachinepass;
 
 sub subvars { 
   my $self = shift;
@@ -31,6 +32,10 @@ sub subvars {
   my $pkglistfile=shift;
   my $media_dir = shift;
   my $platform=shift;
+  my %namedargs = @_; #further expansion of this function will be named arguments, should have happened sooner.
+  unless ($namedargs{reusemachinepass}) {
+	$lastmachinepass="";
+  }
 
   my $outh;
   my $inh;
@@ -162,6 +167,12 @@ sub subvars {
   return 0;
 }
 sub machinepassword {
+    if ($lastmachinepass) { #note, this should only happen after another call
+			    #to subvars that does *not* request reuse
+			    #the issue being avoiding reuse in the installmonitor case
+			    #subvars function clears this if appropriate
+	return $lastmachinepass;
+    }
     my $domaintab = xCAT::Table->new('domain');
     $ENV{HOME}='/etc/xcat';
     $ENV{LDAPRC}='ad.ldaprc';
@@ -231,6 +242,7 @@ sub machinepassword {
     if ($data->{error}) { 
         return "ERROR: ".$data->{error};
     } else {
+	$lastmachinepass=$data->{password};
         return $data->{password};
     }
 }

xCAT-server/lib/xcat/plugins/windows.pm

@@ -336,7 +336,7 @@ sub mkinstall
                          $tmplfile.".uefi",
                          "$installroot/autoinst/$node.uefi",
                          $node,
-                         0
+                         0, undef,undef,reusemachinepass=>1,
                          );
         }