Pull in recent esxpm changes from 2.8 stream

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@12806 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2012-05-18 18:14:09 +00:00
parent 7aeaa89a46
commit 6145f30b34

View File

@ -4,6 +4,7 @@ use strict;
use warnings;
use xCAT::Table;
use xCAT::Utils;
use xCAT::TZUtils;
use Time::HiRes qw (sleep);
use xCAT::Template;
use xCAT::MsgUtils;
@ -2341,17 +2342,46 @@ sub clone_vms_from_master {
sub make_customization_spec {
my $node = shift;
my $password="Passw0rd";
my $wintimezone=35;
my $wintimezone;
#map of number to strings can be found at
#http://osman-shener-en.blogspot.com/2008/02/unattendedtxt-time-zone-index.html
my $fullname="fooooo";
my $orgName="barrrr";
my @runonce = ("dir"); #to be read in from postscripts table
my $fullname="Unspecified User";
my $orgName="Unspecified Organization";
if ($::XCATSITEVALS{winfullname}) { $fullname = $::XCATSITEVALS{winfullname}; }
if ($::XCATSITEVALS{winorgname}) { $orgName = $::XCATSITEVALS{winorgname}; }
my @runonce=(); #to be read in from postscripts table
$wintimezone=xCAT::TZUtils::get_wintimezonenum();
my $ptab=xCAT::Table->new('postscripts',-create=>0);
if ($ptab) {
my $psent = $ptab->getNodeAttribs($node,[qw/postscripts postbootscripts/]);
if ($psent and $psent->{postscripts}) {
push @runonce,split /,/,$psent->{postscripts};
}
if ($psent and $psent->{postbootscripts}) {
push @runonce,split /,/,$psent->{postbootscripts};
}
}
$ptab = xCAT::Table->new('passwd',-create=>0);
unless ($ptab) {
die "passwd table needed";
}
my ($passent) = $ptab->getAttribs({"key"=>"system",username=>"Administrator"},'password');
unless ($passent) {
die "need passwd table entry for system account Administrator";
}
$password=$passent->{password};
my %runonce;
if (scalar @runonce) { #skip section if no postscripts or postbootscripts
%runonce=(
guiRunOnce=>CustomizationGuiRunOnce->new(
commandList=>\@runonce,
)
);
}
my $identity = CustomizationSysprep->new(
guiRunOnce=>CustomizationGuiRunOnce->new(
commandList=>\@runonce,
),
%runonce,
guiUnattended => CustomizationGuiUnattended->new(
autoLogon=>0,
autoLogonCount=>1,
@ -2383,8 +2413,9 @@ sub make_customization_spec {
}
sub get_customizedidentification {
#for now, just do a 'TBD' workgroup. VMWare not supporting joining without domain admin password is rather unfortunate
return CustomizationIdentification->new(
joinWorkgroup=>"Temp",
joinWorkgroup=>"TBD",
);
}
@ -4380,7 +4411,9 @@ sub merge_esxi5_append {
#if ($line =~ /modules=b.b00/) {
# $line =~ s/modules=b.b00/modules=b.b00 $append/;
}
print $out $line;
unless ($line =~ /^prefix=/) {
print $out $line;
}
}
}
sub mkcommonboot {