2012-01-04 20:23:07 +00:00
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
package xCAT_plugin::anaconda ;
BEGIN
{
$ ::XCATROOT = $ ENV { 'XCATROOT' } ? $ ENV { 'XCATROOT' } : '/opt/xcat' ;
}
use lib "$::XCATROOT/lib/perl" ;
use Storable qw( dclone ) ;
use Sys::Syslog ;
use Thread qw( yield ) ;
use POSIX qw( WNOHANG nice ) ;
use xCAT::Table ;
use xCAT::Utils ;
2012-08-09 04:07:40 +00:00
use xCAT::TableUtils ;
2012-01-04 20:23:07 +00:00
use xCAT::NetworkUtils ;
use xCAT::MsgUtils ;
use xCAT::SvrUtils ;
#use Data::Dumper;
use Getopt::Long ;
Getopt::Long:: Configure ( "bundling" ) ;
Getopt::Long:: Configure ( "pass_through" ) ;
use File::Path ;
use File::Copy ;
use File::Temp qw/mkdtemp/ ;
2012-07-05 14:59:08 +00:00
use File::Find ;
use File::Basename ;
2013-01-07 08:39:52 +00:00
use Digest::MD5 qw( md5_hex ) ;
2012-01-04 20:23:07 +00:00
use Socket ;
2012-02-24 21:12:51 +00:00
use strict ;
2012-01-04 20:23:07 +00:00
my @ cpiopid ;
2012-06-19 20:17:42 +00:00
my $ httpmethod = "http" ;
my $ httpport = "80" ;
2012-01-04 20:23:07 +00:00
2012-01-13 09:38:47 +00:00
2012-01-04 20:23:07 +00:00
sub handled_commands
{
return {
copycd = > "anaconda" ,
2013-03-25 17:39:42 +00:00
mknetboot = > "nodetype:os=(^ol[0-9].*)|(centos.*)|(rh.*)|(fedora.*)|(SL.*)" ,
mkinstall = > "nodetype:os=(esxi4.1)|(esx[34].*)|(^ol[0-9].*)|(centos.*)|(rh(?!evh).*)|(fedora.*)|(SL.*)" ,
mksysclone = > "nodetype:os=(esxi4.1)|(esx[34].*)|(^ol[0-9].*)|(centos.*)|(rh(?!evh).*)|(fedora.*)|(SL.*)" ,
mkstatelite = > "nodetype:os=(esx[34].*)|(^ol[0-9].*)|(centos.*)|(rh.*)|(fedora.*)|(SL.*)" ,
2012-01-04 20:23:07 +00:00
} ;
}
sub preprocess_request
{
my $ req = shift ;
my $ callback = shift ;
return [ $ req ] ; #calls are only made from pre-farmed out scenarios
if ( $ req - > { command } - > [ 0 ] eq 'copycd' )
{ #don't farm out copycd
return [ $ req ] ;
}
2012-05-21 10:00:16 +00:00
#my $stab = xCAT::Table->new('site');
#my $sent;
#($sent) = $stab->getAttribs({key => 'sharedtftp'}, 'value');
2012-08-09 04:07:40 +00:00
my @ ents = xCAT::TableUtils - > get_site_attribute ( "sharedtftp" ) ;
2012-05-21 10:00:16 +00:00
my $ site_ent = $ ents [ 0 ] ;
unless ( defined ( $ site_ent )
and ( $ site_ent =~ /no/i or $ site_ent =~ /0/ ) )
2012-01-04 20:23:07 +00:00
{
#unless requesting no sharedtftp, don't make hierarchical call
return [ $ req ] ;
}
my % localnodehash ;
my % dispatchhash ;
my $ nrtab = xCAT::Table - > new ( 'noderes' ) ;
my $ nrents = $ nrtab - > getNodesAttribs ( $ req - > { node } , [ qw( tftpserver servicenode ) ] ) ;
foreach my $ node ( @ { $ req - > { node } } )
{
my $ nodeserver ;
my $ tent = $ nrents - > { $ node } - > [ 0 ] ; #$nrtab->getNodeAttribs($node, ['tftpserver']);
if ( $ tent ) { $ nodeserver = $ tent - > { tftpserver } }
unless ( $ tent and $ tent - > { tftpserver } )
{
$ tent = $ nrents - > { $ node } - > [ 0 ] ; #$nrtab->getNodeAttribs($node, ['servicenode']);
if ( $ tent ) { $ nodeserver = $ tent - > { servicenode } }
}
if ( $ nodeserver )
{
$ dispatchhash { $ nodeserver } - > { $ node } = 1 ;
}
else
{
$ localnodehash { $ node } = 1 ;
}
}
my @ requests ;
my $ reqc = { %$ req } ;
$ reqc - > { node } = [ keys % localnodehash ] ;
if ( scalar ( @ { $ reqc - > { node } } ) ) { push @ requests , $ reqc }
foreach my $ dtarg ( keys % dispatchhash )
{ #iterate dispatch targets
my $ reqcopy = { %$ req } ; #deep copy
$ reqcopy - > { '_xcatdest' } = $ dtarg ;
$ reqcopy - > { node } = [ keys % { $ dispatchhash { $ dtarg } } ] ;
push @ requests , $ reqcopy ;
}
return \ @ requests ;
}
sub process_request
{
my $ request = shift ;
my $ callback = shift ;
my $ doreq = shift ;
my $ distname = undef ;
my $ arch = undef ;
my $ path = undef ;
2012-06-19 20:20:47 +00:00
if ( $ ::XCATSITEVALS { "httpmethod" } ) { $ httpmethod = $ ::XCATSITEVALS { "httpmethod" } ; }
if ( $ ::XCATSITEVALS { "httpport" } ) { $ httpport = $ ::XCATSITEVALS { "httpport" } ; }
2012-01-04 20:23:07 +00:00
if ( $ request - > { command } - > [ 0 ] eq 'copycd' )
{
return copycd ( $ request , $ callback , $ doreq ) ;
}
elsif ( $ request - > { command } - > [ 0 ] eq 'mkinstall' )
{
return mkinstall ( $ request , $ callback , $ doreq ) ;
}
elsif ( $ request - > { command } - > [ 0 ] eq 'mknetboot' or
$ request - > { command } - > [ 0 ] eq 'mkstatelite' )
{
return mknetboot ( $ request , $ callback , $ doreq ) ;
}
2013-03-04 05:13:00 +00:00
elsif ( $ request - > { command } - > [ 0 ] eq 'mksysclone' )
{
return mksysclone ( $ request , $ callback , $ doreq ) ;
}
2012-01-04 20:23:07 +00:00
}
# Check whether the dracut is supported by this os
sub using_dracut
{
my $ os = shift ;
2013-01-14 06:58:00 +00:00
if ( $ os =~ /(rhels|rhel|centos)(\d+)/ ) {
2012-01-04 20:23:07 +00:00
if ( $ 2 >= 6 ) {
return 1 ;
}
} elsif ( $ os =~ /fedora(\d+)/ ) {
if ( $ 1 >= 12 ) {
return 1 ;
}
} elsif ( $ os =~ /SL(\d+)/ ) {
if ( $ 1 >= 6 ) {
return 1 ;
}
}
return 0 ;
}
sub mknetboot
{
my $ xenstyle = 0 ;
my $ req = shift ;
my $ callback = shift ;
my $ doreq = shift ;
my $ statelite = 0 ;
if ( $ req - > { command } - > [ 0 ] =~ 'mkstatelite' ) {
$ statelite = "true" ;
}
2012-02-15 21:04:42 +00:00
my $ globaltftpdir = "/tftpboot" ;
2012-01-04 20:23:07 +00:00
my $ nodes = @ { $ req - > { node } } ;
2012-03-05 05:52:08 +00:00
my @ args = @ { $ req - > { arg } } if ( exists ( $ req - > { arg } ) ) ;
2012-01-04 20:23:07 +00:00
my @ nodes = @ { $ req - > { node } } ;
my $ ostab = xCAT::Table - > new ( 'nodetype' ) ;
2012-05-21 10:00:16 +00:00
#my $sitetab = xCAT::Table->new('site');
2012-01-04 20:23:07 +00:00
my $ linuximagetab ;
my $ osimagetab ;
my % img_hash = ( ) ;
my $ installroot ;
$ installroot = "/install" ;
my $ xcatdport = "3001" ;
2012-05-21 10:00:16 +00:00
#if ($sitetab)
#{
# (my $ref) = $sitetab->getAttribs({key => 'installdir'}, 'value');
2012-08-09 04:07:40 +00:00
my @ ents = xCAT::TableUtils - > get_site_attribute ( "installdir" ) ;
2012-05-21 10:00:16 +00:00
my $ site_ent = $ ents [ 0 ] ;
if ( defined ( $ site_ent ) )
2012-01-04 20:23:07 +00:00
{
2012-05-21 10:00:16 +00:00
$ installroot = $ site_ent ;
}
# ($ref) = $sitetab->getAttribs({key => 'xcatdport'}, 'value');
2012-08-09 04:07:40 +00:00
@ ents = xCAT::TableUtils - > get_site_attribute ( "xcatdport" ) ;
2012-05-21 10:00:16 +00:00
$ site_ent = $ ents [ 0 ] ;
if ( defined ( $ site_ent ) )
{
$ xcatdport = $ site_ent ;
}
# ($ref) = $sitetab->getAttribs({key => 'tftpdir'}, 'value');
2012-08-09 04:07:40 +00:00
@ ents = xCAT::TableUtils - > get_site_attribute ( "tftpdir" ) ;
2012-05-21 10:00:16 +00:00
$ site_ent = $ ents [ 0 ] ;
if ( defined ( $ site_ent ) )
{
$ globaltftpdir = $ site_ent ;
2012-01-04 20:23:07 +00:00
}
my % donetftp = ( ) ;
my % oents = % { $ ostab - > getNodesAttribs ( \ @ nodes , [ qw( os arch profile provmethod ) ] ) } ;
my $ restab = xCAT::Table - > new ( 'noderes' ) ;
my $ bptab = xCAT::Table - > new ( 'bootparams' , - create = > 1 ) ;
my $ hmtab = xCAT::Table - > new ( 'nodehm' ) ;
my $ mactab = xCAT::Table - > new ( 'mac' ) ;
my $ machash = $ mactab - > getNodesAttribs ( \ @ nodes , [ 'interface' , 'mac' ] ) ;
2012-02-15 21:04:42 +00:00
my $ reshash = $ restab - > getNodesAttribs ( \ @ nodes , [ 'primarynic' , 'tftpserver' , 'tftpdir' , 'xcatmaster' , 'nfsserver' , 'nfsdir' , 'installnic' ] ) ;
2012-01-04 20:23:07 +00:00
my $ hmhash =
$ hmtab - > getNodesAttribs ( \ @ nodes ,
[ 'serialport' , 'serialspeed' , 'serialflow' ] ) ;
my $ statetab ;
my $ stateHash ;
if ( $ statelite ) {
$ statetab = xCAT::Table - > new ( 'statelite' , - create = > 1 ) ;
$ stateHash = $ statetab - > getNodesAttribs ( \ @ nodes , [ 'statemnt' ] ) ;
}
#my $addkcmdhash =
# $bptab->getNodesAttribs(\@nodes, ['addkcmdline']);
2013-01-05 07:39:45 +00:00
# Warning message for nodeset <noderange> install/netboot/statelite
foreach my $ knode ( keys % oents )
{
my $ ent = $ oents { $ knode } - > [ 0 ] ;
if ( $ ent && $ ent - > { provmethod }
&& ( ( $ ent - > { provmethod } eq 'install' ) || ( $ ent - > { provmethod } eq 'netboot' ) || ( $ ent - > { provmethod } eq 'statelite' ) ) )
{
2013-01-23 07:52:19 +00:00
my @ ents = xCAT::TableUtils - > get_site_attribute ( "disablenodesetwarning" ) ;
my $ site_ent = $ ents [ 0 ] ;
if ( ! defined ( $ site_ent ) || ( $ site_ent =~ /no/i ) || ( $ site_ent =~ /0/ ) )
{
$ callback - > (
{
warning = > [ "The options \"install\", \"netboot\", and \"statelite\" have been deprecated. They should continue to work in this release, but have not been tested as carefully, and some new functions are not available with these options. For full function and support, use \"nodeset <noderange> osimage=<osimage_name>\" instead." ] ,
}
) ;
# Do not print this warning message multiple times
last ;
}
}
2013-01-05 07:39:45 +00:00
}
2012-01-04 20:23:07 +00:00
foreach my $ node ( @ nodes )
{
my $ osver ;
my $ arch ;
my $ profile ;
my $ platform ;
my $ rootimgdir ;
my $ nodebootif ; # nodebootif will be used if noderes.installnic is not set
my $ dump ; # for kdump, its format is "nfs://<nfs_server_ip>/<kdump_path>"
my $ crashkernelsize ;
my $ rootfstype ;
2012-02-15 21:04:42 +00:00
my $ tftpdir ;
2012-11-16 14:02:36 +00:00
my $ cfgpart ;
2013-01-10 13:56:49 +00:00
my $ imagename ; # set it if running of 'nodeset osimage=xxx'
2012-02-15 21:04:42 +00:00
if ( $ reshash - > { $ node } - > [ 0 ] and $ reshash - > { $ node } - > [ 0 ] - > { tftpdir } ) {
$ tftpdir = $ reshash - > { $ node } - > [ 0 ] - > { tftpdir } ;
} else {
$ tftpdir = $ globaltftpdir ;
}
2012-01-04 20:23:07 +00:00
my $ ent = $ oents { $ node } - > [ 0 ] ; #ostab->getNodeAttribs($node, ['os', 'arch', 'profile']);
if ( $ ent and $ ent - > { provmethod } and ( $ ent - > { provmethod } ne 'install' ) and ( $ ent - > { provmethod } ne 'netboot' ) and ( $ ent - > { provmethod } ne 'statelite' ) ) {
2013-01-10 13:56:49 +00:00
$ imagename = $ ent - > { provmethod } ;
2012-01-04 20:23:07 +00:00
#print "imagename=$imagename\n";
if ( ! exists ( $ img_hash { $ imagename } ) ) {
if ( ! $ osimagetab ) {
$ osimagetab = xCAT::Table - > new ( 'osimage' , - create = > 1 ) ;
}
( my $ ref ) = $ osimagetab - > getAttribs ( { imagename = > $ imagename } , 'osvers' , 'osarch' , 'profile' , 'provmethod' , 'rootfstype' ) ;
if ( $ ref ) {
$ img_hash { $ imagename } - > { osver } = $ ref - > { 'osvers' } ;
$ img_hash { $ imagename } - > { osarch } = $ ref - > { 'osarch' } ;
$ img_hash { $ imagename } - > { profile } = $ ref - > { 'profile' } ;
$ img_hash { $ imagename } - > { provmethod } = $ ref - > { 'provmethod' } ;
$ img_hash { $ imagename } - > { rootfstype } = $ ref - > { rootfstype } ;
if ( ! $ linuximagetab ) {
$ linuximagetab = xCAT::Table - > new ( 'linuximage' , - create = > 1 ) ;
}
2012-11-16 14:02:36 +00:00
( my $ ref1 ) = $ linuximagetab - > getAttribs ( { imagename = > $ imagename } , 'rootimgdir' , 'nodebootif' , 'dump' , 'crashkernelsize' , 'partitionfile' ) ;
2012-01-04 20:23:07 +00:00
if ( ( $ ref1 ) && ( $ ref1 - > { 'rootimgdir' } ) ) {
$ img_hash { $ imagename } - > { rootimgdir } = $ ref1 - > { 'rootimgdir' } ;
}
if ( ( $ ref1 ) && ( $ ref1 - > { 'nodebootif' } ) ) {
$ img_hash { $ imagename } - > { nodebootif } = $ ref1 - > { 'nodebootif' } ;
}
if ( $ ref1 ) {
if ( $ ref1 - > { 'dump' } ) {
$ img_hash { $ imagename } - > { dump } = $ ref1 - > { 'dump' } ;
}
}
if ( ( $ ref1 ) && ( $ ref1 - > { 'crashkernelsize' } ) ) {
$ img_hash { $ imagename } - > { crashkernelsize } = $ ref1 - > { 'crashkernelsize' } ;
}
2012-11-16 14:02:36 +00:00
if ( $ ref1 && $ ref1 - > { 'partitionfile' } ) {
# check the validity of the partition configuration file
if ( $ ref1 - > { 'partitionfile' } =~ /^s:(.*)/ ) {
# the configuration file is a script
if ( - r $ 1 ) {
$ img_hash { $ imagename } - > { 'cfgpart' } = "yes" ;
}
} else {
if ( open ( FILE , "<$ref1->{'partitionfile'}" ) ) {
while ( <FILE> ) {
if ( /enable=yes/ ) {
$ img_hash { $ imagename } - > { 'cfgpart' } = "yes" ;
last ;
}
}
}
close ( FILE ) ;
}
$ img_hash { $ imagename } - > { 'partfile' } = $ ref1 - > { 'partitionfile' } ;
}
2012-01-04 20:23:07 +00:00
} else {
$ callback - > (
{ error = > [ "The os image $imagename does not exists on the osimage table for $node" ] ,
errorcode = > [ 1 ] } ) ;
next ;
}
}
2012-11-16 14:02:36 +00:00
my $ ph = $ img_hash { $ imagename } ;
2012-01-04 20:23:07 +00:00
2012-11-16 14:02:36 +00:00
$ osver = $ ph - > { osver } ;
$ arch = $ ph - > { osarch } ;
$ profile = $ ph - > { profile } ;
2012-01-04 20:23:07 +00:00
$ rootfstype = $ ph - > { rootfstype } ;
2012-11-16 14:02:36 +00:00
$ rootimgdir = $ ph - > { rootimgdir } ;
2012-01-04 20:23:07 +00:00
unless ( $ rootimgdir ) {
$ rootimgdir = "$installroot/netboot/$osver/$arch/$profile" ;
}
$ nodebootif = $ ph - > { nodebootif } ;
$ crashkernelsize = $ ph - > { crashkernelsize } ;
$ dump = $ ph - > { dump } ;
2012-11-16 14:02:36 +00:00
$ cfgpart = $ ph - > { 'cfgpart' } ;
2013-01-10 13:56:49 +00:00
}
2012-01-04 20:23:07 +00:00
else {
$ osver = $ ent - > { os } ;
$ arch = $ ent - > { arch } ;
$ profile = $ ent - > { profile } ;
$ rootimgdir = "$installroot/netboot/$osver/$arch/$profile" ;
$ rootfstype = "nfs" ; # TODO: try to get it from the option or table
my $ imgname ;
if ( $ statelite ) {
$ imgname = "$osver-$arch-statelite-$profile" ;
} else {
$ imgname = "$osver-$arch-netboot-$profile" ;
}
if ( ! $ osimagetab ) {
$ osimagetab = xCAT::Table - > new ( 'osimage' ) ;
}
if ( $ osimagetab ) {
my ( $ ref1 ) = $ osimagetab - > getAttribs ( { imagename = > $ imgname } , 'rootfstype' ) ;
if ( ( $ ref1 ) && ( $ ref1 - > { 'rootfstype' } ) ) {
$ rootfstype = $ ref1 - > { 'rootfstype' } ;
}
} else {
$ callback - > (
2012-02-24 21:12:51 +00:00
{ error = > [ qq{ Cannot find the linux image called "$osver-$arch-$imgname-$profile", maybe you need to use the "nodeset <nr> osimage=<osimage name>" command to set the boot state } ] ,
2012-01-04 20:23:07 +00:00
errorcode = > [ 1 ] }
) ;
}
if ( ! $ linuximagetab ) {
$ linuximagetab = xCAT::Table - > new ( 'linuximage' ) ;
}
if ( $ linuximagetab ) {
2012-11-16 14:02:36 +00:00
( my $ ref1 ) = $ linuximagetab - > getAttribs ( { imagename = > $ imgname } , 'dump' , 'crashkernelsize' , 'partitionfile' ) ;
2012-01-04 20:23:07 +00:00
if ( $ ref1 and $ ref1 - > { 'dump' } ) {
$ dump = $ ref1 - > { 'dump' } ;
}
if ( $ ref1 and $ ref1 - > { 'crashkernelsize' } ) {
$ crashkernelsize = $ ref1 - > { 'crashkernelsize' } ;
}
2012-11-16 14:02:36 +00:00
if ( $ ref1 and $ ref1 - > { 'partitionfile' } ) {
# check the validity of the partition configuration file
if ( $ ref1 - > { 'partitionfile' } =~ /^s:(.*)/ ) {
# the configuration file is a script
if ( - r $ 1 ) {
$ cfgpart = "yes" ;
}
} else {
if ( - r $ ref1 - > { 'partitionfile' } && open ( FILE , "<$ref1->{'partitionfile'}" ) ) {
while ( <FILE> ) {
if ( /enable=yes/ ) {
$ cfgpart = "yes" ;
last ;
}
}
}
close ( FILE ) ;
}
}
2012-01-04 20:23:07 +00:00
} else {
$ callback - > (
2012-02-24 21:12:51 +00:00
{ error = > [ qq{ Cannot find the linux image called "$osver-$arch-$imgname-$profile", maybe you need to use the "nodeset <nr> osimage=<your_image_name>" command to set the boot state } ] ,
2012-01-04 20:23:07 +00:00
errorcode = > [ 1 ] }
) ;
}
}
#print"osvr=$osver, arch=$arch, profile=$profile, imgdir=$rootimgdir\n";
unless ( $ osver and $ arch and $ profile )
{
$ callback - > (
{
error = > [ "Insufficient nodetype entry or osimage entry for $node" ] ,
errorcode = > [ 1 ]
}
) ;
next ;
}
$ platform = xCAT_plugin::anaconda:: getplatform ( $ osver ) ;
my $ suffix = 'gz' ;
$ suffix = 'sfs' if ( - r "$rootimgdir/rootimg.sfs" ) ;
# statelite images are not packed.
if ( $ statelite ) {
unless ( - r "$rootimgdir/kernel" ) {
$ callback - > ( {
error = > [ qq{ Did you run "genimage" before running "liteimg"? kernel cannot be found... } ] ,
errorcode = > [ 1 ]
} ) ;
next ;
}
2013-01-10 13:56:49 +00:00
if ( ! - r "$rootimgdir/initrd-statelite.gz" ) {
2012-01-04 20:23:07 +00:00
if ( ! - r "$rootimgdir/initrd.gz" ) {
$ callback - > ( {
error = > [ qq{ Did you run "genimage" before running "liteimg"? initrd.gz or initrd-statelite.gz cannot be found } ] ,
errorcode = > [ 1 ]
2013-01-10 13:56:49 +00:00
} ) ;
2012-01-04 20:23:07 +00:00
next ;
}
2013-01-10 13:56:49 +00:00
else {
copy ( "$rootimgdir/initrd.gz" , "$rootimgdir/initrd-statelite.gz" ) ;
2012-01-04 20:23:07 +00:00
}
2013-01-10 13:56:49 +00:00
}
2012-01-04 20:23:07 +00:00
if ( $ rootfstype eq "ramdisk" and ! - r "$rootimgdir/rootimg-statelite.gz" ) {
$ callback - > ( {
error = > [ qq{ No packed image for platform $osver, architecture $arch and profile $profile, please run "liteimg" to create it. } ] ,
errorcode = > [ 1 ]
} ) ;
next ;
}
} else {
unless ( - r "$rootimgdir/kernel" ) {
$ callback - > ( {
error = > [ qq{ Did you run "genimage" before running "packimage"? kernel cannot be found } ] ,
errorcode = > [ 1 ]
} ) ;
next ;
}
if ( ! - r "$rootimgdir/initrd-stateless.gz" ) {
2013-01-10 13:56:49 +00:00
if ( ! - r "$rootimgdir/initrd.gz" ) {
$ callback - > ( {
error = > [ qq{ Did you run "genimage" before running "packimage"? initrd.gz or initrd-stateless.gz cannot be found } ] ,
errorcode = > [ 1 ]
} ) ;
next ;
} else {
copy ( "$rootimgdir/initrd.gz" , "$rootimgdir/initrd-stateless.gz" ) ;
}
}
2012-01-04 20:23:07 +00:00
unless ( - r "$rootimgdir/rootimg.gz" or - r "$rootimgdir/rootimg.sfs" ) {
$ callback - > ( {
error = > [ "No packed image for platform $osver, architecture $arch, and profile $profile, please run packimage (e.g. packimage -o $osver -p $profile -a $arch" ] ,
errorcode = > [ 1 ] } ) ;
next ;
}
}
# create the node-specific post scripts
#mkpath "/install/postscripts/";
2013-01-10 13:56:49 +00:00
# Copy the boot resource to /tftpboot and check to only copy once
my $ docopy = 0 ;
my $ tftppath ;
my $ rtftppath ; # the relative tftp path without /tftpboot/
if ( $ imagename ) {
$ tftppath = "$tftpdir/xcat/osimage/$imagename" ;
$ rtftppath = "xcat/osimage/$imagename" ;
unless ( $ donetftp { $ imagename } ) {
$ docopy = 1 ;
$ donetftp { $ imagename } = 1 ;
}
} else {
$ tftppath = "/$tftpdir/xcat/netboot/$osver/$arch/$profile/" ;
$ rtftppath = "xcat/netboot/$osver/$arch/$profile/" ;
unless ( $ donetftp { $ osver , $ arch , $ profile } ) {
$ docopy = 1 ;
$ donetftp { $ osver , $ arch , $ profile } = 1 ;
}
}
if ( $ docopy ) {
mkpath ( "$tftppath" ) ;
if ( - f "$rootimgdir/hypervisor" ) {
copy ( "$rootimgdir/hypervisor" , "$tftppath" ) ;
$ xenstyle = 1 ;
}
copy ( "$rootimgdir/kernel" , "$tftppath" ) ;
2012-01-04 20:23:07 +00:00
if ( $ statelite ) {
if ( $ rootfstype eq "ramdisk" ) {
2013-01-10 13:56:49 +00:00
copy ( "$rootimgdir/initrd-stateless.gz" , "$tftppath" ) ;
2012-01-04 20:23:07 +00:00
} else {
2013-01-10 13:56:49 +00:00
copy ( "$rootimgdir/initrd-statelite.gz" , "$tftppath" ) ;
2012-01-04 20:23:07 +00:00
}
} else {
2013-01-10 13:56:49 +00:00
copy ( "$rootimgdir/initrd-stateless.gz" , "$tftppath" ) ;
2012-01-04 20:23:07 +00:00
}
}
if ( $ statelite ) {
2013-01-10 13:56:49 +00:00
my $ initrdloc = "$tftppath" ;
2012-01-04 20:23:07 +00:00
if ( $ rootfstype eq "ramdisk" ) {
2013-01-10 13:56:49 +00:00
$ initrdloc . = "/initrd-stateless.gz" ;
2012-01-04 20:23:07 +00:00
} else {
2013-01-10 13:56:49 +00:00
$ initrdloc . = "/initrd-statelite.gz" ;
2012-01-04 20:23:07 +00:00
}
2013-01-10 13:56:49 +00:00
unless ( - r "$tftppath/kernel"
2012-01-04 20:23:07 +00:00
and - r $ initrdloc ) {
$ callback - > ( {
2013-01-10 13:56:49 +00:00
error = > [ qq{ copying to $tftppath failed } ] ,
2012-01-04 20:23:07 +00:00
errorcode = > [ 1 ]
} ) ;
next ;
}
} else {
2013-01-10 13:56:49 +00:00
unless ( - r "$tftppath/kernel"
and - r "$tftppath/initrd-stateless.gz" ) {
2012-01-04 20:23:07 +00:00
$ callback - > ( {
2013-01-10 13:56:49 +00:00
error = > [ qq{ copying to $tftppath failed } ] ,
2012-01-04 20:23:07 +00:00
errorcode = > [ 1 ]
} ) ;
next ;
}
}
$ ent = $ reshash - > { $ node } - > [ 0 ] ; #$restab->getNodeAttribs($node, ['primarynic']);
my $ sent = $ hmhash - > { $ node } - > [ 0 ] ;
# $hmtab->getNodeAttribs($node,
# ['serialport', 'serialspeed', 'serialflow']);
# determine image server, if tftpserver use it, else use xcatmaster
# last resort use self
my $ imgsrv ;
my $ ient ;
my $ xcatmaster ;
$ ient = $ reshash - > { $ node } - > [ 0 ] ; #$restab->getNodeAttribs($node, ['tftpserver']);
if ( $ ient and $ ient - > { xcatmaster } )
{
$ xcatmaster = $ ient - > { xcatmaster } ;
} else {
$ xcatmaster = '!myipfn!' ; #allow service nodes to dynamically nominate themselves as a good contact point, this is of limited use in the event that xcat is not the dhcp/tftp server
}
if ( $ ient and $ ient - > { tftpserver } )
{
$ imgsrv = $ ient - > { tftpserver } ;
}
else
{
$ ient = $ reshash - > { $ node } - > [ 0 ] ; #$restab->getNodeAttribs($node, ['xcatmaster']);
#if ($ient and $ient->{xcatmaster})
#{
# $imgsrv = $ient->{xcatmaster};
#}
#else
#{
# master not correct for service node pools
#$ient = $sitetab->getAttribs({key => master}, value);
#if ($ient and $ient->{value})
#{
# $imgsrv = $ient->{value};
#}
#else
#{
# $imgsrv = '!myipfn!';
#}
#}
$ imgsrv = $ xcatmaster ;
}
unless ( $ imgsrv )
{
$ callback - > (
{
error = > [
"Unable to determine or reasonably guess the image server for $node"
] ,
errorcode = > [ 1 ]
}
) ;
next ;
}
2013-05-28 12:24:30 +00:00
my $ kcmdline ;
# add more arguments: XCAT=xcatmaster:xcatport NODE=<nodename>
#and ifname=<eth0>:<mac address>
2012-01-04 20:23:07 +00:00
if ( $ statelite ) {
if ( $ rootfstype ne "ramdisk" ) {
# get entry for nfs root if it exists:
# have to get nfssvr and nfsdir from noderes table
my $ nfssrv = $ imgsrv ;
my $ nfsdir = $ rootimgdir ;
if ( $ ient - > { nfsserver } ) {
$ nfssrv = $ ient - > { nfsserver } ;
}
if ( $ ient - > { nfsdir } ne '' ) {
$ nfsdir = $ ient - > { nfsdir } . "/netboot/$osver/$arch/$profile" ;
#this code sez, "if nfsdir starts with //, then
#use a absolute path, i.e. do not append xCATisms"
#this is required for some statelite envs.
#still open for debate.
if ( $ ient - > { nfsdir } =~ m !^//! ) {
$ nfsdir = $ ient - > { nfsdir } ;
$ nfsdir =~ s!^/!! ;
}
}
# special case for redhat6, fedora12/13/14
if ( & using_dracut ( $ osver ) ) {
$ kcmdline = "root=nfs:$nfssrv:$nfsdir/rootimg:ro STATEMNT=" ;
} else {
$ kcmdline = "NFSROOT=$nfssrv:$nfsdir STATEMNT=" ;
}
} else {
2012-06-19 20:17:42 +00:00
$ kcmdline = "imgurl=$httpmethod://$imgsrv:$httpport/$rootimgdir/rootimg-statelite.gz STATEMNT=" ;
2012-01-04 20:23:07 +00:00
}
# add support for subVars in the value of "statemnt"
my $ statemnt = "" ;
if ( exists ( $ stateHash - > { $ node } ) ) {
$ statemnt = $ stateHash - > { $ node } - > [ 0 ] - > { statemnt } ;
if ( grep /\$/ , $ statemnt ) {
my ( $ server , $ dir ) = split ( /:/ , $ statemnt ) ;
#if server is blank, then its the directory
unless ( $ dir ) {
$ dir = $ server ;
$ server = '' ;
}
if ( grep /\$|#CMD/ , $ dir ) {
$ dir = xCAT::SvrUtils - > subVars ( $ dir , $ node , 'dir' , $ callback ) ;
$ dir =~ s/\/\//\//g ;
}
if ( $ server ) {
$ server = xCAT::SvrUtils - > subVars ( $ server , $ node , 'server' , $ callback ) ;
}
$ statemnt = $ server . ":" . $ dir ;
}
}
$ kcmdline . = $ statemnt . " " ;
2012-06-08 09:00:26 +00:00
my $ xcatmasterip ;
# if xcatmaster is hostname, convert it to ip address
2012-08-09 04:07:40 +00:00
if ( xCAT::NetworkUtils - > validate_ip ( $ xcatmaster ) ) {
2012-06-08 09:00:26 +00:00
# Using XCAT=<hostname> will cause problems rc.statelite.ppc.redhat
# when trying to run chroot command
$ xcatmasterip = xCAT::NetworkUtils - > getipaddr ( $ xcatmaster ) ;
if ( ! $ xcatmasterip )
{
$ xcatmasterip = $ xcatmaster ;
}
} else {
$ xcatmasterip = $ xcatmaster ;
}
2012-01-04 20:23:07 +00:00
$ kcmdline . =
2012-06-08 09:00:26 +00:00
"XCAT=$xcatmasterip:$xcatdport " ;
2012-01-04 20:23:07 +00:00
if ( $ rootfstype ne "ramdisk" ) {
# BEGIN service node
my $ isSV = xCAT::Utils - > isServiceNode ( ) ;
my $ res = xCAT::Utils - > runcmd ( "hostname" , 0 ) ;
my $ sip = xCAT::NetworkUtils - > getipaddr ( $ res ) ; # this is the IP of service node
if ( $ isSV and ( ( $ xcatmaster eq $ sip ) or ( $ xcatmaster eq $ res ) ) ) {
# if the NFS directory in litetree is on the service node,
# and it is not exported, then it will be mounted automatically
xCAT::SvrUtils - > setupNFSTree ( $ node , $ sip , $ callback ) ;
# then, export the statemnt directory if it is on the service node
if ( $ statemnt ) {
xCAT::SvrUtils - > setupStatemnt ( $ sip , $ statemnt , $ callback ) ;
}
}
# END service node
}
}
else {
$ kcmdline =
2012-06-19 20:17:42 +00:00
"imgurl=$httpmethod://$imgsrv:$httpport/$rootimgdir/rootimg.$suffix " ;
2012-01-04 20:23:07 +00:00
$ kcmdline . = "XCAT=$xcatmaster:$xcatdport " ;
2013-05-28 12:24:30 +00:00
$ kcmdline . = "NODE=$node " ;
2012-01-04 20:23:07 +00:00
}
# add one parameter: ifname=<eth0>:<mac address>
# which is used for dracut
# the redhat5.x os will ignore it
my $ useifname = 0 ;
2012-11-09 03:43:18 +00:00
#for rhels5.x-ppc64, if installnic="mac", BOOTIF=<mac> should be appended
my $ usemac = 0 ;
2012-01-04 20:23:07 +00:00
if ( $ reshash - > { $ node } - > [ 0 ] and $ reshash - > { $ node } - > [ 0 ] - > { installnic } and $ reshash - > { $ node } - > [ 0 ] - > { installnic } ne "mac" ) {
$ useifname = 1 ;
$ kcmdline . = "ifname=" . $ reshash - > { $ node } - > [ 0 ] - > { installnic } . ":" ;
} elsif ( $ nodebootif ) {
$ useifname = 1 ;
$ kcmdline . = "ifname=$nodebootif:" ;
} elsif ( $ reshash - > { $ node } - > [ 0 ] and $ reshash - > { $ node } - > [ 0 ] - > { primarynic } and $ reshash - > { $ node } - > [ 0 ] - > { primarynic } ne "mac" ) {
$ useifname = 1 ;
$ kcmdline . = "ifname=" . $ reshash - > { $ node } - > [ 0 ] - > { primarynic } . ":" ;
2012-11-09 03:43:18 +00:00
} else {
2013-03-13 06:39:54 +00:00
if ( $ arch =~ /ppc/ )
2012-11-09 03:43:18 +00:00
{
$ usemac = 1 ;
}
}
2012-01-04 20:23:07 +00:00
#else { #no, we autodetect and don't presume anything
# $kcmdline .="eth0:";
# print "eth0 is used as the default booting network devices...\n";
#}
# append the mac address
my $ mac ;
2012-11-09 03:43:18 +00:00
2012-11-12 02:16:08 +00:00
if ( ( $ usemac || $ useifname ) && $ machash - > { $ node } - > [ 0 ] && $ machash - > { $ node } - > [ 0 ] - > { 'mac' } ) {
2012-01-04 20:23:07 +00:00
# TODO: currently, only "mac" attribute with classic style is used, the "|" delimited string of "macaddress!hostname" format is not used
$ mac = $ machash - > { $ node } - > [ 0 ] - > { 'mac' } ;
# if ( (index($mac, "|") eq -1) and (index($mac, "!") eq -1) ) {
#convert to linux format
if ( $ mac !~ /:/ ) {
$ mac =~ s/(..)(..)(..)(..)(..)(..)/$1:$2:$3:$4:$5:$6/ ;
}
2012-11-01 19:21:13 +00:00
$ mac =~ s/!.*// ; #remove multi-interface mac information
$ mac =~ s/\|.*// ;
2012-01-04 20:23:07 +00:00
# } else {
# $callback->({ error=>[ qq{In the "mac" table, the "|" delimited string of "macaddress!hostname" format is not supported by "nodeset <nr> netboot|statelite if installnic/primarynic is set".}], errorcode=>[1]});
# return;
# }
}
if ( $ useifname && $ mac ) {
$ kcmdline . = "$mac " ;
}
# add "netdev=<eth0>" or "BOOTIF=<mac>"
# which are used for other scenarios
my $ netdev = "" ;
if ( $ reshash - > { $ node } - > [ 0 ] and $ reshash - > { $ node } - > [ 0 ] - > { installnic } and $ reshash - > { $ node } - > [ 0 ] - > { installnic } ne "mac" ) {
$ kcmdline . = "netdev=" . $ reshash - > { $ node } - > [ 0 ] - > { installnic } . " " ;
} elsif ( $ nodebootif ) {
$ kcmdline . = "netdev=" . $ nodebootif . " " ;
} elsif ( $ reshash - > { $ node } - > [ 0 ] and $ reshash - > { $ node } - > [ 0 ] - > { primarynic } and $ reshash - > { $ node } - > [ 0 ] - > { primarynic } ne "mac" ) {
$ kcmdline . = "netdev=" . $ reshash - > { $ node } - > [ 0 ] - > { primarynic } . " " ;
} else {
2012-11-12 02:16:08 +00:00
if ( ( $ usemac || $ useifname ) && $ mac ) {
2012-01-04 20:23:07 +00:00
$ kcmdline . = "BOOTIF=" . $ mac . " " ;
}
}
2012-02-14 03:01:42 +00:00
my % client_nethash = xCAT::DBobjUtils - > getNetwkInfo ( [ $ node ] ) ;
if ( $ client_nethash { $ node } { mgtifname } =~ /hf/ )
2012-01-04 20:23:07 +00:00
{
$ kcmdline . = "rdloaddriver=hf_if " ;
}
if ( defined $ sent - > { serialport } )
{
#my $sent = $hmtab->getNodeAttribs($node,['serialspeed','serialflow']);
unless ( $ sent - > { serialspeed } )
{
$ callback - > (
{
error = > [
"serialport defined, but no serialspeed for $node in nodehm table"
] ,
errorcode = > [ 1 ]
}
) ;
next ;
}
$ kcmdline . =
2012-01-25 20:26:07 +00:00
" console=tty0 console=ttyS" . $ sent - > { serialport } . "," . $ sent - > { serialspeed } ;
2012-01-04 20:23:07 +00:00
if ( $ sent - > { serialflow } =~ /(hard|tcs|ctsrts)/ )
{
$ kcmdline . = "n8r" ;
}
}
# turn off the selinux
if ( $ osver =~ m/fedora12/ || $ osver =~ m/fedora13/ ) {
$ kcmdline . = " selinux=0 " ;
}
# if kdump service is enbaled, add "crashkernel=" and "kdtarget="
if ( $ dump ) {
2012-07-30 07:52:55 +00:00
my $ fadumpFlag = 0 ;
2012-08-06 08:30:19 +00:00
my $ fadump = '' ;
my $ kdump = '' ;
2012-07-30 07:52:55 +00:00
if ( $ dump =~ /^fadump.*/ ) {
$ dump =~ s/fadump://g ;
$ fadumpFlag = 1 ;
2012-08-06 08:30:19 +00:00
$ fadump = $ dump ;
$ kdump = $ dump ;
2012-07-30 07:52:55 +00:00
if ( $ dump =~ /^nfs:\/\/\/.*/ ) {
2012-08-06 08:30:19 +00:00
$ fadump =~ s/(nfs:\/\/)(\/.*)/net,${xcatmaster}:${2}/ ;
2012-08-06 08:35:44 +00:00
$ kdump =~ s/(nfs:\/\/)(\/.*)/${1}${xcatmaster}${2}/ ;
2012-07-30 07:52:55 +00:00
}
}
2012-05-18 08:17:05 +00:00
if ( $ crashkernelsize ) {
2012-07-30 07:52:55 +00:00
if ( $ fadumpFlag && $ arch eq "ppc64" ) {
2012-08-06 08:30:19 +00:00
$ kcmdline . = " fadump=on fadump_reserve_mem=$crashkernelsize fadump_target=$fadump fadump_default=noreboot dump=$kdump " ;
2012-07-30 07:52:55 +00:00
}
else {
$ kcmdline . = " crashkernel=$crashkernelsize dump=$dump " ;
}
2012-05-18 08:17:05 +00:00
}
else {
if ( $ arch eq "ppc64" ) {
2012-07-30 07:52:55 +00:00
if ( $ fadumpFlag ) {
2012-08-06 08:30:19 +00:00
$ kcmdline . = " fadump=on fadump_reserve_mem=512M fadump_target=$fadump fadump_default=noreboot dump=$kdump " ;
2012-07-30 07:52:55 +00:00
}
else {
$ kcmdline . = " crashkernel=256M\@64M dump=$dump " ;
}
2012-05-18 08:17:05 +00:00
}
if ( $ arch =~ /86/ ) {
$ kcmdline . = " crashkernel=128M dump=$dump " ;
2012-01-04 20:23:07 +00:00
}
}
}
2012-11-16 14:02:36 +00:00
# add the cmdline parameters for handling the local disk for stateless
if ( $ cfgpart eq "yes" ) {
2013-05-13 11:21:02 +00:00
if ( $ statelite ) {
$ kcmdline . = " PARTITION_RH"
} else {
$ kcmdline . = " PARTITION_DOMOUNT_RH"
}
2012-11-16 14:02:36 +00:00
}
2012-01-04 20:23:07 +00:00
# add the addkcmdline attribute to the end
# of the command, if it exists
#my $addkcmd = $addkcmdhash->{$node}->[0];
# add the extra addkcmd command info, if in the table
#if ($addkcmd->{'addkcmdline'}) {
# $kcmdline .= " ";
# $kcmdline .= $addkcmd->{'addkcmdline'};
#}
2013-01-10 13:56:49 +00:00
my $ kernstr = "$rtftppath/kernel" ;
2012-01-04 20:23:07 +00:00
if ( $ xenstyle ) {
2013-01-10 13:56:49 +00:00
$ kernstr . = "!$rtftppath/hypervisor" ;
2012-01-04 20:23:07 +00:00
}
2013-01-10 13:56:49 +00:00
my $ initrdstr = "$rtftppath/initrd-stateless.gz" ;
$ initrdstr = "$rtftppath/initrd-statelite.gz" if ( $ statelite ) ;
2012-01-04 20:23:07 +00:00
# special case for the dracut-enabled OSes
if ( & using_dracut ( $ osver ) ) {
if ( $ statelite and $ rootfstype eq "ramdisk" ) {
2013-01-10 13:56:49 +00:00
$ initrdstr = "$rtftppath/initrd-stateless.gz" ;
2012-01-04 20:23:07 +00:00
}
}
if ( $ statelite )
{
my $ statelitetb = xCAT::Table - > new ( 'statelite' ) ;
my $ mntopts = $ statelitetb - > getNodeAttribs ( $ node , [ 'mntopts' ] ) ;
my $ mntoptions = $ mntopts - > { 'mntopts' } ;
unless ( defined ( $ mntoptions ) )
{
$ kcmdline . = " MNTOPTS=" ;
}
else
{
$ kcmdline . = " MNTOPTS=$mntoptions" ;
}
}
$ bptab - > setNodeAttribs (
$ node ,
{
kernel = > $ kernstr ,
initrd = > $ initrdstr ,
kcmdline = > $ kcmdline
}
) ;
}
2012-08-09 04:07:40 +00:00
#my $rc = xCAT::TableUtils->create_postscripts_tar();
2012-01-04 20:23:07 +00:00
#if ( $rc != 0 ) {
# xCAT::MsgUtils->message( "S", "Error creating postscripts tar file." );
#}
}
sub mkinstall
{
my $ request = shift ;
my $ callback = shift ;
my $ doreq = shift ;
my @ nodes = @ { $ request - > { node } } ;
2012-05-21 10:00:16 +00:00
#my $sitetab = xCAT::Table->new('site');
2012-01-04 20:23:07 +00:00
my $ linuximagetab ;
my $ osimagetab ;
my % img_hash = ( ) ;
my $ installroot ;
2012-02-15 21:04:42 +00:00
my $ globaltftpdir ;
2012-01-04 20:23:07 +00:00
$ installroot = "/install" ;
2012-02-15 21:04:42 +00:00
$ globaltftpdir = "/tftpboot" ;
2012-01-04 20:23:07 +00:00
2012-05-21 10:00:16 +00:00
#if ($sitetab)
#{
# (my $ref) = $sitetab->getAttribs({key => 'installdir'}, 'value');
2012-08-09 04:07:40 +00:00
my @ ents = xCAT::TableUtils - > get_site_attribute ( "installdir" ) ;
2012-05-21 10:00:16 +00:00
my $ site_ent = $ ents [ 0 ] ;
if ( defined ( $ site_ent ) )
2012-01-04 20:23:07 +00:00
{
2012-05-21 10:00:16 +00:00
$ installroot = $ site_ent ;
2012-01-04 20:23:07 +00:00
}
2012-05-21 10:00:16 +00:00
#( $ref) = $sitetab->getAttribs({key => 'tftpdir'}, 'value');
2012-08-09 04:07:40 +00:00
@ ents = xCAT::TableUtils - > get_site_attribute ( "tftpdir" ) ;
2012-05-21 10:00:16 +00:00
$ site_ent = $ ents [ 0 ] ;
if ( defined ( $ site_ent ) )
{
$ globaltftpdir = $ site_ent ;
}
#}
2012-01-04 20:23:07 +00:00
my $ node ;
my $ ostab = xCAT::Table - > new ( 'nodetype' ) ;
2013-01-10 13:56:49 +00:00
my % donetftp ;
2012-01-04 20:23:07 +00:00
my $ restab = xCAT::Table - > new ( 'noderes' ) ;
my $ bptab = xCAT::Table - > new ( 'bootparams' , - create = > 1 ) ;
my $ hmtab = xCAT::Table - > new ( 'nodehm' ) ;
my % osents = % { $ ostab - > getNodesAttribs ( \ @ nodes , [ 'profile' , 'os' , 'arch' , 'provmethod' ] ) } ;
my % rents =
% { $ restab - > getNodesAttribs ( \ @ nodes ,
2012-02-20 07:20:41 +00:00
[ 'xcatmaster' , 'nfsserver' , 'tftpdir' , 'primarynic' , 'installnic' ] ) } ;
2012-01-04 20:23:07 +00:00
my % hents =
% { $ hmtab - > getNodesAttribs ( \ @ nodes ,
[ 'serialport' , 'serialspeed' , 'serialflow' ] ) } ;
#my $addkcmdhash =
# $bptab->getNodesAttribs(\@nodes, ['addkcmdline']);
require xCAT::Template ;
2013-01-05 07:39:45 +00:00
# Warning message for nodeset <noderange> install/netboot/statelite
foreach my $ knode ( keys % osents )
{
my $ ent = $ osents { $ knode } - > [ 0 ] ;
if ( $ ent && $ ent - > { provmethod }
&& ( ( $ ent - > { provmethod } eq 'install' ) || ( $ ent - > { provmethod } eq 'netboot' ) || ( $ ent - > { provmethod } eq 'statelite' ) ) )
{
2013-01-23 07:52:19 +00:00
my @ ents = xCAT::TableUtils - > get_site_attribute ( "disablenodesetwarning" ) ;
my $ site_ent = $ ents [ 0 ] ;
if ( ! defined ( $ site_ent ) || ( $ site_ent =~ /no/i ) || ( $ site_ent =~ /0/ ) )
{
$ callback - > (
{
warning = > [ "The options \"install\", \"netboot\", and \"statelite\" have been deprecated. They should continue to work in this release, but have not been tested as carefully, and some new functions are not available with these options. For full function and support, use \"nodeset <noderange> osimage=<osimage_name>\" instead." ] ,
}
) ;
# Do not print this warning message multiple times
last ;
}
}
2013-01-05 07:39:45 +00:00
}
2012-01-04 20:23:07 +00:00
foreach $ node ( @ nodes )
{
my $ os ;
2012-02-15 21:04:42 +00:00
my $ tftpdir ;
2012-01-04 20:23:07 +00:00
my $ arch ;
my $ profile ;
my $ tmplfile ;
my $ pkgdir ;
2013-01-10 13:56:49 +00:00
my $ pkglistfile ;
my $ imagename ; # set it if running of 'nodeset osimage=xxx'
my $ platform ;
2012-02-20 07:20:41 +00:00
my $ xcatmaster ;
2012-06-25 07:19:41 +00:00
my $ partfile ;
2012-07-05 14:59:08 +00:00
my $ netdrivers ;
my $ driverupdatesrc ;
2012-02-20 07:20:41 +00:00
2012-02-24 21:12:51 +00:00
my $ ient = $ rents { $ node } - > [ 0 ] ;
2012-02-20 07:20:41 +00:00
if ( $ ient and $ ient - > { xcatmaster } )
{
$ xcatmaster = $ ient - > { xcatmaster } ;
} else {
$ xcatmaster = '!myipfn!' ;
}
2012-01-04 20:23:07 +00:00
my $ osinst ;
2012-02-15 21:04:42 +00:00
if ( $ rents { $ node } - > [ 0 ] and $ rents { $ node } - > [ 0 ] - > { tftpdir } ) {
$ tftpdir = $ rents { $ node } - > [ 0 ] - > { tftpdir } ;
} else {
$ tftpdir = $ globaltftpdir ;
}
2012-01-04 20:23:07 +00:00
my $ ent = $ osents { $ node } - > [ 0 ] ; #$ostab->getNodeAttribs($node, ['profile', 'os', 'arch']);
if ( $ ent and $ ent - > { provmethod } and ( $ ent - > { provmethod } ne 'install' ) and ( $ ent - > { provmethod } ne 'netboot' ) and ( $ ent - > { provmethod } ne 'statelite' ) ) {
$ imagename = $ ent - > { provmethod } ;
#print "imagename=$imagename\n";
if ( ! exists ( $ img_hash { $ imagename } ) ) {
if ( ! $ osimagetab ) {
$ osimagetab = xCAT::Table - > new ( 'osimage' , - create = > 1 ) ;
}
( my $ ref ) = $ osimagetab - > getAttribs ( { imagename = > $ imagename } , 'osvers' , 'osarch' , 'profile' , 'provmethod' ) ;
if ( $ ref ) {
$ img_hash { $ imagename } - > { osver } = $ ref - > { 'osvers' } ;
$ img_hash { $ imagename } - > { osarch } = $ ref - > { 'osarch' } ;
$ img_hash { $ imagename } - > { profile } = $ ref - > { 'profile' } ;
$ img_hash { $ imagename } - > { provmethod } = $ ref - > { 'provmethod' } ;
if ( ! $ linuximagetab ) {
$ linuximagetab = xCAT::Table - > new ( 'linuximage' , - create = > 1 ) ;
}
2012-10-16 05:58:29 +00:00
( my $ ref1 ) = $ linuximagetab - > getAttribs ( { imagename = > $ imagename } , 'template' , 'pkgdir' , 'pkglist' , 'partitionfile' , 'driverupdatesrc' , 'netdrivers' ) ;
2012-01-04 20:23:07 +00:00
if ( $ ref1 ) {
if ( $ ref1 - > { 'template' } ) {
$ img_hash { $ imagename } - > { template } = $ ref1 - > { 'template' } ;
}
if ( $ ref1 - > { 'pkgdir' } ) {
$ img_hash { $ imagename } - > { pkgdir } = $ ref1 - > { 'pkgdir' } ;
}
if ( $ ref1 - > { 'pkglist' } ) {
$ img_hash { $ imagename } - > { pkglist } = $ ref1 - > { 'pkglist' } ;
}
2012-10-16 05:58:29 +00:00
if ( $ ref1 - > { 'partitionfile' } ) {
$ img_hash { $ imagename } - > { partitionfile } = $ ref1 - > { 'partitionfile' } ;
}
2012-07-05 14:59:08 +00:00
if ( $ ref1 - > { 'driverupdatesrc' } ) {
$ img_hash { $ imagename } - > { driverupdatesrc } = $ ref1 - > { 'driverupdatesrc' } ;
}
if ( $ ref1 - > { 'netdrivers' } ) {
$ img_hash { $ imagename } - > { netdrivers } = $ ref1 - > { 'netdrivers' } ;
}
2012-01-04 20:23:07 +00:00
}
# if the install template wasn't found, then lets look for it in the default locations.
unless ( $ img_hash { $ imagename } - > { template } ) {
my $ pltfrm = xCAT_plugin::anaconda:: getplatform ( $ ref - > { 'osvers' } ) ;
my $ tmplfile = xCAT::SvrUtils:: get_tmpl_file_name ( "$installroot/custom/install/$pltfrm" ,
$ ref - > { 'profile' } , $ ref - > { 'osvers' } , $ ref - > { 'osarch' } , $ ref - > { 'osvers' } ) ;
if ( ! $ tmplfile ) { $ tmplfile = xCAT::SvrUtils:: get_tmpl_file_name ( "$::XCATROOT/share/xcat/install/$pltfrm" ,
$ ref - > { 'profile' } , $ ref - > { 'osvers' } , $ ref - > { 'osarch' } , $ ref - > { 'osvers' } ) ;
}
# if we managed to find it, put it in the hash:
if ( $ tmplfile ) {
$ img_hash { $ imagename } - > { template } = $ tmplfile ;
}
}
#if the install pkglist wasn't found, then lets look for it in the default locations
unless ( $ img_hash { $ imagename } - > { pkglist } ) {
my $ pltfrm = xCAT_plugin::anaconda:: getplatform ( $ ref - > { 'osvers' } ) ;
my $ pkglistfile = xCAT::SvrUtils:: get_pkglist_file_name ( "$installroot/custom/install/$pltfrm" ,
$ ref - > { 'profile' } , $ ref - > { 'osvers' } , $ ref - > { 'osarch' } , $ ref - > { 'osvers' } ) ;
if ( ! $ pkglistfile ) { $ pkglistfile = xCAT::SvrUtils:: get_pkglist_file_name ( "$::XCATROOT/share/xcat/install/$pltfrm" ,
$ ref - > { 'profile' } , $ ref - > { 'osvers' } , $ ref - > { 'osarch' } , $ ref - > { 'osvers' } ) ;
}
# if we managed to find it, put it in the hash:
if ( $ pkglistfile ) {
$ img_hash { $ imagename } - > { pkglist } = $ pkglistfile ;
}
}
} else {
$ callback - > (
{ error = > [ "The os image $imagename does not exists on the osimage table for $node" ] ,
errorcode = > [ 1 ] } ) ;
next ;
}
}
my $ ph = $ img_hash { $ imagename } ;
$ os = $ ph - > { osver } ;
$ arch = $ ph - > { osarch } ;
$ profile = $ ph - > { profile } ;
2013-01-10 13:56:49 +00:00
$ partfile = $ ph - > { partitionfile } ;
2012-01-04 20:23:07 +00:00
$ platform = xCAT_plugin::anaconda:: getplatform ( $ os ) ;
$ tmplfile = $ ph - > { template } ;
2013-01-10 13:56:49 +00:00
$ pkgdir = $ ph - > { pkgdir } ;
2012-01-04 20:23:07 +00:00
if ( ! $ pkgdir ) {
$ pkgdir = "$installroot/$os/$arch" ;
}
$ pkglistfile = $ ph - > { pkglist } ;
2012-07-05 14:59:08 +00:00
$ netdrivers = $ ph - > { netdrivers } ;
$ driverupdatesrc = $ ph - > { driverupdatesrc } ;
2012-01-04 20:23:07 +00:00
}
else {
$ os = $ ent - > { os } ;
$ arch = $ ent - > { arch } ;
$ profile = $ ent - > { profile } ;
$ platform = xCAT_plugin::anaconda:: getplatform ( $ os ) ;
my $ genos = $ os ;
$ genos =~ s/\..*// ;
if ( $ genos =~ /rh.*(\d+)\z/ )
{
unless ( - r "$installroot/custom/install/$platform/$profile.$genos.$arch.tmpl"
or - r "/install/custom/install/$platform/$profile.$genos.tmpl"
or - r "$::XCATROOT/share/xcat/install/$platform/$profile.$genos.$arch.tmpl"
or - r "$::XCATROOT/share/xcat/install/$platform/$profile.$genos.tmpl" )
{
$ genos = "rhel$1" ;
}
}
$ tmplfile = xCAT::SvrUtils:: get_tmpl_file_name ( "$installroot/custom/install/$platform" , $ profile , $ os , $ arch , $ genos ) ;
if ( ! $ tmplfile ) { $ tmplfile = xCAT::SvrUtils:: get_tmpl_file_name ( "$::XCATROOT/share/xcat/install/$platform" , $ profile , $ os , $ arch , $ genos ) ; }
$ pkglistfile = xCAT::SvrUtils:: get_pkglist_file_name ( "$installroot/custom/install/$platform" , $ profile , $ os , $ arch , $ genos ) ;
if ( ! $ pkglistfile ) { $ pkglistfile = xCAT::SvrUtils:: get_pkglist_file_name ( "$::XCATROOT/share/xcat/install/$platform" , $ profile , $ os , $ arch , $ genos ) ; }
$ pkgdir = "$installroot/$os/$arch" ;
2012-06-25 07:19:41 +00:00
#get the partition file from the linuximage table
my $ imgname = "$os-$arch-install-$profile" ;
if ( ! $ linuximagetab ) {
$ linuximagetab = xCAT::Table - > new ( 'linuximage' ) ;
}
if ( $ linuximagetab ) {
( my $ ref1 ) = $ linuximagetab - > getAttribs ( { imagename = > $ imgname } , 'partitionfile' ) ;
if ( $ ref1 and $ ref1 - > { 'partitionfile' } ) {
$ partfile = $ ref1 - > { 'partitionfile' } ;
}
2012-07-11 07:23:06 +00:00
}
#can not find the linux osiamge object, tell users to run "nodeset <nr> osimage=***"
else {
2012-06-25 07:19:41 +00:00
$ callback - > (
{ error = > [ qq{ Cannot find the linux image called "$imgname", maybe you need to use the "nodeset <nr> osimage=<your_image_name>" command to set the boot state } ] , errorcode = > [ 1 ] }
) ;
}
2012-01-04 20:23:07 +00:00
}
my @ missingparms ;
unless ( $ os ) {
if ( $ imagename ) { push @ missingparms , "osimage.osvers" ; }
else { push @ missingparms , "nodetype.os" ; }
}
unless ( $ arch ) {
if ( $ imagename ) { push @ missingparms , "osimage.osarch" ; }
else { push @ missingparms , "nodetype.arch" ; }
}
unless ( $ profile ) {
if ( $ imagename ) { push @ missingparms , "osimage.profile" ; }
else { push @ missingparms , "nodetype.profile" ; }
}
unless ( $ os and $ arch and $ profile )
{
$ callback - > (
{
error = > [ "Missing " . join ( ',' , @ missingparms ) . " for $node" ] ,
errorcode = > [ 1 ]
}
) ;
next ; #No profile
}
unless ( - r "$tmplfile" )
{
$ callback - > (
{
error = > [
"No $platform kickstart template exists for "
. $ profile
. " in directory $installroot/custom/install/$platform or $::XCATROOT/share/xcat/install/$platform"
] ,
errorcode = > [ 1 ]
}
) ;
next ;
}
#Call the Template class to do substitution to produce a kickstart file in the autoinst dir
my $ tmperr ;
if ( $ imagename ) {
$ tmperr = "Unable to find template file: $tmplfile" ;
} else {
$ tmperr = "Unable to find template in /install/custom/install/$platform or $::XCATROOT/share/xcat/install/$platform (for $profile/$os/$arch combination)" ;
}
if ( - r "$tmplfile" )
{
$ tmperr =
xCAT::Template - > subvars (
$ tmplfile ,
"/$installroot/autoinst/" . $ node ,
$ node ,
2012-06-25 07:19:41 +00:00
$ pkglistfile ,
2013-03-13 06:07:41 +00:00
$ pkgdir ,
2013-03-04 03:09:01 +00:00
$ platform ,
2013-05-31 07:51:08 +00:00
$ partfile ,
$ os
2012-01-04 20:23:07 +00:00
) ;
}
if ( $ tmperr )
{
$ callback - > (
{
node = >
[ { name = > [ $ node ] , error = > [ $ tmperr ] , errorcode = > [ 1 ] } ]
}
) ;
next ;
}
2012-12-21 06:15:02 +00:00
#To support multiple paths for osimage.pkgdir. We require the first value of osimage.pkgdir
# should be the os base pkgdir.
my @ srcdirs = split ( "," , $ pkgdir ) ;
$ pkgdir = $ srcdirs [ 0 ] ;
2012-01-04 20:23:07 +00:00
# create the node-specific post scripts
#mkpath "/install/postscripts/";
#xCAT::Postage->writescript($node,"/install/postscripts/".$node, "install", $callback);
my $ kernpath ;
my $ initrdpath ;
my $ maxmem ;
2013-01-10 13:56:49 +00:00
my $ esxi = 0 ;
2012-01-04 20:23:07 +00:00
if (
(
$ arch =~ /x86/ and
(
- r "$pkgdir/images/pxeboot/vmlinuz"
and $ kernpath = "$pkgdir/images/pxeboot/vmlinuz"
and - r "$pkgdir/images/pxeboot/initrd.img"
and $ initrdpath = "$pkgdir/images/pxeboot/initrd.img"
) or ( #Handle the case seen in VMWare 4.0 ESX media
#In VMWare 4.0 they dropped the pxe-optimized initrd
#leaving us no recourse but the rather large optical disk
#initrd, but perhaps we can mitigate with gPXE
- d "$pkgdir/VMware"
and - r "$pkgdir/isolinux/vmlinuz"
and $ kernpath = "$pkgdir/isolinux/vmlinuz"
and - r "$pkgdir/isolinux/initrd.img"
and $ initrdpath = "$pkgdir/isolinux/initrd.img"
and $ maxmem = "512M" #Have to give up linux room to make room for vmware hypervisor evidently
) or ( #Handle the case seen in VMware ESXi 4.1 media scripted installs.
- r "$pkgdir/mboot.c32"
and - r "$pkgdir/vmkboot.gz"
and - r "$pkgdir/vmkernel.gz"
and - r "$pkgdir/sys.vgz"
and - r "$pkgdir/cim.vgz"
and - r "$pkgdir/ienviron.vgz"
and - r "$pkgdir/install.vgz"
and $ esxi = 'true'
)
) or ( $ arch =~ /ppc/
and - r "$pkgdir/ppc/ppc64/vmlinuz"
and $ kernpath = "$pkgdir/ppc/ppc64/vmlinuz"
and ( ( - r "$pkgdir/ppc/ppc64/ramdisk.image.gz"
and $ initrdpath = "$pkgdir/ppc/ppc64/ramdisk.image.gz" )
or ( - r "$pkgdir/ppc/ppc64/initrd.img"
and $ initrdpath = "$pkgdir/ppc/ppc64/initrd.img" ) ) )
)
{
#TODO: driver slipstream, targetted for network.
2013-01-10 13:56:49 +00:00
# Copy the install resource to /tftpboot and check to only copy once
my $ docopy = 0 ;
my $ tftppath ;
my $ rtftppath ; # the relative tftp path without /tftpboot/
if ( $ imagename ) {
$ tftppath = "$tftpdir/xcat/osimage/$imagename" ;
$ rtftppath = "xcat/osimage/$imagename" ;
unless ( $ donetftp { $ imagename } ) {
$ docopy = 1 ;
$ donetftp { $ imagename } = 1 ;
}
} else {
$ tftppath = "/$tftpdir/xcat/$os/$arch/$profile" ;
$ rtftppath = "xcat/$os/$arch/$profile" ;
unless ( $ donetftp { "$os|$arch|$profile|$tftpdir" } ) {
$ docopy = 1 ;
$ donetftp { "$os|$arch|$profile|$tftpdir" } = 1 ;
}
}
if ( $ docopy ) {
mkpath ( "$tftppath" ) ;
2012-01-04 20:23:07 +00:00
if ( $ esxi ) {
2013-01-10 13:56:49 +00:00
copyesxiboot ( $ pkgdir , "$tftppath" , osver = > $ os ) ;
2012-01-04 20:23:07 +00:00
} else {
2012-07-05 14:59:08 +00:00
copy ( $ kernpath , "$tftppath" ) ;
copy ( $ initrdpath , "$tftppath/initrd.img" ) ;
& insert_dd ( $ callback , $ os , $ arch , "$tftppath/initrd.img" , $ driverupdatesrc , $ netdrivers ) ;
2012-01-04 20:23:07 +00:00
}
}
#We have a shot...
my $ ent = $ rents { $ node } - > [ 0 ] ;
# $restab->getNodeAttribs($node,
# ['nfsserver', 'primarynic', 'installnic']);
my $ sent = $ hents { $ node } - > [ 0 ] ;
# $hmtab->getNodeAttribs(
# $node,
# [
# 'serialport', 'serialspeed', 'serialflow'
# ]
# );
2012-02-20 07:20:41 +00:00
my $ instserver = $ xcatmaster ;
2012-01-04 20:23:07 +00:00
if ( $ ent and $ ent - > { nfsserver } ) {
$ instserver = $ ent - > { nfsserver } ;
}
2013-01-10 13:56:49 +00:00
2013-01-16 18:29:44 +00:00
my $ httpprefix = $ pkgdir ;
if ( $ installroot =~ /\/$/ ) {
$ httpprefix =~ s/^$installroot/\/install\// ;
} else {
$ httpprefix =~ s/^$installroot/\/install/ ;
}
2012-01-04 20:23:07 +00:00
my $ kcmdline =
2013-01-16 21:02:09 +00:00
"quiet repo=$httpmethod://$instserver:$httpport$httpprefix ks=$httpmethod://"
2012-06-19 20:17:42 +00:00
. $ instserver . ":" . $ httpport
2013-01-16 18:29:44 +00:00
. "/install/autoinst/"
2012-01-04 20:23:07 +00:00
. $ node ;
if ( $ maxmem ) {
$ kcmdline . = " mem=$maxmem" ;
}
my $ ksdev = "" ;
if ( $ ent - > { installnic } )
{
if ( $ ent - > { installnic } eq "mac" )
{
my $ mactab = xCAT::Table - > new ( "mac" ) ;
my $ macref = $ mactab - > getNodeAttribs ( $ node , [ 'mac' ] ) ;
$ ksdev = $ macref - > { mac } ;
}
else
{
$ ksdev = $ ent - > { installnic } ;
}
}
elsif ( $ ent - > { primarynic } )
{
if ( $ ent - > { primarynic } eq "mac" )
{
my $ mactab = xCAT::Table - > new ( "mac" ) ;
my $ macref = $ mactab - > getNodeAttribs ( $ node , [ 'mac' ] ) ;
$ ksdev = $ macref - > { mac } ;
}
else
{
$ ksdev = $ ent - > { primarynic } ;
}
}
else
{
$ ksdev = "bootif" ; #if not specified, fall back to bootif
}
if ( $ ksdev eq "" )
{
$ callback - > (
{
error = > [ "No MAC address defined for " . $ node ] ,
errorcode = > [ 1 ]
}
) ;
}
if ( $ esxi ) {
$ ksdev =~ s/eth/vmnic/g ;
}
$ kcmdline . = " ksdevice=" . $ ksdev ;
#TODO: dd=<url> for driver disks
if ( defined ( $ sent - > { serialport } ) )
{
unless ( $ sent - > { serialspeed } )
{
$ callback - > (
{
error = > [
"serialport defined, but no serialspeed for $node in nodehm table"
] ,
errorcode = > [ 1 ]
}
) ;
next ;
}
#go cmdline if serial console is requested, the shiny ansi is just impractical
$ kcmdline . =
2012-01-25 20:26:07 +00:00
" cmdline console=tty0 console=ttyS"
2012-01-04 20:23:07 +00:00
. $ sent - > { serialport } . ","
. $ sent - > { serialspeed } ;
if ( $ sent - > { serialflow } =~ /(hard|cts|ctsrts)/ )
{
$ kcmdline . = "n8r" ;
}
}
#$kcmdline .= " noipv6";
# add the addkcmdline attribute to the end
# of the command, if it exists
#my $addkcmd = $addkcmdhash->{$node}->[0];
# add the extra addkcmd command info, if in the table
#if ($addkcmd->{'addkcmdline'}) {
# $kcmdline .= " ";
# $kcmdline .= $addkcmd->{'addkcmdline'};
#}
my $ k ;
my $ i ;
if ( $ esxi ) {
2013-01-10 13:56:49 +00:00
$ k = "$rtftppath/mboot.c32" ;
2012-01-04 20:23:07 +00:00
$ i = "" ;
my @ addfiles = qw( vmkernel.gz sys.vgz cim.vgz ienviron.vgz install.vgz mod.tgz ) ;
2013-01-10 13:56:49 +00:00
$ kcmdline = "$rtftppath/vmkboot.gz " . $ kcmdline ;
2012-01-04 20:23:07 +00:00
foreach ( @ addfiles ) {
2013-01-10 13:56:49 +00:00
$ kcmdline . = " --- $rtftppath/$_" ;
2012-01-04 20:23:07 +00:00
}
} else {
2013-01-10 13:56:49 +00:00
$ k = "$rtftppath/vmlinuz" ;
$ i = "$rtftppath/initrd.img" ;
2012-01-04 20:23:07 +00:00
}
$ bptab - > setNodeAttribs (
$ node ,
{
kernel = > $ k ,
initrd = > $ i ,
kcmdline = > $ kcmdline
}
) ;
}
else
{
$ callback - > (
{
2013-01-10 13:56:49 +00:00
error = > [ "Install image not found in $pkgdir" ] ,
2012-01-04 20:23:07 +00:00
errorcode = > [ 1 ]
}
) ;
}
}
2012-08-09 04:07:40 +00:00
#my $rc = xCAT::TableUtils->create_postscripts_tar();
2012-01-04 20:23:07 +00:00
#if ($rc != 0)
#{
# xCAT::MsgUtils->message("S", "Error creating postscripts tar file.");
#}
}
2013-03-04 05:13:00 +00:00
sub mksysclone
{
my $ request = shift ;
my $ callback = shift ;
my $ doreq = shift ;
my @ nodes = @ { $ request - > { node } } ;
my $ linuximagetab ;
my $ osimagetab ;
my % img_hash = ( ) ;
my $ installroot ;
my $ globaltftpdir ;
$ installroot = "/install" ;
$ globaltftpdir = "/tftpboot" ;
my @ ents = xCAT::TableUtils - > get_site_attribute ( "installdir" ) ;
my $ site_ent = $ ents [ 0 ] ;
if ( defined ( $ site_ent ) )
{
$ installroot = $ site_ent ;
}
@ ents = xCAT::TableUtils - > get_site_attribute ( "tftpdir" ) ;
$ site_ent = $ ents [ 0 ] ;
if ( defined ( $ site_ent ) )
{
$ globaltftpdir = $ site_ent ;
}
my $ node ;
my $ ostab = xCAT::Table - > new ( 'nodetype' ) ;
my % donetftp ;
my $ restab = xCAT::Table - > new ( 'noderes' ) ;
my $ bptab = xCAT::Table - > new ( 'bootparams' , - create = > 1 ) ;
my $ hmtab = xCAT::Table - > new ( 'nodehm' ) ;
my % osents = % { $ ostab - > getNodesAttribs ( \ @ nodes , [ 'profile' , 'os' , 'arch' , 'provmethod' ] ) } ;
my % rents =
% { $ restab - > getNodesAttribs ( \ @ nodes ,
[ 'xcatmaster' , 'nfsserver' , 'tftpdir' , 'primarynic' , 'installnic' ] ) } ;
my % hents =
% { $ hmtab - > getNodesAttribs ( \ @ nodes ,
[ 'serialport' , 'serialspeed' , 'serialflow' ] ) } ;
2013-05-14 03:06:00 +00:00
my @ entries = xCAT::TableUtils - > get_site_attribute ( "xcatdport" ) ;
my $ port_entry = $ entries [ 0 ] ;
my $ xcatdport = "3001" ;
if ( defined ( $ port_entry ) ) {
$ xcatdport = $ port_entry ;
}
my @ entries = xCAT::TableUtils - > get_site_attribute ( "master" ) ;
my $ master_entry = $ entries [ 0 ] ;
2013-03-04 05:13:00 +00:00
require xCAT::Template ;
# Warning message for nodeset <noderange> install/netboot/statelite
foreach my $ knode ( keys % osents )
{
my $ ent = $ osents { $ knode } - > [ 0 ] ;
if ( $ ent && $ ent - > { provmethod }
&& ( ( $ ent - > { provmethod } eq 'install' ) || ( $ ent - > { provmethod } eq 'netboot' ) || ( $ ent - > { provmethod } eq 'statelite' ) ) )
{
my @ ents = xCAT::TableUtils - > get_site_attribute ( "disablenodesetwarning" ) ;
my $ site_ent = $ ents [ 0 ] ;
if ( ! defined ( $ site_ent ) || ( $ site_ent =~ /no/i ) || ( $ site_ent =~ /0/ ) )
{
$ callback - > (
{
warning = > [ "The options \"install\", \"netboot\", and \"statelite\" have been deprecated. They should continue to work in this release, but have not been tested as carefully, and some new functions are not available with these options. For full function and support, use \"nodeset <noderange> osimage=<osimage_name>\" instead." ] ,
}
) ;
# Do not print this warning message multiple times
last ;
}
}
}
# copy postscripts
2013-04-28 02:49:30 +00:00
my $ script1 = "configefi" ;
2013-03-04 05:13:00 +00:00
my $ script2 = "updatenetwork" ;
my $ pspath = "$installroot/sysclone/scripts/post-install/" ;
my $ clusterfile = "$installroot/sysclone/scripts/cluster.txt" ;
mkpath ( "$pspath" ) ;
copy ( "$installroot/postscripts/$script1" , "$pspath/15all.$script1" ) ;
copy ( "$installroot/postscripts/$script2" , "$pspath/16all.$script2" ) ;
copy ( "$installroot/postscripts/runxcatpost" , "$pspath/17all.runxcatpost" ) ;
unless ( - r "$pspath/10all.fix_swap_uuids" )
{
mkpath ( "$pspath" ) ;
copy ( "/var/lib/systemimager/scripts/post-install/10all.fix_swap_uuids" , "$pspath" ) ;
}
unless ( - r "$pspath/95all.monitord_rebooted" )
{
mkpath ( "$pspath" ) ;
copy ( "/var/lib/systemimager/scripts/post-install/95all.monitord_rebooted" , "$pspath" ) ;
}
# copy hosts
copy ( "/etc/hosts" , "$installroot/sysclone/scripts/" ) ;
foreach $ node ( @ nodes )
{
my $ os ;
my $ tftpdir ;
my $ arch ;
my $ profile ;
my $ tmplfile ;
my $ pkglistfile ;
my $ imagename ; # set it if running of 'nodeset osimage=xxx'
my $ platform ;
my $ xcatmaster ;
my $ instserver ;
my $ partfile ;
my $ netdrivers ;
my $ driverupdatesrc ;
my $ ient = $ rents { $ node } - > [ 0 ] ;
if ( $ ient and $ ient - > { xcatmaster } )
{
$ xcatmaster = $ ient - > { xcatmaster } ;
} else {
2013-05-14 03:06:00 +00:00
$ xcatmaster = $ master_entry ;
2013-03-04 05:13:00 +00:00
}
my $ osinst ;
if ( $ rents { $ node } - > [ 0 ] and $ rents { $ node } - > [ 0 ] - > { tftpdir } ) {
$ tftpdir = $ rents { $ node } - > [ 0 ] - > { tftpdir } ;
} else {
$ tftpdir = $ globaltftpdir ;
}
my $ ent = $ osents { $ node } - > [ 0 ] ; #$ostab->getNodeAttribs($node, ['profile', 'os', 'arch']);
if ( $ ent and $ ent - > { provmethod } and ( $ ent - > { provmethod } ne 'install' ) and ( $ ent - > { provmethod } ne 'netboot' ) and ( $ ent - > { provmethod } ne 'statelite' ) and ( $ ent - > { provmethod } ne 'sysclone' ) ) {
$ imagename = $ ent - > { provmethod } ;
#print "imagename=$imagename\n";
if ( ! exists ( $ img_hash { $ imagename } ) ) {
if ( ! $ osimagetab ) {
$ osimagetab = xCAT::Table - > new ( 'osimage' , - create = > 1 ) ;
}
( my $ ref ) = $ osimagetab - > getAttribs ( { imagename = > $ imagename } , 'osvers' , 'osarch' , 'profile' , 'provmethod' ) ;
if ( $ ref ) {
$ img_hash { $ imagename } - > { osver } = $ ref - > { 'osvers' } ;
$ img_hash { $ imagename } - > { osarch } = $ ref - > { 'osarch' } ;
$ img_hash { $ imagename } - > { profile } = $ ref - > { 'profile' } ;
$ img_hash { $ imagename } - > { provmethod } = $ ref - > { 'provmethod' } ; #sysclone
if ( ! $ linuximagetab ) {
$ linuximagetab = xCAT::Table - > new ( 'linuximage' , - create = > 1 ) ;
}
( my $ ref1 ) = $ linuximagetab - > getAttribs ( { imagename = > $ imagename } , 'template' , 'pkgdir' , 'pkglist' , 'partitionfile' , 'driverupdatesrc' , 'netdrivers' ) ;
if ( $ ref1 ) {
if ( $ ref1 - > { 'template' } ) {
$ img_hash { $ imagename } - > { template } = $ ref1 - > { 'template' } ;
}
if ( $ ref1 - > { 'pkgdir' } ) {
$ img_hash { $ imagename } - > { pkgdir } = $ ref1 - > { 'pkgdir' } ;
}
if ( $ ref1 - > { 'pkglist' } ) {
$ img_hash { $ imagename } - > { pkglist } = $ ref1 - > { 'pkglist' } ;
}
if ( $ ref1 - > { 'partitionfile' } ) {
$ img_hash { $ imagename } - > { partitionfile } = $ ref1 - > { 'partitionfile' } ;
}
if ( $ ref1 - > { 'driverupdatesrc' } ) {
$ img_hash { $ imagename } - > { driverupdatesrc } = $ ref1 - > { 'driverupdatesrc' } ;
}
if ( $ ref1 - > { 'netdrivers' } ) {
$ img_hash { $ imagename } - > { netdrivers } = $ ref1 - > { 'netdrivers' } ;
}
}
# template is meanless for sysclone, so comment it out.
# if the install template wasn't found, then lets look for it in the default locations.
# unless($img_hash{$imagename}->{template}){
# my $pltfrm=xCAT_plugin::anaconda::getplatform($ref->{'osvers'});
# my $tmplfile=xCAT::SvrUtils::get_tmpl_file_name("$installroot/custom/install/$pltfrm",
# $ref->{'profile'}, $ref->{'osvers'}, $ref->{'osarch'}, $ref->{'osvers'});
# if (! $tmplfile) { $tmplfile=xCAT::SvrUtils::get_tmpl_file_name("$::XCATROOT/share/xcat/install/$pltfrm",
# $ref->{'profile'}, $ref->{'osvers'}, $ref->{'osarch'}, $ref->{'osvers'});
# }
# # if we managed to find it, put it in the hash:
# if($tmplfile){
# $img_hash{$imagename}->{template}=$tmplfile;
# }
# }
#if the install pkglist wasn't found, then lets look for it in the default locations
unless ( $ img_hash { $ imagename } - > { pkglist } ) {
my $ pltfrm = xCAT_plugin::anaconda:: getplatform ( $ ref - > { 'osvers' } ) ;
my $ pkglistfile = xCAT::SvrUtils:: get_pkglist_file_name ( "$installroot/custom/install/$pltfrm" ,
$ ref - > { 'profile' } , $ ref - > { 'osvers' } , $ ref - > { 'osarch' } , $ ref - > { 'osvers' } ) ;
if ( ! $ pkglistfile ) { $ pkglistfile = xCAT::SvrUtils:: get_pkglist_file_name ( "$::XCATROOT/share/xcat/install/$pltfrm" ,
$ ref - > { 'profile' } , $ ref - > { 'osvers' } , $ ref - > { 'osarch' } , $ ref - > { 'osvers' } ) ;
}
# if we managed to find it, put it in the hash:
if ( $ pkglistfile ) {
$ img_hash { $ imagename } - > { pkglist } = $ pkglistfile ;
}
}
} else {
$ callback - > (
{ error = > [ "The os image $imagename does not exists on the osimage table for $node" ] ,
errorcode = > [ 1 ] } ) ;
next ;
}
}
my $ ph = $ img_hash { $ imagename } ;
$ os = $ ph - > { osver } ;
$ arch = $ ph - > { osarch } ;
$ profile = $ ph - > { profile } ;
$ partfile = $ ph - > { partitionfile } ;
$ platform = xCAT_plugin::anaconda:: getplatform ( $ os ) ;
#$tmplfile=$ph->{template};
$ pkglistfile = $ ph - > { pkglist } ;
$ netdrivers = $ ph - > { netdrivers } ;
$ driverupdatesrc = $ ph - > { driverupdatesrc } ;
}
else {
$ os = $ ent - > { os } ;
$ arch = $ ent - > { arch } ;
$ profile = $ ent - > { profile } ;
$ platform = xCAT_plugin::anaconda:: getplatform ( $ os ) ;
my $ genos = $ os ;
$ genos =~ s/\..*// ;
if ( $ genos =~ /rh.*(\d+)\z/ )
{
unless ( - r "$installroot/custom/install/$platform/$profile.$genos.$arch.tmpl"
or - r "/install/custom/install/$platform/$profile.$genos.tmpl"
or - r "$::XCATROOT/share/xcat/install/$platform/$profile.$genos.$arch.tmpl"
or - r "$::XCATROOT/share/xcat/install/$platform/$profile.$genos.tmpl" )
{
$ genos = "rhel$1" ;
}
}
# $tmplfile=xCAT::SvrUtils::get_tmpl_file_name("$installroot/custom/install/$platform", $profile, $os, $arch, $genos);
# if (! $tmplfile) { $tmplfile=xCAT::SvrUtils::get_tmpl_file_name("$::XCATROOT/share/xcat/install/$platform", $profile, $os, $arch, $genos); }
# $pkglistfile=xCAT::SvrUtils::get_pkglist_file_name("$installroot/custom/install/$platform", $profile, $os, $arch, $genos);
# if (! $pkglistfile) { $pkglistfile=xCAT::SvrUtils::get_pkglist_file_name("$::XCATROOT/share/xcat/install/$platform", $profile, $os, $arch, $genos); }
#get the partition file from the linuximage table
my $ imgname = "$os-$arch-install-$profile" ;
if ( ! $ linuximagetab ) {
$ linuximagetab = xCAT::Table - > new ( 'linuximage' ) ;
}
if ( $ linuximagetab ) {
( my $ ref1 ) = $ linuximagetab - > getAttribs ( { imagename = > $ imgname } , 'partitionfile' ) ;
if ( $ ref1 and $ ref1 - > { 'partitionfile' } ) {
$ partfile = $ ref1 - > { 'partitionfile' } ;
}
}
#can not find the linux osiamge object, tell users to run "nodeset <nr> osimage=***"
else {
$ callback - > (
{ error = > [ qq{ Cannot find the linux image called "$imgname", maybe you need to use the "nodeset <nr> osimage=<your_image_name>" command to set the boot state } ] , errorcode = > [ 1 ] }
) ;
}
}
my @ missingparms ;
unless ( $ os ) {
if ( $ imagename ) { push @ missingparms , "osimage.osvers" ; }
else { push @ missingparms , "nodetype.os" ; }
}
unless ( $ arch ) {
if ( $ imagename ) { push @ missingparms , "osimage.osarch" ; }
else { push @ missingparms , "nodetype.arch" ; }
}
# copy kernel and initrd from image dir to /tftpboot
my $ kernpath ;
my $ initrdpath ;
my $ ramdisk_size = 200000 ;
if (
2013-05-14 03:06:00 +00:00
- r "$tftpdir/xcat/genesis.kernel.$arch"
and $ kernpath = "$tftpdir/xcat/genesis.kernel.$arch"
and - r "$tftpdir/xcat/genesis.fs.$arch.lzma"
and $ initrdpath = "$tftpdir/xcat/genesis.fs.$arch.lzma"
2013-03-04 05:13:00 +00:00
)
{
#We have a shot...
my $ ent = $ rents { $ node } - > [ 0 ] ;
my $ sent = $ hents { $ node } - > [ 0 ] ;
my $ kcmdline =
"ramdisk_size=$ramdisk_size" ;
my $ ksdev = "" ;
if ( $ ent - > { installnic } )
{
if ( $ ent - > { installnic } eq "mac" )
{
my $ mactab = xCAT::Table - > new ( "mac" ) ;
my $ macref = $ mactab - > getNodeAttribs ( $ node , [ 'mac' ] ) ;
$ ksdev = $ macref - > { mac } ;
}
else
{
$ ksdev = $ ent - > { installnic } ;
}
}
elsif ( $ ent - > { primarynic } )
{
if ( $ ent - > { primarynic } eq "mac" )
{
my $ mactab = xCAT::Table - > new ( "mac" ) ;
my $ macref = $ mactab - > getNodeAttribs ( $ node , [ 'mac' ] ) ;
$ ksdev = $ macref - > { mac } ;
}
else
{
$ ksdev = $ ent - > { primarynic } ;
}
}
else
{
$ ksdev = "bootif" ; #if not specified, fall back to bootif
}
if ( $ ksdev eq "" )
{
$ callback - > (
{
error = > [ "No MAC address defined for " . $ node ] ,
errorcode = > [ 1 ]
}
) ;
}
$ kcmdline . = " ksdevice=" . $ ksdev ;
#TODO: dd=<url> for driver disks
if ( defined ( $ sent - > { serialport } ) )
{
unless ( $ sent - > { serialspeed } )
{
$ callback - > (
{
error = > [
"serialport defined, but no serialspeed for $node in nodehm table"
] ,
errorcode = > [ 1 ]
}
) ;
next ;
}
#go cmdline if serial console is requested, the shiny ansi is just impractical
$ kcmdline . =
" cmdline console=tty0 console=ttyS"
. $ sent - > { serialport } . ","
. $ sent - > { serialspeed } ;
if ( $ sent - > { serialflow } =~ /(hard|cts|ctsrts)/ )
{
$ kcmdline . = "n8r" ;
}
}
2013-05-14 03:06:00 +00:00
$ kcmdline . = " xcatd=$xcatmaster:$xcatdport SCRIPTNAME=$imagename" ;
2013-03-04 05:13:00 +00:00
#$kcmdline .= " noipv6";
# add the addkcmdline attribute to the end
# of the command, if it exists
#my $addkcmd = $addkcmdhash->{$node}->[0];
# add the extra addkcmd command info, if in the table
#if ($addkcmd->{'addkcmdline'}) {
# $kcmdline .= " ";
# $kcmdline .= $addkcmd->{'addkcmdline'};
#}
my $ k ;
my $ i ;
2013-05-14 03:06:00 +00:00
$ k = "xcat/genesis.kernel.$arch" ;
$ i = "xcat/genesis.fs.$arch.lzma" ;
2013-03-04 05:13:00 +00:00
$ bptab - > setNodeAttribs (
$ node ,
{
kernel = > $ k ,
initrd = > $ i ,
kcmdline = > $ kcmdline
}
) ;
}
else
{
$ callback - > (
{
2013-05-14 03:06:00 +00:00
error = > [ "Kernel and initrd not found in $tftpdir/xcat" ] ,
2013-03-04 05:13:00 +00:00
errorcode = > [ 1 ]
}
) ;
}
# assign nodes to an image
if ( - r "$clusterfile" )
{
my $ cmd = qq{ cat $clusterfile | grep "$node" } ;
my $ out = xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC == 0 )
{
my $ out = `sed -i /$node./d $clusterfile` ;
}
}
my $ cmd = qq{ echo "$node:compute:$imagename:" >> $clusterfile } ;
my $ out = xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
unless ( - r "$installroot/sysclone/images/$imagename/opt/xcat/xcatdsklspost" )
{
mkpath ( "$installroot/sysclone/images/$imagename/opt/xcat/" ) ;
copy ( "$installroot/postscripts/xcatdsklspost" , "$installroot/sysclone/images/$imagename/opt/xcat/" ) ;
}
}
2013-05-30 06:11:56 +00:00
# check systemimager-server-rsyncd to make sure it's running.
my $ out = xCAT::Utils - > runcmd ( "service systemimager-server-rsyncd status" , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) { # not running
my $ rc = xCAT::Utils - > startService ( "systemimager-server-rsyncd" ) ;
if ( $ rc != 0 ) {
return 1 ;
}
}
2013-03-04 05:13:00 +00:00
}
2012-01-04 20:23:07 +00:00
sub copycd
{
my $ request = shift ;
my $ callback = shift ;
my $ doreq = shift ;
my $ installroot = "/install" ;
my $ sitetab = xCAT::Table - > new ( 'site' ) ;
2012-01-13 09:38:47 +00:00
require xCAT::data::discinfo ;
2012-05-21 10:00:16 +00:00
#if ($sitetab)
#{
# (my $ref) = $sitetab->getAttribs({key => 'installdir'}, 'value');
2012-08-09 04:07:40 +00:00
my @ ents = xCAT::TableUtils - > get_site_attribute ( "installdir" ) ;
2012-05-21 10:00:16 +00:00
my $ site_ent = $ ents [ 0 ] ;
if ( defined ( $ site_ent ) )
2012-01-04 20:23:07 +00:00
{
2012-05-21 10:00:16 +00:00
$ installroot = $ site_ent ;
2012-01-04 20:23:07 +00:00
}
my $ distname ;
my $ arch ;
my $ path ;
2012-06-08 02:33:20 +00:00
my $ mntpath = undef ;
my $ inspection = undef ;
2012-11-08 07:02:56 +00:00
my $ noosimage = undef ;
2013-01-07 08:39:52 +00:00
my $ nonoverwrite = undef ;
2012-01-04 20:23:07 +00:00
@ ARGV = @ { $ request - > { arg } } ;
GetOptions (
'n=s' = > \ $ distname ,
'a=s' = > \ $ arch ,
2012-06-08 02:33:20 +00:00
'p=s' = > \ $ path ,
'm=s' = > \ $ mntpath ,
2012-11-08 07:02:56 +00:00
'i' = > \ $ inspection ,
'o' = > \ $ noosimage ,
2013-01-07 08:39:52 +00:00
'w' = > \ $ nonoverwrite ,
2012-01-04 20:23:07 +00:00
) ;
2012-06-08 02:33:20 +00:00
unless ( $ mntpath )
2012-01-04 20:23:07 +00:00
{
2012-06-08 02:33:20 +00:00
#this plugin needs $mntpath...
2012-01-04 20:23:07 +00:00
return ;
}
if ( $ distname
and $ distname !~ /^centos/
and $ distname !~ /^fedora/
and $ distname !~ /^SL/
2012-10-01 19:52:29 +00:00
and $ distname !~ /^ol/
2012-01-04 20:23:07 +00:00
and $ distname !~ /^rh/ )
{
#If they say to call it something unidentifiable, give up?
return ;
}
2012-06-08 02:33:20 +00:00
unless ( - r $ mntpath . "/.discinfo" )
2012-01-04 20:23:07 +00:00
{
return ;
}
my $ dinfo ;
2012-06-08 02:33:20 +00:00
open ( $ dinfo , $ mntpath . "/.discinfo" ) ;
2012-01-04 20:23:07 +00:00
my $ did = <$dinfo> ;
chomp ( $ did ) ;
my $ desc = <$dinfo> ;
chomp ( $ desc ) ;
my $ darch = <$dinfo> ;
chomp ( $ darch ) ;
2012-06-08 02:33:20 +00:00
my $ dno = <$dinfo> ;
chomp ( $ dno ) ;
2012-01-04 20:23:07 +00:00
if ( $ darch and $ darch =~ /i.86/ )
{
$ darch = "x86" ;
}
close ( $ dinfo ) ;
2012-01-13 09:38:47 +00:00
if ( $ xCAT:: data:: discinfo:: distnames { $ did } )
2012-01-04 20:23:07 +00:00
{
unless ( $ distname )
{
2012-01-13 09:38:47 +00:00
$ distname = $ xCAT:: data:: discinfo:: distnames { $ did } ;
2012-01-04 20:23:07 +00:00
}
}
2012-10-01 19:52:29 +00:00
elsif ( $ desc =~ /^Oracle Linux (\d)\.(\d)/ )
{
unless ( $ distname )
{
$ distname = "ol$1.$2" ;
}
}
2013-02-01 15:25:59 +00:00
elsif ( $ desc =~ /^Red Hat Enterprise Linux (\d)\.(\d)/ )
{
my $ edition ;
my $ version = "$1.$2" ;
if ( - d "$mntpath/Server" ) {
$ edition = "s" ;
} elsif ( - d "$mntpath/Client" ) {
$ edition = "c" ;
} elsif ( - d "$mntpath/Workstation" ) {
$ edition = "w" ;
} elsif ( - d "$mntpath/ComputeNode" ) {
$ edition = "cn" ;
}
unless ( $ distname )
{
$ distname = "rhel$edition$version" ;
}
}
2012-01-04 20:23:07 +00:00
elsif ( $ desc =~ /^Final$/ )
{
unless ( $ distname )
{
$ distname = "centos5" ;
}
}
elsif ( $ desc =~ /^Fedora 8$/ )
{
unless ( $ distname )
{
$ distname = "fedora8" ;
}
}
elsif ( $ desc =~ /^CentOS-4 .*/ )
{
unless ( $ distname )
{
$ distname = "centos4" ;
}
}
elsif ( $ desc =~ /^Red Hat Enterprise Linux Client 5$/ )
{
unless ( $ distname )
{
$ distname = "rhelc5" ;
}
}
elsif ( $ desc =~ /^Red Hat Enterprise Linux Server 5$/ )
{
unless ( $ distname )
{
$ distname = "rhels5" ;
}
}
elsif ( $ desc =~ /^LTS$/ )
{
unless ( $ distname )
{
$ distname = "SL5" ;
}
}
unless ( $ distname )
{
return ; #Do nothing, not ours..
}
if ( $ darch )
{
unless ( $ arch )
{
$ arch = $ darch ;
}
if ( $ arch and $ arch ne $ darch )
{
$ callback - > (
{
error = >
"Requested distribution architecture $arch, but media is $darch"
}
) ;
return ;
}
if ( $ arch =~ /ppc/ ) { $ arch = "ppc64" }
}
2012-06-08 02:33:20 +00:00
if ( $ inspection )
{
$ callback - > (
{
info = >
"DISTNAME:$distname\n" . "ARCH:$arch\n" . "DISCNO:$dno\n"
}
) ;
return ;
}
2012-01-04 20:23:07 +00:00
% { $ request } = ( ) ; #clear request we've got it.
2013-04-02 19:20:09 +00:00
my $ disccopiedin = 0 ;
my $ osdistroname = $ distname . "-" . $ arch ;
2012-01-04 20:23:07 +00:00
2012-06-08 02:33:20 +00:00
my $ defaultpath = "$installroot/$distname/$arch" ;
unless ( $ path )
{
$ path = $ defaultpath ;
}
2013-04-02 19:20:09 +00:00
if ( $ ::XCATSITEVALS { osimagerequired } ) {
my ( $ nohaveimages , $ errstr ) = xCAT::SvrUtils - > update_tables_with_templates ( $ distname , $ arch , $ path , $ osdistroname , checkonly = > 1 ) ;
if ( $ nohaveimages ) {
2013-04-03 20:56:11 +00:00
$ callback - > ( { error = > "No Templates found to support $distname($arch)" , errorcode = > 2 } ) ;
2013-04-02 19:20:09 +00:00
return ;
}
}
2012-06-08 02:33:20 +00:00
2013-01-07 08:39:52 +00:00
#tranverse the directory structure of the os media and get the fingerprint
my @ filelist = ( ) ;
find (
{
"wanted" = > sub { s/$mntpath/\./ ; push ( @ filelist , $ _ ) ; } ,
"no_chdir" = > 1 ,
"follow" = > 0 ,
} ,
$ mntpath
) ;
my @ sortedfilelist = sort @ filelist ;
my $ fingerprint = md5_hex ( join ( "" , @ sortedfilelist ) ) ;
#check whether the os media has already been copied in
my $ disccopiedin = 0 ;
my $ osdistroname = $ distname . "-" . $ arch ;
my $ tabosdistro = xCAT::Table - > new ( 'osdistro' , - create = > 1 ) ;
if ( $ tabosdistro )
{
my % keyhash = ( ) ;
$ keyhash { osdistroname } = $ osdistroname ;
my $ ref = undef ;
$ ref = $ tabosdistro - > getAttribs ( \ % keyhash , 'dirpaths' ) ;
if ( $ ref and $ ref - > { dirpaths } )
{
my @ dirpaths = split ( ',' , $ ref - > { dirpaths } ) ;
foreach ( @ dirpaths )
{
if ( 0 == system ( "grep -E " . "\"\\<$fingerprint\\>\"" . " $_" . "/.fingerprint" ) )
{
$ disccopiedin = 1 ;
if ( $ nonoverwrite )
{
$ callback - > (
{
info = >
[ "The disc iso has already been copied in!" ] }
) ;
$ tabosdistro - > close ( ) ;
return ;
}
last ;
}
}
}
}
$ tabosdistro - > close ( ) ;
2012-06-08 02:33:20 +00:00
$ callback - > ( { data = > "Copying media to $path" } ) ;
2012-01-04 20:23:07 +00:00
my $ omask = umask 0022 ;
2012-06-08 02:33:20 +00:00
if ( - l $ path )
{
unlink ( $ path ) ;
}
mkpath ( "$path" ) ;
2012-01-04 20:23:07 +00:00
umask $ omask ;
2012-06-08 02:33:20 +00:00
2012-01-04 20:23:07 +00:00
my $ rc ;
my $ reaped = 0 ;
$ SIG { INT } = $ SIG { TERM } = sub {
foreach ( @ cpiopid ) {
kill 2 , $ _ ;
}
2012-10-16 11:22:53 +00:00
if ( $ mntpath ) {
2012-01-04 20:23:07 +00:00
chdir ( "/" ) ;
2012-10-16 11:22:53 +00:00
system ( "umount $mntpath" ) ;
2012-01-04 20:23:07 +00:00
}
} ;
2013-01-07 08:39:52 +00:00
2012-01-04 20:23:07 +00:00
my $ KID ;
2012-06-08 02:33:20 +00:00
chdir $ mntpath ;
2013-01-07 08:39:52 +00:00
my $ numFiles = scalar ( @ sortedfilelist ) ;
2012-01-04 20:23:07 +00:00
my $ child = open ( $ KID , "|-" ) ;
unless ( defined $ child )
{
$ callback - > ( { error = > "Media copy operation fork failure" } ) ;
return ;
}
if ( $ child )
{
push @ cpiopid , $ child ;
2013-01-07 08:39:52 +00:00
chdir ( "/" ) ;
for ( @ sortedfilelist )
2012-01-04 20:23:07 +00:00
{
2013-01-07 08:39:52 +00:00
print $ KID $ _ . "\n" ;
2012-01-04 20:23:07 +00:00
}
close ( $ KID ) ;
$ rc = $? ;
}
else
{
nice 10 ;
2012-06-08 02:33:20 +00:00
my $ c = "nice -n 20 cpio -vdump $path" ;
2013-01-07 08:39:52 +00:00
my $ k2 = open ( PIPE , "$c 2>&1 |" ) || exit ( 1 ) ;
2012-01-04 20:23:07 +00:00
push @ cpiopid , $ k2 ;
my $ copied = 0 ;
my ( $ percent , $ fout ) ;
while ( <PIPE> ) {
next if /^cpio:/ ;
$ percent = $ copied / $ numFiles ;
$ fout = sprintf "%0.2f%%" , $ percent * 100 ;
$ callback - > ( { sinfo = > "$fout" } ) ;
+ + $ copied ;
}
2013-01-07 08:39:52 +00:00
if ( $ copied == $ numFiles )
{
#media copy success
exit ( 0 ) ;
}
else
{
#media copy failed
exit ( 1 ) ;
}
}
2012-01-04 20:23:07 +00:00
#my $rc = system("cd $path; find . | nice -n 20 cpio -dump $installroot/$distname/$arch");
#my $rc = system("cd $path;rsync -a . $installroot/$distname/$arch/");
2012-06-08 02:33:20 +00:00
chmod 0755 , "$path" ;
2013-01-07 08:39:52 +00:00
#append the fingerprint to the .fingerprint file to indicate that the os media has been copied in
unless ( $ disccopiedin )
{
my $ ret = open ( my $ fpd , ">>" , "$path/.fingerprint" ) ;
if ( $ ret ) {
print $ fpd "$fingerprint," ;
close ( $ fpd ) ;
}
}
2012-06-08 02:33:20 +00:00
unless ( $ path =~ /^($defaultpath)/ )
{
2012-06-08 08:45:22 +00:00
mkpath ( $ defaultpath ) ;
2012-06-08 02:33:20 +00:00
if ( - d $ defaultpath )
{
rmtree ( $ defaultpath ) ;
}
else
{
unlink ( $ defaultpath ) ;
}
my $ hassymlink = eval { symlink ( "" , "" ) ; 1 } ;
if ( $ hassymlink ) {
symlink ( $ path , $ defaultpath ) ;
} else
{
link ( $ path , $ defaultpath ) ;
}
}
2012-01-04 20:23:07 +00:00
require xCAT::Yum ;
2013-01-07 08:39:52 +00:00
xCAT::Yum - > localize_yumrepo ( $ installroot , $ distname , $ arch ) ;
2012-01-04 20:23:07 +00:00
2013-01-07 08:39:52 +00:00
if ( $ rc != 0 )
2012-01-04 20:23:07 +00:00
{
$ callback - > ( { error = > "Media copy operation failed, status $rc" } ) ;
}
else
{
$ callback - > ( { data = > "Media copy operation successful" } ) ;
2012-08-30 09:20:34 +00:00
my @ ret = xCAT::SvrUtils - > update_osdistro_table ( $ distname , $ arch , $ path , $ osdistroname ) ;
if ( $ ret [ 0 ] != 0 ) {
$ callback - > ( { data = > "Error when updating the osdistro tables: " . $ ret [ 1 ] } ) ;
}
2012-11-08 07:02:56 +00:00
unless ( $ noosimage ) {
my @ ret = xCAT::SvrUtils - > update_tables_with_templates ( $ distname , $ arch , $ path , $ osdistroname ) ;
if ( $ ret [ 0 ] != 0 ) {
$ callback - > ( { data = > "Error when updating the osimage tables: " . $ ret [ 1 ] } ) ;
}
2012-08-30 09:20:34 +00:00
2012-11-08 07:02:56 +00:00
#hiding the messages about this not being found, since it may be intentional
2013-03-30 07:55:41 +00:00
my @ ret = xCAT::SvrUtils - > update_tables_with_mgt_image ( $ distname , $ arch , $ path , $ osdistroname ) ;
2012-11-08 07:02:56 +00:00
my @ ret = xCAT::SvrUtils - > update_tables_with_diskless_image ( $ distname , $ arch , undef , "netboot" , $ path , $ osdistroname ) ;
#if ($ret[0] != 0) {
#$callback->({data => "Error when updating the osimage tables for stateless: " . $ret[1]});
#}
my @ ret = xCAT::SvrUtils - > update_tables_with_diskless_image ( $ distname , $ arch , undef , "statelite" , $ path , $ osdistroname ) ;
#if ($ret[0] != 0) {
#$callback->({data => "Error when updating the osimage tables for statelite: " . $ret[1]});
#}
2012-01-04 20:23:07 +00:00
}
}
}
sub getplatform {
my $ os = shift ;
my $ platform ;
if ( $ os =~ /rh.*/ )
{
$ platform = "rh" ;
}
elsif ( $ os =~ /centos.*/ )
{
$ platform = "centos" ;
}
elsif ( $ os =~ /fedora.*/ )
{
$ platform = "fedora" ;
}
2012-10-22 15:44:32 +00:00
elsif ( $ os =~ /esxi.*/ )
{
$ platform = "esxi" ;
}
2012-01-04 20:23:07 +00:00
elsif ( $ os =~ /esx.*/ )
{
$ platform = "esx" ;
}
elsif ( $ os =~ /SL.*/ )
{
$ platform = "SL" ;
}
2012-10-01 19:52:29 +00:00
elsif ( $ os =~ /ol.*/ )
{
$ platform = "ol" ;
}
2012-01-04 20:23:07 +00:00
return $ platform ;
}
sub copyesxiboot {
my $ srcdir = shift ;
my $ targetdir = shift ;
2012-10-22 20:09:14 +00:00
my % args = @ _ ;
my $ os = 'esxi' ;
if ( $ args { osver } ) { $ os = $ args { osver } }
2012-01-04 20:23:07 +00:00
# this just does the same thing that the stateless version does.
unless ( - f "$targetdir/mod.tgz" ) {
2012-10-22 15:21:31 +00:00
require xCAT_plugin::esx ;
2012-10-22 20:09:14 +00:00
xCAT_plugin::esx:: makecustomizedmod ( $ os , $ targetdir ) ;
2012-01-04 20:23:07 +00:00
}
my @ files = qw( mboot.c32 vmkboot.gz vmkernel.gz sys.vgz cim.vgz ienviron.vgz install.vgz ) ;
foreach my $ f ( @ files ) {
copy ( "$srcdir/$f" , "$targetdir" ) ;
}
}
2012-07-05 14:59:08 +00:00
# callback subroutine for 'find' command to return the path
my $ driver_name ;
my $ real_path ;
sub get_path ()
{
if ( $ File:: Find:: name =~ /\/$driver_name/ ) {
$ real_path = $ File:: Find:: name ;
}
}
# callback subroutine for 'find' command to return the path for all the matches
my @ all_real_path ;
sub get_all_path ()
{
if ( $ File:: Find:: name =~ /\/$driver_name/ ) {
push @ all_real_path , $ File:: Find:: name ;
}
}
# Get the driver disk or driver rpm from the osimage.driverupdatesrc
# The valid value: dud:/install/dud/dd.img,rpm:/install/rpm/d.rpm, if missing the tag: 'dud'/'rpm'
# the 'rpm' is default.
#
# If cannot find the driver disk from osimage.driverupdatesrc, will try to search driver disk
# from /install/driverdisk/<os>/<arch>
#
# For driver rpm, the driver list will be gotten from osimage.netdrivers. If not set, copy all the drivers from driver
# rpm to the initrd.
#
2012-01-04 20:23:07 +00:00
sub insert_dd {
my $ callback = shift ;
my $ os = shift ;
my $ arch = shift ;
my $ img = shift ;
2012-07-05 14:59:08 +00:00
my $ driverupdatesrc = shift ;
my $ drivers = shift ;
2012-01-04 20:23:07 +00:00
2012-08-09 04:07:40 +00:00
my $ install_dir = xCAT::TableUtils - > getInstallDir ( ) ;
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
my $ cmd ;
my @ inserted_dd = ( ) ;
my @ dd_drivers = ( ) ;
my @ dd_list ;
my @ rpm_list ;
my @ driver_list ;
2012-10-16 05:58:29 +00:00
my $ Injectalldriver ;
2012-07-05 14:59:08 +00:00
my @ rpm_drivers ;
# Parse the parameters to the the source of Driver update disk and Driver rpm, and driver list as well
if ( $ driverupdatesrc ) {
my @ srcs = split ( ',' , $ driverupdatesrc ) ;
foreach my $ src ( @ srcs ) {
if ( $ src =~ /dud:(.*)/i ) {
push @ dd_list , $ 1 ;
} elsif ( $ src =~ /rpm:(.*)/i ) {
push @ rpm_list , $ 1 ;
} else {
push @ rpm_list , $ src ;
}
}
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
if ( ! @ dd_list ) {
# get Driver update disk from the default path if not specified in osimage
# check the Driver Update Disk images, it can be .img or .iso
if ( - d "$install_dir/driverdisk/$os/$arch" ) {
$ cmd = "find $install_dir/driverdisk/$os/$arch -type f" ;
@ dd_list = xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
}
2012-02-24 21:12:51 +00:00
}
2012-07-05 14:59:08 +00:00
foreach ( split /,/ , $ drivers ) {
2012-10-16 05:58:29 +00:00
if ( /^allupdate$/ ) {
$ Injectalldriver = 1 ;
next ;
}
2012-07-05 14:59:08 +00:00
unless ( /\.ko$/ ) {
s/$/.ko/ ;
}
push @ driver_list , $ _ ;
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
chomp ( @ dd_list ) ;
chomp ( @ rpm_list ) ;
2012-10-16 05:58:29 +00:00
unless ( @ dd_list || ( @ rpm_list && ( $ Injectalldriver || @ driver_list ) ) ) {
return ( ) ;
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
# Create the tmp dir for dd hack
my $ dd_dir = mkdtemp ( "/tmp/ddtmpXXXXXXX" ) ;
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# regenerate the original initrd for non dracut or need to add the drivers from rpm packages
# dracut + drvier rpm
# !dracut + driver rpm
# !dracut + driver disk
2012-10-16 05:58:29 +00:00
if ( ! <$install_dir/$os/$arch/Packages/dracut*> || ( @ rpm_list && ( $ Injectalldriver || @ driver_list ) ) ) {
2012-07-05 14:59:08 +00:00
mkpath "$dd_dir/initrd_img" ; # The dir for the new initrd
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# unzip the initrd image
2012-11-28 08:59:02 +00:00
$ cmd = "file $img" ;
my $ initrdfmt ;
my @ format = xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Could not get the format of the initrd." ;
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
return ( ) ;
}
if ( grep ( /gzip compressed data/ , @ format ) ) {
$ initrdfmt = "gzip" ;
} elsif ( grep ( /LZMA compressed data/ , @ format ) ) {
$ initrdfmt = "lzma" ;
} else {
my $ rsp ;
push @ { $ rsp - > { data } } , "Could not handle the format of the initrd." ;
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
return ( ) ;
}
if ( $ initrdfmt eq "gzip" ) {
$ cmd = "gunzip -c $img > $dd_dir/initrd" ;
} elsif ( $ initrdfmt eq "lzma" ) {
if ( ! - x "/usr/bin/lzma" ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "The format of initrd for the target node is \'lzma\', but this management node has not lzma command." ;
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
return ( ) ;
}
$ cmd = "xzcat $img > $dd_dir/initrd" ;
}
2012-07-05 14:59:08 +00:00
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update disk failed. Could not gunzip the initial initrd." ;
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
2012-10-16 05:58:29 +00:00
return ( ) ;
2012-07-05 14:59:08 +00:00
}
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# Extract the files from original initrd
$ cmd = "cd $dd_dir/initrd_img; cpio -id --quiet < ../initrd" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update disk failed. Could not extract files from the initial initrd." ;
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
2012-10-16 05:58:29 +00:00
return ( ) ;
2012-01-04 20:23:07 +00:00
}
2012-10-16 05:58:29 +00:00
if ( @ rpm_list && ( $ Injectalldriver || @ driver_list ) ) {
2012-07-05 14:59:08 +00:00
# Extract the files from rpm to the tmp dir
mkpath "$dd_dir/rpm" ;
foreach my $ rpm ( @ rpm_list ) {
if ( - r $ rpm ) {
$ cmd = "cd $dd_dir/rpm; rpm2cpio $rpm | cpio -idum" ;
2012-11-28 08:59:02 +00:00
#$cmd = "rpm -i --quiet --nodeps --force --ignorearch --ignoreos --nosignature --root $dd_dir/rpm $rpm";
2012-07-05 14:59:08 +00:00
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not extract files from the rpm $rpm." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
} else {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not read the rpm $rpm." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
2012-01-04 20:23:07 +00:00
}
2012-11-28 08:59:02 +00:00
# To skip the conflict of files that some rpm uses the xxx.ko.new as the name of the driver
# Change it back to xxx.ko here
$ driver_name = "\*ko.new" ;
@ all_real_path = ( ) ;
find ( \ & get_all_path , <$dd_dir/rpm/*> ) ;
foreach my $ file ( @ all_real_path ) {
print "$file\n" ;
my $ newname = $ file ;
$ newname =~ s/\.new$// ;
$ cmd = "mv -f $file $newname" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not move $file." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
}
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
# The rh6 has different initrd format with old version (rh 5.x)
# The new format of initrd is made by dracut, it has the /lib/modules/<kernel>
# directory like the root image
# If the os has dracut rpm packet, then copy the drivers to the /lib/modules/<kernel>
# and recreate the dependency by the depmod command
if ( <$install_dir/$os/$arch/Packages/dracut*> ) { #rh6, fedora13 ...
# For dracut mode, only copy the drivers from rpm packages to the /lib/modules/<kernel>
# The driver disk will be handled that append the whole disk to the orignial initrd
2012-10-16 05:58:29 +00:00
if ( @ rpm_list && ( $ Injectalldriver || @ driver_list ) ) {
2012-07-05 14:59:08 +00:00
# Copy the firmware to the rootimage
if ( - d "$dd_dir/rpm/lib/firmware" ) {
if ( ! - d "$dd_dir/initrd_img/lib" ) {
mkpath "$dd_dir/initrd_img/lib" ;
}
$ cmd = "cp -rf $dd_dir/rpm/lib/firmware $dd_dir/initrd_img/lib" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not copy firmware to the initrd." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
}
# Copy the drivers to the initrd
# Figure out the kernel version
my @ kernelpaths = <$dd_dir/initrd_img/lib/modules/*> ;
my @ kernelvers ;
foreach ( @ kernelpaths ) {
if ( basename ( $ _ ) =~ /^[\d\.]+/ ) {
push @ kernelvers , basename ( $ _ ) ;
}
}
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
foreach my $ kernelver ( @ kernelvers ) {
if ( @ driver_list ) {
foreach my $ driver ( @ driver_list ) {
$ driver_name = $ driver ;
$ real_path = "" ;
find ( \ & get_path , <$dd_dir/rpm/lib/modules/$kernelver/*> ) ;
if ( $ real_path && $ real_path =~ m !$dd_dir/rpm(/lib/modules/$kernelver/.*?)[^\/]*$! ) {
if ( ! - d "$dd_dir/initrd_img$1" ) {
mkpath "$dd_dir/initrd_img$1" ;
}
$ cmd = "cp -rf $real_path $dd_dir/initrd_img$1" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not copy driver $driver to the initrd." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
} else {
push @ rpm_drivers , $ driver ;
}
}
}
} else {
# copy all the drviers to the rootimage
if ( - d "$dd_dir/rpm/lib/modules/$kernelver" ) {
$ cmd = "cp -rf $dd_dir/rpm/lib/modules/$kernelver $dd_dir/initrd_img/lib/modules/" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not copy /lib/modules/$kernelver to the initrd." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
} else {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not find /lib/modules/$kernelver from the driver rpms." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
}
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# regenerate the modules dependency
foreach my $ kernelver ( @ kernelvers ) {
$ cmd = "depmod -b $dd_dir/initrd_img $kernelver" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not generate the depdency for the drivers in the initrd." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
}
}
}
} else { # non dracut mode, for rh5, fedora12 ...
# For non-dracut mode, the drviers need to be merged into the initrd with the specific format
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# Create directory for the driver modules hack
mkpath "$dd_dir/modules" ;
# Extract files from the modules.cgz of initrd
$ cmd = "cd $dd_dir/modules; gunzip -c $dd_dir/initrd_img/modules/modules.cgz | cpio -id" ;
2012-01-04 20:23:07 +00:00
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
2012-07-05 14:59:08 +00:00
push @ { $ rsp - > { data } } , "Handle the driver update disk failed. Could not gunzip modules.cgz from the initial initrd." ;
2012-01-04 20:23:07 +00:00
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
2012-10-16 05:58:29 +00:00
return ( ) ;
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
my @ modinfo = ( ) ;
foreach my $ dd ( @ dd_list ) {
mkpath "$dd_dir/mnt" ;
mkpath "$dd_dir/dd_modules" ;
$ cmd = "mount -o loop $dd $dd_dir/mnt" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update disk failed. Could not mount the driver update disk." ;
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
2012-10-16 05:58:29 +00:00
return ( ) ;
2012-07-05 14:59:08 +00:00
}
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
$ cmd = "cd $dd_dir/dd_modules; gunzip -c $dd_dir/mnt/modules.cgz | cpio -id" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update disk failed. Could not gunzip the modules.cgz from the driver update disk." ;
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
system ( "umount -f $dd_dir/mnt" ) ;
2012-10-16 05:58:29 +00:00
return ( ) ;
2012-07-05 14:59:08 +00:00
}
# Copy all the driver files out
$ cmd = "cp -rf $dd_dir/dd_modules/* $dd_dir/modules" ;
2012-01-04 20:23:07 +00:00
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
2012-07-05 14:59:08 +00:00
# Copy the firmware into the initrd
mkpath "$dd_dir/initrd_img/firmware" ;
$ cmd = "cp -rf $dd_dir/dd_modules/firmware/* $dd_dir/initrd_img/firmware" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
my $ drivername ;
# Get the entries from modinfo
open ( DDMODINFO , "<" , "$dd_dir/mnt/modinfo" ) ;
while ( <DDMODINFO> ) {
if ( $ _ =~ /^Version/ ) { next ; }
if ( $ _ =~ /^(\S+)/ ) {
push @ dd_drivers , $ 1 ;
$ drivername = $ 1 ;
}
push @ modinfo , $ _ ;
}
close ( DDMODINFO ) ;
# Append the modules.alias
if ( - r "$dd_dir/mnt/modules.alias" ) {
$ cmd = "cat $dd_dir/mnt/modules.alias >> $dd_dir/initrd_img/modules/modules.alias" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
}
# Append the modules.dep
my $ depfile ;
my $ target ;
open ( $ target , ">>" , "$dd_dir/initrd_img/modules/modules.dep" ) ;
open ( $ depfile , "<" , "$dd_dir/mnt/modules.dep" ) ;
my $ curline ;
while ( $ curline = <$depfile> ) {
if ( $ curline !~ /:/ ) { #missing the rather important first half of the equation here....
$ curline = $ drivername . ": " . $ curline ;
}
print $ target $ curline ;
}
close ( $ target ) ;
close ( $ depfile ) ;
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# Append the pcitable
if ( - r "$dd_dir/mnt/pcitable" ) {
$ cmd = "cat $dd_dir/mnt/pcitable >> $dd_dir/initrd_img/modules/pcitable" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
}
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
if ( - r "$dd_dir/mnt/modules.pcimap" ) {
$ cmd = "cat $dd_dir/mnt/modules.pcimap >> $dd_dir/initrd_img/modules/modules.pcimap" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
$ cmd = "umount -f $dd_dir/mnt" ;
2012-01-04 20:23:07 +00:00
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
2012-07-05 14:59:08 +00:00
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update disk failed. Could not unmount the driver update disk." ;
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
system ( "umount -f $dd_dir/mnt" ) ;
2012-10-16 05:58:29 +00:00
return ( ) ;
2012-07-05 14:59:08 +00:00
}
# Clean the env
rmtree "$dd_dir/mnt" ;
rmtree "$dd_dir/dd_modules" ;
push @ inserted_dd , $ dd ;
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
# Merge the drviers from rpm packages to the initrd
2012-10-16 05:58:29 +00:00
if ( @ rpm_list && ( $ Injectalldriver || @ driver_list ) ) {
2012-07-05 14:59:08 +00:00
# Copy the firmware to the rootimage
if ( - d "$dd_dir/rpm/lib/firmware" ) {
if ( ! - d "$dd_dir/initrd_img/lib" ) {
mkpath "$dd_dir/initrd_img/lib" ;
}
$ cmd = "cp -rf $dd_dir/rpm/lib/firmware $dd_dir/initrd_img" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not copy firmware to the initrd." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
}
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# Copy the drivers to the initrd
# Figure out the kernel version
my @ kernelpaths = <$dd_dir/modules/*> ;
my @ kernelvers ;
foreach ( @ kernelpaths ) {
push @ kernelvers , basename ( $ _ ) ;
}
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
foreach my $ kernelver ( @ kernelvers ) {
# find the $kernelver/$arch dir in the $dd_dir/modules
my $ arch4modules ;
foreach ( <$dd_dir/modules/$kernelver/*> ) {
if ( basename ( $ _ ) =~ $ arch ) {
$ arch4modules = basename ( $ _ ) ;
}
}
if ( ! $ arch4modules ) {
$ arch4modules = basename ( <$dd_dir/modules/$kernelver/*> ) ;
}
if ( ! - d "$dd_dir/modules/$kernelver/$arch4modules/" ) {
next ;
}
if ( @ driver_list ) {
# copy all the specific drviers to the initrd
foreach my $ driver ( @ driver_list ) {
$ driver_name = $ driver ;
$ real_path = "" ;
find ( \ & get_path , <$dd_dir/rpm/lib/modules/$kernelver/*> ) ;
if ( $ real_path ) {
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
$ cmd = "cp -rf $real_path $dd_dir/modules/$kernelver/$arch4modules/" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not copy driver $driver to the initrd." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
} else {
push @ rpm_drivers , $ driver ;
}
}
}
2012-10-16 05:58:29 +00:00
} elsif ( $ Injectalldriver ) {
2012-07-05 14:59:08 +00:00
# copy all the drviers to the initrd
if ( - d "$dd_dir/rpm/lib/modules/$kernelver" ) {
find ( \ & get_all_path , <$dd_dir/rpm/lib/modules/$kernelver/*> ) ;
foreach my $ driverpath ( @ all_real_path ) {
$ cmd = "cp -rf $driverpath $dd_dir/modules/$kernelver/$arch4modules/" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not copy $driverpath to the initrd." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
if ( $ driverpath =~ s/([^\/]*)\.ko// ) {
push @ rpm_drivers , $ 1 ;
}
}
} else {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not find /lib/modules/$kernelver from the driver rpms." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
}
# Append the modules.dep to the one in the initrd
if ( - f "$dd_dir/rpm/lib/modules/$kernelver/modules.dep" ) {
$ cmd = "cat $dd_dir/rpm/lib/modules/$kernelver/modules.dep >> $dd_dir/initrd_img/modules/modules.dep" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
}
}
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
# Regenerate the modules.dep
# 'depmod' command only can handle the drivers in /lib/modules/kernelver strcuture, so copy the drivers to a temporary
# dirctory $dd_dir/depmod/lib/modules/$mk, run 'depmod' and copy the modules.dep to the correct dir
my ( $ mk , $ ma ) ;
$ mk = <$dd_dir/modules/*> ;
if ( - d $ mk ) {
$ mk = basename ( $ mk ) ;
$ ma = <$dd_dir/modules/$mk/*> ;
if ( - d $ ma ) {
mkpath "$dd_dir/depmod/lib/modules/$mk" ;
xCAT::Utils - > runcmd ( "cp -rf $ma/* $dd_dir/depmod/lib/modules/$mk" , - 1 ) ;
$ cmd = "depmod -b $dd_dir/depmod/" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Handle the driver update failed. Could not generate the depdency for the drivers in the initrd." ;
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
}
if ( - f "$dd_dir/depmod/lib/modules/$mk/modules.dep" ) {
copy ( "$dd_dir/depmod/lib/modules/$mk/modules.dep" , "$dd_dir/initrd_img/modules/modules.dep" ) ;
}
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# remove the path and postfix of the driver modules from the new generated modules.dep since original format has not path and postfix
my @ newdep ;
if ( open ( DEP , "<$dd_dir/initrd_img/modules/modules.dep" ) ) {
while ( <DEP> ) {
s/\/lib\/modules\/$mk\/([^\.]+)\.ko/$1/g ;
if ( /:\s*\S+/ ) {
push @ newdep , $ _ ;
}
}
close ( DEP ) ;
}
if ( open ( NEWDEP , ">$dd_dir/initrd_img/modules/modules.dep" ) ) {
print NEWDEP @ newdep ;
close ( NEWDEP ) ;
}
}
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
# Append the modinfo into the module-info
open ( MODINFO , "<" , "$dd_dir/initrd_img/modules/module-info" ) ;
open ( MODINFONEW , ">" , "$dd_dir/initrd_img/modules/module-info.new" ) ;
my $ removeflag = 0 ;
my @ orig_drivers ;
while ( <MODINFO> ) {
my $ line = $ _ ;
if ( $ line =~ /^(\S+)/ ) {
if ( grep /$1/ , @ dd_drivers ) {
$ removeflag = 1 ;
next ;
} else {
push @ orig_drivers , $ 1 ;
$ removeflag = 0 ;
}
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
if ( $ removeflag == 1 ) { next ; }
print MODINFONEW $ line ;
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
print MODINFONEW @ modinfo ;
# add the drivers from rpm
foreach my $ dr ( @ rpm_drivers ) {
$ dr =~ s/\.ko// ;
if ( ! grep /^$dr$/ , ( @ orig_drivers , @ dd_drivers ) ) {
print MODINFONEW $ dr . "\n" ;
}
2012-06-26 15:49:17 +00:00
}
2012-07-05 14:59:08 +00:00
close ( MODINFONEW ) ;
close ( MODINFO ) ;
move ( "$dd_dir/initrd_img/modules/module-info.new" , "$dd_dir/initrd_img/modules/module-info" ) ;
# Repack the modules
$ cmd = "cd $dd_dir/modules; find . -print | cpio -o -H crc | gzip -9 > $dd_dir/initrd_img/modules/modules.cgz" ;
2012-01-04 20:23:07 +00:00
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
2012-07-05 14:59:08 +00:00
push @ { $ rsp - > { data } } , "Handle the driver update disk failed. Could not pack the hacked modules.cgz." ;
2012-01-04 20:23:07 +00:00
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
2012-10-16 05:58:29 +00:00
return ( ) ;
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
} # End of non dracut
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# Repack the initrd
2012-11-28 08:59:02 +00:00
if ( $ initrdfmt eq "gzip" ) {
$ cmd = "cd $dd_dir/initrd_img; find .|cpio -H newc -o|gzip -9 -c - > $dd_dir/initrd.img" ;
} elsif ( $ initrdfmt eq "lzma" ) {
$ cmd = "cd $dd_dir/initrd_img; find .|cpio -H newc -o|lzma -C crc32 -9 > $dd_dir/initrd.img" ;
}
2012-01-04 20:23:07 +00:00
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
if ( $ ::RUNCMD_RC != 0 ) {
my $ rsp ;
2012-07-05 14:59:08 +00:00
push @ { $ rsp - > { data } } , "Handle the driver update disk failed. Could not pack the hacked initrd." ;
2012-01-04 20:23:07 +00:00
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
2012-10-16 05:58:29 +00:00
return ( ) ;
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
copy ( "$dd_dir/initrd.img" , $ img ) ;
2012-01-04 20:23:07 +00:00
}
2012-07-05 14:59:08 +00:00
# dracut + driver disk, just append the driver disk to the initrd
if ( <$install_dir/$os/$arch/Packages/dracut*> && @ dd_list ) { #new style, skip the fanagling, copy over the dds and append them...
mkpath ( "$dd_dir/dd" ) ;
if ( scalar ( @ dd_list ) == 1 ) { #only one, just append it..
copy ( $ dd_list [ 0 ] , "$dd_dir/dd/dd.img" ) ;
} elsif ( scalar ( @ dd_list ) > 1 ) {
unless ( - x "/usr/bin/createrepo" and - x "/usr/bin/mkisofs" ) {
my $ rsp ;
push @ { $ rsp - > { data } } , "Merging multiple driver disks requires createrepo and mkisofs utilities" ;
xCAT::MsgUtils - > message ( "E" , $ rsp , $ callback ) ;
2012-10-16 05:58:29 +00:00
return ( ) ;
2012-07-05 14:59:08 +00:00
}
mkpath ( "$dd_dir/newddimg" ) ;
mkpath ( "$dd_dir/tmpddmnt" ) ;
foreach my $ dd ( @ dd_list ) {
xCAT::Utils - > runcmd ( "mount -o loop $dd $dd_dir/tmpddmnt" , - 1 ) ;
xCAT::Utils - > runcmd ( "cp -a $dd_dir/tmpddmnt/* $dd_dir/newddimg" , - 1 ) ;
xCAT::Utils - > runcmd ( "umount $dd_dir/tmpddmnt" , - 1 ) ;
}
foreach my $ repodir ( <$dd_dir/newddimg/*/*/repodata> ) {
$ repodir =~ s/\/repodata\z// ;
xCAT::Utils - > runcmd ( "createrepo $repodir" , - 1 ) ;
}
chdir ( "$dd_dir/newddimg" ) ;
xCAT::Utils - > runcmd ( "mkisofs -J -R -o $dd_dir/dd/dd.img ." , - 1 ) ;
} else { #there should be no else...
die "This should never occur" ;
}
chdir ( $ dd_dir . "/dd" ) ;
$ cmd = "find .|cpio -H newc -o|gzip -9 -c - > ../dd.gz" ;
xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
unless ( - f "../dd.gz" ) {
die "Error attempting to archive driver disk" ;
}
my $ ddhdl ;
my $ inithdl ;
open ( $ inithdl , ">>" , $ img ) ;
open ( $ ddhdl , "<" , "../dd.gz" ) ;
binmode ( $ ddhdl ) ;
binmode ( $ inithdl ) ;
{
local $/ = \ 32768 ;
while ( my $ block = <$ddhdl> ) { print $ inithdl $ block ; }
}
chdir ( "/" ) ;
push @ inserted_dd , @ dd_list ;
}
2012-01-04 20:23:07 +00:00
2012-07-05 14:59:08 +00:00
# clean the env
2012-01-04 20:23:07 +00:00
rmtree $ dd_dir ;
2012-07-05 14:59:08 +00:00
2012-01-04 20:23:07 +00:00
my $ rsp ;
2012-07-05 14:59:08 +00:00
if ( @ dd_list ) {
push @ { $ rsp - > { data } } , "Inserted the driver update disk:" . join ( ',' , @ inserted_dd ) . "." ;
}
if ( @ driver_list ) {
push @ { $ rsp - > { data } } , "Inserted the drivers:" . join ( ',' , sort ( @ rpm_drivers ) ) . " from driver packages." ;
2012-10-16 05:58:29 +00:00
} elsif ( @ rpm_list && ( $ Injectalldriver || @ driver_list ) ) {
2012-07-05 14:59:08 +00:00
push @ { $ rsp - > { data } } , "Inserted the drivers from driver packages:" . join ( ',' , sort ( @ rpm_list ) ) . "." ;
}
2012-01-04 20:23:07 +00:00
xCAT::MsgUtils - > message ( "I" , $ rsp , $ callback ) ;
return @ inserted_dd ;
}
1 ;
