arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update mknetboot() to create postscripts and tar file.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1041 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott 2008-04-14 13:32:45 +00:00
parent 5ec3545c4e
commit d3aa85e15e
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
xCAT-server-2.0/lib/xcat/plugins/anaconda.pm
View File

@ -94,6 +94,7 @@ sub process_request {
my $distname = undef;
my $arch = undef;
my $path = undef;
if ($request->{command}->[0] eq 'copycd') {
return copycd($request,$callback,$doreq);
} elsif ($request->{command}->[0] eq 'mkinstall') {
@ -115,6 +116,7 @@ sub mknetboot {
my $sitetab = xCAT::Table->new('site');
my $installroot;
$installroot = "/install";
(my $sent) = $sitetab->getAttribs({key=>master},value);
my $imgsrv;
if ($sent and $sent->{value}) {
@ -132,6 +134,7 @@ sub mknetboot {
$callback->({error=>["Insufficient nodetype entry for $node"],errorcode=>[1]});
next;
}
my $osver = $ent->{os};
my $platform;
if ($osver =~ /rh.*/) {
@ -155,6 +158,11 @@ sub mknetboot {
$callback->({error=>["No packed image for platform $osver, architecture $arch, and profile $profile, please run packimage (i.e. packimage -o $osver -p $profile -a $arch"],errorcode=>[1]});
next;
}
# create the node-specific post scripts
mkpath "/install/postscripts/";
xCAT::Postage->writescript($node,"/install/postscripts/".$node, "netboot");
mkpath("/$tftpdir/xcat/netboot/$osver/$arch/$profile/");
#TODO: only copy if newer...
copy("/$installroot/netboot/$osver/$arch/$profile/kernel","/$tftpdir/xcat/netboot/$osver/$arch/$profile/");
@ -195,6 +203,10 @@ sub mknetboot {
kcmdline=>$kcmdline
});
}
my $rc = xCAT::Utils->create_postscripts_tar();
if ( $rc != 0 ) {
xCAT::MsgUtils->message( "S", "Error creating postscripts tar file." );
}
}
sub mkinstall {
@ -204,6 +216,7 @@ sub mkinstall {
my @nodes = @{$request->{node}};
my $installroot;
$installroot = "/install";
my $node;
my $ostab = xCAT::Table->new('nodetype');
my %doneimgs;
@ -248,8 +261,12 @@ sub mkinstall {
$callback->({node=>[{name=>[$node],error=>[$tmperr],errorcode=>[1]}]});
next;
}
mkpath "/install/postscripts/";
xCAT::Postage->writescript($node,"/install/postscripts/".$node);
# create the node-specific post scripts
mkpath "/install/postscripts/";
xCAT::Postage->writescript($node,"/install/postscripts/".$node, "install");
if (
($arch =~ /x86/
and -r "/install/$os/$arch/images/pxeboot/vmlinuz"