mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-05-25 05:02:05 +00:00
eea661e405
* fix issueNode range not specified, see man page for syntax. return with no output when site.master is not set #4299 * Fix issue 4246, record rflash process in log file * dodiscovery: better disksize - ordered by major,minor and no `\n` (#4219) * better disksize: ordered by major,minor and no `\n` * nodediscover:`disksize` sent correctly: no need to `split`,`join` * general sort with explicit key columns, fix search pattern * dodiscovery: Fix bugs * dodiscovery: Fix ShellCheck SC2007,SC2004 * dodiscovery: simpler kcmdline parsing, disksize as IEC binary prefix * Add test case - switch_to_dns_forward_mode * Modify timeout of login by curl command for OpenBMC * Add makegocons command This patch enable goconserver service and manage the node sessions with a new `makegocons` command. Implement: #4215 * Refine the Cumulus Linux Section of the Doc (#4249) * No content in the switches subdirectory in docs, remove * Change the Network topic to Networking * Refine and reformat the Cumulus Linux documentation * Modify the script to build xCAT-genesis-base package (#4292) * Verify hash ID * change log messages * Timeout the ntpd process if ntpd service is not running on ntpserver (#4321) * enhance nodediscovery process: don't write "NOIP" if the node can not be resloved to an IP (#3995) * enhance nodediscovery process, if only 1 mac and have \*NOIP\* append, don't write mac table and don't generate dhcp lease entry * Enhance PR 3995: enhance nodediscovery process: don't write "NOIP" if the node can not be resloved to an IP * modified depending on comments * natural_sort_cmp: recursion to iterative implementation (#4314) * natural_sort_cmp: recursion to iterative implementation * natural_sort_cmp: correct prototype with parameters, as per `man perlfunc` * Task 3339, rspconfig ip/netmask/gateway/vlan support * * Minor enhance on xcatperftest to put all logs into one file * Fix a bug in simulatorctl.sh, and it cause the script cannot be found * modified depending on comments * QA list for makehosts (#4284) * QA list for makehosts * Fix some bus in makegocons * Revise test case - switch_to_dns_forward_mode * Enhancements after the review * Use IO::Socket to check BMC console port * Revise test case - switch_to_dns_forward_mode * modified depending on comments * Add messages to inform the user of the general action started via xCAT for flashing firmware * Fix bug, anything in the functional array is the one that's really active, priority will not be 0 if there is pending firmware * Fix 4338, remove all of in child process * fix issue #4354 :The XCATTEST_CN in xcattest can not detect HCP as config file (#4355) * Fix #4330, close the socket * Add image name to /opt/xcat/xcatinfo on compute node (#4359) * Integrate congo console from goconserver with rcons Enhance the original implement of rcons to support goconserver. `rcons` will help the user choose from one of the console backend service based on the console server status of management node. Implement #4216 * Fix 4363 - discovery broken (#4364) * do not set exit_code to 1 when the clock is not synced before the timeout (#4362) * Fix check for MTM values with spaces * modified depending on comments * rspconfig admin_password for OpenBMC * Fix merging in xdcpmerge.sh (#4328) * Fixes in xdcpmerge.sh Two fixes: 1. The grep pattern when finding duplicate usernames is missing ":" at the end. So, for example user "test" would also match "test2, etc.". Adding the ":" delimiter fixes the issue. 2. Another issue happens when the file to be merged is a superset of the files on the nodes. For example, if a new user is added and entire passwd file (that is otherwise identical) is sent to be merged. In this case, the $filebackup.nodups file, i.e. the original file with duplicates removed, becomes empty and the condition "if [ -s "$filebackup.nodups" ]" does not execute. Then the merged file ends up being original file with the merge file fully appended, clearly not what was intended. This is solved by changing the condition to check for file existence "-a" rather then for size. Additionally, I also turn the logic around so that the duplicates are removed from the merge file and then added to the original file. I think this makes logic a bit cleaner and also ensures that existing entries are not reordered or changed in any way. * Streamlining previous commit Adjustment to previous commit, streamlining and simplifying logic. Once $mergefile.nodups is created, just concatenate it the original file. * Update to xdcpmerge No need to copy $filebackup to $curfile, they are the same. * Modify for debug conveniently * add new cases and delete outdated test cases * Modify genesis build script for centos x86_64 * Add space between at and the time * Add a print out of the firmware levels for the various UT cases * Add unit test cases for rspconfig * rspconfig fix for set hostname * Enhance the testing case for rspconfig setting hostname * modified depending on comments * modified depending on comments * Add %pretrans script in <lua>. Handle directory to symlink change properly. See comment #3 of https://bugs.launchpad.net/rpm/+bug/633636 * Make xCAT-genesis-base confliects with early version of xCAT-genesis-scripts * rspconfig dump to allow admins capture logs * Adding comment * Improve the error message when BMC does not return a dump ID * Improve some messages and add timestamp for downloaded dump file * Improve the message to help Admin figure out where the file is missing * Leave a log file there when xCAT upgrade in case to debug issue while upgrading (#4389) * Listen on 0.0.0.0 instead of the hostname This patch modify the configuration of `makegocons` and `rcons` for goconserver. `cat /etc/goconserver/server.conf` ``` global: host: 0.0.0.0 ssl_key_file: /etc/xcat/cert/server-key.pem ssl_cert_file: /etc/xcat/cert/server-cert.pem ssl_ca_cert_file: /etc/xcat/cert/ca.pem logfile: /var/log/goconserver/server.log api: port: 12429 console: port: 12430 ``` * Support hostname=* for openbmc * Relay action and snmp configuration support for Coral PDU * ddns.pm: specify the "directory" option for DNS slaves too (cf. bug #4392) * Fix issue 4361, modify some sendmsg to message * 1. add "makeconserver -d" to "rmdef -C", 2. add "makeconserver -C|--cleanup" to remove entries for removed nodes * When there is a problem with the login, do not hide the message on debug mode. BMCReady does not make sense if the admin does not know how to find that state * Change function from login_logout_request to login_request, not doing any logout here * Check that RC is 200 to prevent unknown issues, handle the response generically * OpenBMC rspconfig dump timeout fixes * Fix issue 4408, modify error for rspconfig dump * Clear all BMC Dump logs when BMC firmware flash * modified depending on comments * More modifications for pr 4386, to deal with the conflicts * To handle one case which have 2 implementations, which one is for specific platform, on is for all platforms * return when current status is RSPCONFIG_DUMP_DOWNLOAD_REQUEST * fix issue 4417, delete 'clear next_status' * fix issue 4353: rspconfig needs to support multiple IPs on the BMC and ignore ZeroConfigIPs * Wait 15 seconds after OpenBMC interface with vlan tag to be activated * Fix issue #4397: rspconfig <> hostname=xxx show error message when there is multiple network in bmc * Some sentence modify for makeconservercf -C|--cleanup * OpenBMC rspconfig dump better dump file name formatting * Removed the --check and --ipsource option with PR 4258, update the man page * Improve the message on the HTTP response * modified depending on comments * Only handle 404 and 504 in the login request code, defer the rest to deal_with_response() * rflash stream support * 1. configure ip/netmask/gateway only on the NIC whose IP match node BMC attribute, 2. add some information for LinkLocal address * Fix confignetwork bond nic_type detection with multiple bonds * Modified configonie --ntp command (#4436) * Add man page for makegocons This is the guide about how to make goconserver as a replacement for conserver to help slove the issues reported for conserver, like: #4043, #3543. For openbmc, the solution of goconserver is much light-weighted than the conserver which could help save the system resource. In addition, sshpass is not needed for openbmc with goconserver. Implement: #4337 * Add another key for node_info in order not to after the content of $node_info{$node}{bmc} * enhance rflash stream * makedhcp does not work well when all service nodes not running dhcp but disjointdhcps=1 (#4426) (#4440) - if all service nodes not running dhcp, to treat it as disjointdhcps=0 - nodeset will send request to MN by default even if disjointdhcps=1 - Move out of the dhcp service checking from opts pre-check, and do it just before real makedhcp handling. * rspconfig configure bmc vlan will hung because of PR 4383 * OpenBMC rspconfig dump enhancements * Changes due to review comments * Print debug message before login attempt * Add warning when xCAT throttles SSL connections * Display first [openbmc_debug] when entering openbmc.pm * modified error msg * Make sure credential files have a trailing newline (#4442) * modified depending on comments * Fix the typo in the man page of makegocons * Update the print out based on the review comment, should not use since the regular expression is removed * Modify the nodeset disjoint test case accordingly for #4426 * Use short hostname in rcons for goconserver As the certificate of xcat is signed with short hostname, this commit force to use the short hostname in the environment variable for `congo console`. * Fix issue 3497, make sense for reventlog msg * Give summary after flash active when no debugmode * Fix the issue that the IP configuration will fail if bmc attribute is a hostname * enhance genimage for sles12sp2 (#4450) * Add dhcp-client-identifier to lease block (#4429) Machines that use Infiniband for PXE booting need to have the dhcp-client-identifier set in the lease block. Without it, they will not get the lease from the server. * Support multiple bonds on bring-up * modified depending on comments * fix the check for rc to 1 on error cases * modify response for bmcdiscover when error * Ignore syslog error in monitorctrl when setNodeStatusAttributes (#4459) * fix issue https://github.com/xcat2/xcat-core/issues/4411 (#4462) * fix issue Compute nodes fail to get provisioned #4411: covert imgsrv and xcatmaster to their ip addresses in case the hostname cannot be resolved inside initrd for diskless * More strict check to tell if it is a chroot env to avoid modify DB (#4463) when genimage for SN image (#4365) * issues for install license file on accton switches (#4460) * Add test cases for rflash regular usage against openbmc * modify depending on xuwei's comment * add 2 more cases for option d * enhance rflash upload message * Do not display message for clearing dumps when only PNOR * Display hostname even if multiple IP addresses * modified depending on comments * polished message * Modify the default consoleondemand based on the global setting This commit fix the bug that consoleondemand works incorrectly. * modify depending on comments * modified depending on comments * enhance rflash error messages * Modify documenation for servicenode attributes * build rst file from Schema.pm by db2man * change status back to starts * modified depending on comments * rm openbmcevents * Usage and man page update for rspconfig dump * let rflash error message flexible * Add support for the "file -> (noderange) file" syntax in synclist with ServiceNodes (#4445) * Add support for "file - (noderange) file" in synclist when using hierarchical mode. Fixes #4425 This patch ensures that: 1. the synclist is correctly parsed when running on a Service Node 2. all files are synchronized to SNs in hierarchical mode * Better test condition for #4425, addresses issue in https://github.com/xcat2/xcat-core/pull/4445#issuecomment-349472901 * Fix issue 4477, if has node-<mac> will not create node-<mtms> for the same node * fix issue updatenode -f loses directories when copying files to SN #4456 (#4494) * comment from ErTao * Crude attempt at including external configuration files in named.conf * Fixes after the review * Fix issue 4490, record any error when rflash active process * add -d usage and manpage * updatenode -F not work in hierachy env as the user name is FQDN of MN (#4484) * updatenode -F not work in hierachy env (#4455) - add trace when -V is enabled - get the DSH_FROM_USERID from updatenode client * - when 'updatenode -F' need to push SN first, using root as non-root does not have permission write to 'SNsyncfiledir' - move the set DSH_FROM_USERID code out of the loop, and also cover remote client case. * fix issue for command rspconfig hostname=* * enhance rflash * Adjust the server used for kernel/initrd and imgurl for petitboot (#4416) - URL for kernel/initrd, get the value from below value tftpserver -> xcatmaster -> myipfn - URL for image, get the value from below value nfsserver -> tftpserver -> xcatmaster -> myipfn * NODE attribute didn't populate in /opt/xcat/xcatinfo after reboot (#4428) * NODE attribute didn't populate in /opt/xcat/xcatinfo after reboot * Get NODE from mypostscripts * Improve the output message for reventlog, use a global variable to set PolicyFile Path * If debug_msg is not provided, use an empty string * Check for LinkLocal as well as 169.254 IP address * Fix issue 4507, add parameter check for rspconfig admin_passwd * record more information when rflash upload error * Fix the error when using array ref in updatenode with old version perl, it is introduced by PR#4484 (#4518) * Do not restart conserver if goconserver was started If goconserver was enabled, do not start conserver when restart xcatd on service node. * remove the /etc/localtime before copy timezone file * Use CONGO_CLIENT_TYPE to tell goconserver the source of client (#4501) goconserver could send back message based on the client type this commit set CONGO_CLIENT_TYPE to xcat to make the message from goconserver more friendly. * add rflash -d doc * only ignore 169.254.x.x for OpenBMC * Fix issue 4513, print out better error msg for reventlog -s * Modify or add openbmc test cases or bundle * add test cases for updatenode -f/F in hierarchy environment, covers issues #4456,#4455 and PR #4425 (#4500)
3268 lines
128 KiB
Perl
3268 lines
128 KiB
Perl
# 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;
|
|
use xCAT::TableUtils;
|
|
use xCAT::NetworkUtils;
|
|
use xCAT::MsgUtils;
|
|
use xCAT::SvrUtils;
|
|
use xCAT::Yum;
|
|
|
|
#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/;
|
|
use File::Find;
|
|
use File::Basename;
|
|
use Digest::MD5 qw(md5_hex);
|
|
use Socket;
|
|
|
|
use strict;
|
|
my @cpiopid;
|
|
my $httpmethod = "http";
|
|
my $httpport = "80";
|
|
my $useflowcontrol = "0";
|
|
|
|
|
|
|
|
sub handled_commands
|
|
{
|
|
return {
|
|
copycd => "anaconda",
|
|
mknetboot => "nodetype:os=(^ol[0-9].*)|(centos.*)|(rh.*)|(fedora.*)|(SL.*)",
|
|
mkinstall => "nodetype:os=(pkvm.*)|(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.*)",
|
|
|
|
};
|
|
}
|
|
|
|
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];
|
|
}
|
|
|
|
#my $stab = xCAT::Table->new('site');
|
|
#my $sent;
|
|
#($sent) = $stab->getAttribs({key => 'sharedtftp'}, 'value');
|
|
my @ents = xCAT::TableUtils->get_site_attribute("sharedtftp");
|
|
my $site_ent = $ents[0];
|
|
unless (defined($site_ent)
|
|
and ($site_ent eq "no" or $site_ent eq "NO" or $site_ent eq "0"))
|
|
{
|
|
|
|
#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;
|
|
if ($::XCATSITEVALS{"httpmethod"}) { $httpmethod = $::XCATSITEVALS{"httpmethod"}; }
|
|
if ($::XCATSITEVALS{"httpport"}) { $httpport = $::XCATSITEVALS{"httpport"}; }
|
|
if ($::XCATSITEVALS{"useflowcontrol"}) { $useflowcontrol = $::XCATSITEVALS{"useflowcontrol"}; }
|
|
|
|
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);
|
|
}
|
|
elsif ($request->{command}->[0] eq 'mksysclone')
|
|
{
|
|
return mksysclone($request, $callback, $doreq);
|
|
}
|
|
}
|
|
|
|
# Check whether the dracut is supported by this os
|
|
sub using_dracut
|
|
{
|
|
my $os = shift;
|
|
if ($os =~ /(rhels|rhel|centos)(\d+)/) {
|
|
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";
|
|
}
|
|
my $bootparams = ${$req->{bootparams}};
|
|
my @args = @{ $req->{arg} } if (exists($req->{arg}));
|
|
my @nodes = @{ $req->{node} };
|
|
my $noupdateinitrd = $req->{'noupdateinitrd'};
|
|
my $ignorekernelchk = $req->{'ignorekernelchk'};
|
|
|
|
my $linuximagetab;
|
|
my $osimagetab;
|
|
my %img_hash = ();
|
|
my $xcatdport = "3001";
|
|
my $xcatiport = "3002";
|
|
|
|
my @myself = xCAT::NetworkUtils->determinehostname();
|
|
my $myname = $myself[ (scalar @myself) - 1 ];
|
|
|
|
my $installroot = xCAT::TableUtils->getInstallDir();
|
|
my $globaltftpdir = xCAT::TableUtils->getTftpDir();
|
|
xCAT::MsgUtils->trace(0, "d", "anaconda->mknetboot: installroot=$installroot globaltftpdir=$globaltftpdir");
|
|
|
|
my $nodestatus = "y";
|
|
my @ents = xCAT::TableUtils->get_site_attribute("nodestatus");
|
|
my $site_ent = $ents[0];
|
|
if (defined($site_ent))
|
|
{
|
|
$nodestatus = $site_ent;
|
|
}
|
|
|
|
@ents = xCAT::TableUtils->get_site_attribute("xcatdport");
|
|
$site_ent = $ents[0];
|
|
if (defined($site_ent))
|
|
{
|
|
$xcatdport = $site_ent;
|
|
}
|
|
@ents = xCAT::TableUtils->get_site_attribute("xcatiport");
|
|
$site_ent = $ents[0];
|
|
if (defined($site_ent))
|
|
{
|
|
$xcatiport = $site_ent;
|
|
}
|
|
|
|
my %donetftp = ();
|
|
my $ostab = xCAT::Table->new('nodetype');
|
|
my %oents = %{ $ostab->getNodesAttribs(\@nodes, [qw(os arch profile provmethod)]) };
|
|
my $restab = xCAT::Table->new('noderes');
|
|
my $hmtab = xCAT::Table->new('nodehm');
|
|
my $mactab = xCAT::Table->new('mac');
|
|
|
|
my $machash = $mactab->getNodesAttribs(\@nodes, [ 'interface', 'mac' ]);
|
|
|
|
my $reshash = $restab->getNodesAttribs(\@nodes, [ 'primarynic', 'tftpserver', 'tftpdir', 'xcatmaster', 'nfsserver', 'nfsdir', 'installnic' ]);
|
|
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']);
|
|
}
|
|
|
|
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;
|
|
my $tftpdir;
|
|
my $cfgpart;
|
|
my $imagename; # set it if running of 'nodeset osimage=xxx'
|
|
|
|
if ($reshash->{$node}->[0] and $reshash->{$node}->[0]->{tftpdir}) {
|
|
$tftpdir = $reshash->{$node}->[0]->{tftpdir};
|
|
} else {
|
|
$tftpdir = $globaltftpdir;
|
|
}
|
|
|
|
|
|
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')) {
|
|
|
|
$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', '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);
|
|
}
|
|
(my $ref1) = $linuximagetab->getAttribs({ imagename => $imagename }, 'rootimgdir', 'nodebootif', 'dump', 'crashkernelsize', 'partitionfile');
|
|
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'};
|
|
}
|
|
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'};
|
|
}
|
|
} else {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "The OS image '$imagename' for node does not exist");
|
|
next;
|
|
}
|
|
}
|
|
my $ph = $img_hash{$imagename};
|
|
|
|
$osver = $ph->{osver};
|
|
$arch = $ph->{osarch};
|
|
$profile = $ph->{profile};
|
|
|
|
$rootfstype = $ph->{rootfstype};
|
|
$rootimgdir = $ph->{rootimgdir};
|
|
unless ($rootimgdir) {
|
|
$rootimgdir = "$installroot/netboot/$osver/$arch/$profile";
|
|
}
|
|
|
|
$nodebootif = $ph->{nodebootif};
|
|
$crashkernelsize = $ph->{crashkernelsize};
|
|
$dump = $ph->{dump};
|
|
$cfgpart = $ph->{'cfgpart'};
|
|
}
|
|
else {
|
|
# This is deprecated mode to define node's provmethod, not supported now.
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "OS image name must be specified in nodetype.provmethod");
|
|
next;
|
|
|
|
$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 {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,
|
|
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}
|
|
);
|
|
next;
|
|
}
|
|
|
|
if (!$linuximagetab) {
|
|
$linuximagetab = xCAT::Table->new('linuximage');
|
|
}
|
|
if ($linuximagetab) {
|
|
(my $ref1) = $linuximagetab->getAttribs({ imagename => $imgname }, 'dump', 'crashkernelsize', 'partitionfile');
|
|
if ($ref1 and $ref1->{'dump'}) {
|
|
$dump = $ref1->{'dump'};
|
|
}
|
|
if ($ref1 and $ref1->{'crashkernelsize'}) {
|
|
$crashkernelsize = $ref1->{'crashkernelsize'};
|
|
}
|
|
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);
|
|
}
|
|
}
|
|
} else {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,
|
|
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}
|
|
);
|
|
next;
|
|
}
|
|
}
|
|
|
|
#print"osvr=$osver, arch=$arch, profile=$profile, imgdir=$rootimgdir\n";
|
|
unless ($osver and $arch and $profile)
|
|
{
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "Insufficient nodetype entry or osimage entry for $node");
|
|
next;
|
|
}
|
|
|
|
$platform = xCAT_plugin::anaconda::getplatform($osver);
|
|
my $compressedrootimg=xCAT::SvrUtils->searchcompressedrootimg("$rootimgdir");
|
|
|
|
|
|
# statelite images are not packed.
|
|
if ($statelite) {
|
|
unless (-r "$rootimgdir/kernel") {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,
|
|
qq{Did you run "genimage" before running "liteimg"? kernel cannot be found at $rootimgdir/kernel on $myname}
|
|
);
|
|
next;
|
|
}
|
|
if (!-r "$rootimgdir/initrd-statelite.gz") {
|
|
if (!-r "$rootimgdir/initrd.gz") {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,
|
|
qq{Did you run "genimage" before running "liteimg"? initrd.gz or initrd-statelite.gz cannot be found at $rootimgdir/initrd.gz on $myname}
|
|
);
|
|
next;
|
|
}
|
|
else {
|
|
copy("$rootimgdir/initrd.gz", "$rootimgdir/initrd-statelite.gz");
|
|
}
|
|
}
|
|
if ($rootfstype eq "ramdisk" and !-r "$rootimgdir/rootimg-statelite.gz") {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,
|
|
qq{No packed image for platform $osver, architecture $arch and profile $profile, please run "liteimg" to create it.}
|
|
);
|
|
next;
|
|
}
|
|
} else {
|
|
unless (-r "$rootimgdir/kernel") {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,
|
|
qq{Did you run "genimage" before running "packimage"? kernel cannot be found at $rootimgdir/kernel on $myname}
|
|
);
|
|
next;
|
|
}
|
|
if (!-r "$rootimgdir/initrd-stateless.gz") {
|
|
if (!-r "$rootimgdir/initrd.gz") {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,
|
|
qq{Did you run "genimage" before running "packimage"? kernel cannot be found at $rootimgdir/kernel on $myname}
|
|
);
|
|
next;
|
|
} else {
|
|
copy("$rootimgdir/initrd.gz", "$rootimgdir/initrd-stateless.gz");
|
|
}
|
|
}
|
|
unless ( -f -r "$rootimgdir/$compressedrootimg") {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,
|
|
"No packed image for platform $osver, architecture $arch, and profile $profile found at $rootimgdir/rootimg.gz or $rootimgdir/rootimg.sfs on $myname, please run packimage (e.g. packimage -o $osver -p $profile -a $arch"
|
|
);
|
|
next;
|
|
}
|
|
}
|
|
|
|
# create the node-specific post scripts
|
|
#mkpath "/install/postscripts/";
|
|
|
|
# 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 && !$noupdateinitrd) {
|
|
mkpath("$tftppath");
|
|
if (-f "$rootimgdir/hypervisor") {
|
|
copy("$rootimgdir/hypervisor", "$tftppath");
|
|
$xenstyle = 1;
|
|
}
|
|
copy("$rootimgdir/kernel", "$tftppath");
|
|
if ($statelite) {
|
|
if ($rootfstype eq "ramdisk") {
|
|
copy("$rootimgdir/initrd-stateless.gz", "$tftppath");
|
|
} else {
|
|
copy("$rootimgdir/initrd-statelite.gz", "$tftppath");
|
|
}
|
|
} else {
|
|
copy("$rootimgdir/initrd-stateless.gz", "$tftppath");
|
|
}
|
|
}
|
|
|
|
if ($statelite) {
|
|
my $initrdloc = "$tftppath";
|
|
if ($rootfstype eq "ramdisk") {
|
|
$initrdloc .= "/initrd-stateless.gz";
|
|
} else {
|
|
$initrdloc .= "/initrd-statelite.gz";
|
|
}
|
|
unless (-r "$tftppath/kernel" and -r $initrdloc) {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, qq{Copying to $tftppath failed.});
|
|
next;
|
|
}
|
|
} else {
|
|
unless (-r "$tftppath/kernel" and -r "$tftppath/initrd-stateless.gz") {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, qq{Copying to $tftppath failed.});
|
|
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->{nfsserver} and $ient->{nfsserver} ne '<xcatmaster>') {
|
|
$imgsrv = $ient->{nfsserver};
|
|
}elsif ($ient and $ient->{tftpserver} and $ient->{tftpserver} ne '<xcatmaster>') {
|
|
$imgsrv = $ient->{tftpserver};
|
|
} else {
|
|
$imgsrv = $xcatmaster;
|
|
}
|
|
|
|
unless ($imgsrv) {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "Unable to determine or reasonably guess the image server for $node");
|
|
next;
|
|
}
|
|
|
|
my $imgsrvip;
|
|
unless($imgsrv eq '!myipfn!' or xCAT::NetworkUtils->validate_ip($imgsrv)==0){
|
|
# if imgsrv is hostname, convert it to ip address
|
|
# the host name might not be resolved inside initrd
|
|
$imgsrvip = xCAT::NetworkUtils->getipaddr($imgsrv);
|
|
}
|
|
unless($imgsrvip){
|
|
$imgsrvip=$imgsrv;
|
|
}
|
|
|
|
my $xcatmasterip;
|
|
if (xCAT::NetworkUtils->validate_ip($xcatmaster)) {
|
|
# if xcatmaster is hostname, convert it to ip address
|
|
# the host name might not be resolved inside initrd
|
|
$xcatmasterip = xCAT::NetworkUtils->getipaddr($xcatmaster);
|
|
}
|
|
unless($xcatmasterip){
|
|
$xcatmasterip=$xcatmaster
|
|
}
|
|
|
|
# Start to build kcmdline
|
|
my $kcmdline;
|
|
|
|
# add more arguments: XCAT=xcatmaster:xcatport NODE=<nodename>
|
|
#and ifname=<eth0>:<mac address>
|
|
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 = $imgsrvip;
|
|
my $nfsdir = $rootimgdir;
|
|
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 {
|
|
if (-r "$rootimgdir/rootimg-statelite.gz.metainfo") {
|
|
$kcmdline = "imgurl=$httpmethod://$imgsrvip:$httpport/$rootimgdir/rootimg-statelite.gz.metainfo STATEMNT=";
|
|
} else {
|
|
$kcmdline = "imgurl=$httpmethod://$imgsrvip:$httpport/$rootimgdir/rootimg-statelite.gz STATEMNT=";
|
|
}
|
|
}
|
|
|
|
# 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 . " ";
|
|
|
|
$kcmdline .= "XCAT=$xcatmasterip:$xcatdport ";
|
|
|
|
|
|
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
|
|
}
|
|
$kcmdline .= "NODE=$node ";
|
|
}
|
|
else {
|
|
if (-r "$rootimgdir/$compressedrootimg.metainfo") {
|
|
$kcmdline = "imgurl=$httpmethod://$imgsrvip:$httpport/$rootimgdir/$compressedrootimg.metainfo ";
|
|
} else {
|
|
$kcmdline = "imgurl=$httpmethod://$imgsrvip:$httpport/$rootimgdir/$compressedrootimg ";
|
|
}
|
|
$kcmdline .= "XCAT=$xcatmasterip:$xcatdport ";
|
|
$kcmdline .= "NODE=$node ";
|
|
|
|
# add flow control setting
|
|
$kcmdline .= "FC=$useflowcontrol ";
|
|
}
|
|
|
|
#inform statelite/stateless node not to update the nodestatus during provision
|
|
if (($nodestatus eq "n") or ($nodestatus eq "N") or ($nodestatus eq "0")) {
|
|
$kcmdline .= " nonodestatus ";
|
|
}
|
|
|
|
if (($::XCATSITEVALS{xcatdebugmode} eq "1") or ($::XCATSITEVALS{xcatdebugmode} eq "2")) {
|
|
#for use in postscript and postbootscript in xcatdsklspost in the rootimg
|
|
$kcmdline .= " LOGSERVER=$xcatmasterip ";
|
|
#for use in syslog dracut module in the initrd
|
|
$kcmdline .= " syslog.server=$xcatmasterip syslog.type=rsyslogd syslog.filter=*.* ";
|
|
$kcmdline .= " xcatdebugmode=$::XCATSITEVALS{xcatdebugmode} ";
|
|
}
|
|
|
|
# Add kernel parameters to specify the boot network interface
|
|
my $installnic;
|
|
my $primarynic;
|
|
my $mac;
|
|
if (defined($reshash->{$node}->[0]) && $reshash->{$node}->[0]->{installnic}) {
|
|
$installnic = $reshash->{$node}->[0]->{installnic};
|
|
}
|
|
if (defined($reshash->{$node}->[0]) and $reshash->{$node}->[0]->{primarynic}) {
|
|
$primarynic = $reshash->{$node}->[0]->{primarynic};
|
|
}
|
|
if (defined($machash->{$node}->[0]) && $machash->{$node}->[0]->{'mac'}) {
|
|
$mac = xCAT::Utils->parseMacTabEntry($machash->{$node}->[0]->{'mac'}, $node);
|
|
}
|
|
|
|
my $net_params = xCAT::NetworkUtils->gen_net_boot_params($installnic, $primarynic, $mac, $nodebootif);
|
|
|
|
if (defined($net_params->{ifname}) || defined($net_params->{netdev})) {
|
|
if (defined($net_params->{ifname})) {
|
|
$kcmdline .= "$net_params->{ifname} ";
|
|
}
|
|
if (defined($net_params->{netdev})) {
|
|
$kcmdline .= "$net_params->{netdev} ";
|
|
}
|
|
} elsif (defined($net_params->{BOOTIF}) && ($net_params->{setmac} || $arch =~ /ppc/)) {
|
|
$kcmdline .= "$net_params->{BOOTIF} ";
|
|
}
|
|
|
|
my %client_nethash = xCAT::DBobjUtils->getNetwkInfo([$node]);
|
|
if ($client_nethash{$node}{mgtifname} =~ /hf/)
|
|
{
|
|
$kcmdline .= "rdloaddriver=hf_if ";
|
|
}
|
|
|
|
|
|
if (defined $sent->{serialport}) {
|
|
|
|
#my $sent = $hmtab->getNodeAttribs($node,['serialspeed','serialflow']);
|
|
unless ($sent->{serialspeed}) {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,"serialport defined, but no serialspeed for $node in nodehm table");
|
|
next;
|
|
}
|
|
if ($arch =~ /ppc64/i) {
|
|
|
|
# For IBM Power machines, either ppc64 or ppc64le (ppc64el),
|
|
# both the physical serial port or virtual serial port appeared
|
|
# in PowerVM LPAR or PowerKVM guest use device /dev/hvc0 or
|
|
# /dev/hvc1 instead of /dev/ttyS0 or /dev/ttyS1
|
|
$kcmdline .= " console=tty0 console=hvc" . $sent->{serialport} . "," . $sent->{serialspeed};
|
|
} else {
|
|
$kcmdline .= " console=tty0 console=ttyS" . $sent->{serialport} . "," . $sent->{serialspeed};
|
|
}
|
|
if ($sent->{serialflow} =~ /(hard|tcs|ctsrts)/)
|
|
{
|
|
$kcmdline .= "n8r";
|
|
}
|
|
}
|
|
|
|
# turn off the selinux
|
|
if ($osver =~ m/(fedora12|fedora13|rhels7)/) {
|
|
$kcmdline .= " selinux=0 ";
|
|
}
|
|
|
|
# if kdump service is enbaled, add "crashkernel=" and "kdtarget="
|
|
if ($dump) {
|
|
my $fadumpFlag = 0;
|
|
my $fadump = '';
|
|
my $kdump = '';
|
|
if ($dump =~ /^fadump.*/) {
|
|
$dump =~ s/fadump://g;
|
|
$fadumpFlag = 1;
|
|
$fadump = $dump;
|
|
$kdump = $dump;
|
|
if ($dump =~ /^nfs:\/\/\/.*/) {
|
|
$fadump =~ s/(nfs:\/\/)(\/.*)/net,${xcatmaster}:${2}/;
|
|
$kdump =~ s/(nfs:\/\/)(\/.*)/${1}${xcatmaster}${2}/;
|
|
}
|
|
}
|
|
if ($crashkernelsize) {
|
|
if ($fadumpFlag && $arch eq "ppc64") {
|
|
$kcmdline .= " fadump=on fadump_reserve_mem=$crashkernelsize fadump_target=$fadump fadump_default=noreboot dump=$kdump ";
|
|
}
|
|
else {
|
|
$kcmdline .= " crashkernel=$crashkernelsize dump=$dump ";
|
|
}
|
|
}
|
|
else {
|
|
if ($arch eq "ppc64") {
|
|
if ($fadumpFlag) {
|
|
$kcmdline .= " fadump=on fadump_reserve_mem=512M fadump_target=$fadump fadump_default=noreboot dump=$kdump ";
|
|
}
|
|
else {
|
|
$kcmdline .= " crashkernel=256M\@64M dump=$dump ";
|
|
}
|
|
}
|
|
if ($arch =~ /86/) {
|
|
$kcmdline .= " crashkernel=128M dump=$dump ";
|
|
}
|
|
}
|
|
}
|
|
|
|
# add the cmdline parameters for handling the local disk for stateless
|
|
if ($cfgpart eq "yes") {
|
|
if ($statelite) {
|
|
$kcmdline .= " PARTITION_RH"
|
|
} else {
|
|
$kcmdline .= " PARTITION_DOMOUNT_RH"
|
|
}
|
|
}
|
|
|
|
# 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 $kernstr = "$rtftppath/kernel";
|
|
if ($xenstyle) {
|
|
$kernstr .= "!$rtftppath/hypervisor";
|
|
}
|
|
my $initrdstr = "$rtftppath/initrd-stateless.gz";
|
|
$initrdstr = "$rtftppath/initrd-statelite.gz" if ($statelite);
|
|
|
|
# special case for the dracut-enabled OSes
|
|
if (&using_dracut($osver)) {
|
|
if ($statelite and $rootfstype eq "ramdisk") {
|
|
$initrdstr = "$rtftppath/initrd-stateless.gz";
|
|
}
|
|
}
|
|
|
|
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";
|
|
}
|
|
}
|
|
$bootparams->{$node}->[0]->{kernel} = $kernstr;
|
|
$bootparams->{$node}->[0]->{initrd} = $initrdstr;
|
|
$bootparams->{$node}->[0]->{kcmdline} = $kcmdline;
|
|
}
|
|
|
|
}
|
|
|
|
sub mkinstall
|
|
{
|
|
my $request = shift;
|
|
my $callback = shift;
|
|
my $doreq = shift;
|
|
my @nodes = @{ $request->{node} };
|
|
my $noupdateinitrd = $request->{'noupdateinitrd'};
|
|
my $ignorekernelchk = $request->{'ignorekernelchk'};
|
|
my $bootparams = ${$request->{bootparams}};
|
|
|
|
my $linuximagetab;
|
|
my $osimagetab;
|
|
my $osdistrouptab;
|
|
my %img_hash = ();
|
|
|
|
|
|
#>>>>>>>used for trace log start>>>>>>>
|
|
my @args = ();
|
|
my %opt;
|
|
if (ref($request->{arg})) {
|
|
@args = @{ $request->{arg} };
|
|
} else {
|
|
@args = ($request->{arg});
|
|
}
|
|
@ARGV = @args;
|
|
GetOptions('V' => \$opt{V});
|
|
my $verbose_on_off = 0;
|
|
if ($opt{V}) { $verbose_on_off = 1; }
|
|
|
|
#>>>>>>>used for trace log end>>>>>>>
|
|
|
|
|
|
my $installroot = xCAT::TableUtils->getInstallDir();
|
|
my $globaltftpdir = xCAT::TableUtils->getTftpDir();
|
|
xCAT::MsgUtils->trace($verbose_on_off, "d", "anaconda->mkinstall: installroot=$installroot globaltftpdir=$globaltftpdir");
|
|
|
|
my $node;
|
|
my $ostab = xCAT::Table->new('nodetype');
|
|
my %donetftp;
|
|
my $restab = xCAT::Table->new('noderes');
|
|
my $hmtab = xCAT::Table->new('nodehm');
|
|
my $mactab = xCAT::Table->new('mac');
|
|
my %osents = %{ $ostab->getNodesAttribs(\@nodes, [ 'profile', 'os', 'arch', 'provmethod' ]) };
|
|
my %rents = %{ $restab->getNodesAttribs(\@nodes,
|
|
[ 'xcatmaster', 'nfsserver', 'tftpdir', 'primarynic', 'installnic', 'tftpserver' ]) };
|
|
my %hents = %{ $hmtab->getNodesAttribs(\@nodes,
|
|
[ 'serialport', 'serialspeed', 'serialflow' ]) };
|
|
my %macents = %{ $mactab->getNodesAttribs(\@nodes, ['mac']) };
|
|
|
|
require xCAT::Template;
|
|
|
|
foreach $node (@nodes)
|
|
{
|
|
my $os;
|
|
my $tftpdir;
|
|
my $arch;
|
|
my $profile;
|
|
my $tmplfile;
|
|
my $pkgdir;
|
|
my $pkglistfile;
|
|
my $imagename; # set it if running of 'nodeset osimage=xxx'
|
|
my $platform;
|
|
my $xcatmaster;
|
|
my $partfile;
|
|
my $netdrivers;
|
|
my $driverupdatesrc;
|
|
my $osupdir;
|
|
my %tmpl_hash;
|
|
|
|
my $ient = $rents{$node}->[0];
|
|
if ($ient and $ient->{xcatmaster})
|
|
{
|
|
$xcatmaster = $ient->{xcatmaster};
|
|
$tmpl_hash{"xcatmaster"} = $xcatmaster;
|
|
} else {
|
|
$xcatmaster = '!myipfn!';
|
|
}
|
|
if ($ient and $ient->{tftpserver}) {
|
|
$tmpl_hash{"tftpserver"} = $ient->{tftpserver};
|
|
}
|
|
|
|
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']);
|
|
xCAT::MsgUtils->trace($verbose_on_off, "d", "anaconda->mkinstall: xcatmaster=$xcatmaster tftpdir=$tftpdir provmethod=$ent->{provmethod}");
|
|
|
|
|
|
|
|
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', 'osupdatename');
|
|
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);
|
|
}
|
|
(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'};
|
|
}
|
|
}
|
|
|
|
# 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;
|
|
}
|
|
}
|
|
|
|
# get the path list of the osdistroupdate
|
|
if ($ref->{'osupdatename'}) {
|
|
my $osdisupdir;
|
|
my @osupdatenames = split(/,/, $ref->{'osupdatename'});
|
|
|
|
unless ($osdistrouptab) {
|
|
$osdistrouptab = xCAT::Table->new('osdistroupdate', -create => 1);
|
|
unless ($osdistrouptab) {
|
|
$callback->({ error => ["Cannot open the table osdistroupdate."], errorcode => [1] });
|
|
next;
|
|
}
|
|
}
|
|
my @osdup = $osdistrouptab->getAllAttribs("osupdatename", "dirpath");
|
|
foreach my $upname (@osupdatenames) {
|
|
foreach my $upref (@osdup) {
|
|
if ($upref->{'osupdatename'} eq $upname) {
|
|
$osdisupdir .= ",$upref->{'dirpath'}";
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
|
|
$osdisupdir =~ s/^,//;
|
|
$img_hash{$imagename}->{'osupdir'} = $osdisupdir;
|
|
}
|
|
} else {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "The OS image '$imagename' for this node does not exist.");
|
|
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};
|
|
$pkgdir = $ph->{pkgdir};
|
|
if (!$pkgdir) {
|
|
$pkgdir = "$installroot/$os/$arch";
|
|
}
|
|
$pkglistfile = $ph->{pkglist};
|
|
|
|
$netdrivers = $ph->{netdrivers};
|
|
$driverupdatesrc = $ph->{driverupdatesrc};
|
|
$osupdir = $ph->{'osupdir'};
|
|
|
|
xCAT::MsgUtils->trace($verbose_on_off, "d", "anaconda->mkinstall: imagename=$imagename pkgdir=$pkgdir pkglistfile=$pkglistfile tmplfile=$tmplfile partfile=$partfile");
|
|
}
|
|
else {
|
|
# Not support the depreate mode now.
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "OS image name must be specified in nodetype.provmethod");
|
|
next;
|
|
|
|
$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";
|
|
|
|
#get the partition file from the linuximage table
|
|
my $imgname = "$os-$arch-install-$profile";
|
|
|
|
xCAT::MsgUtils->trace($verbose_on_off, "d", "anaconda->mkinstall: imagename=$imgname pkgdir=$pkgdir pkglistfile=$pkglistfile tmplfile=$tmplfile");
|
|
|
|
if (!$linuximagetab) {
|
|
$linuximagetab = xCAT::Table->new('linuximage');
|
|
}
|
|
|
|
if ($linuximagetab) {
|
|
(my $ref1) = $linuximagetab->getAttribs({ imagename => $imgname }, 'partitionfile');
|
|
if ($ref1 and $ref1->{'partitionfile'}) {
|
|
$partfile = $ref1->{'partitionfile'};
|
|
xCAT::MsgUtils->trace($verbose_on_off, "d", "anaconda->mkinstall: partfile = $partfile");
|
|
}
|
|
}
|
|
|
|
#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 @pkgdirs=split(/,/,$pkgdir);
|
|
foreach my $mypkgdir (@pkgdirs){
|
|
unless(-f "/install/postscripts/repos/$mypkgdir/local-repository.tmpl"){
|
|
#fix issue #2856@github
|
|
#for the osimages created by <=xCAT 2.12.3
|
|
#there is no local-repository.tmpl under pkgdir created on copycds
|
|
#generate local-repository.tmpl here if it does not exist
|
|
xCAT::Yum->localize_yumrepo($mypkgdir, $os, $arch);
|
|
}
|
|
}
|
|
|
|
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) {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "Missing " . join(',', @missingparms) . " for $node");
|
|
next; #No profile
|
|
}
|
|
|
|
unless (-r "$tmplfile") {
|
|
xCAT::MsgUtils->report_node_error($callback, $node,
|
|
"No $platform kickstart template exists for " . $profile . " in directory $installroot/custom/install/$platform or $::XCATROOT/share/xcat/install/$platform"
|
|
);
|
|
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,
|
|
$pkglistfile,
|
|
$pkgdir,
|
|
$platform,
|
|
$partfile,
|
|
\%tmpl_hash,
|
|
$os
|
|
);
|
|
}
|
|
|
|
if ($tmperr) {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, $tmperr);
|
|
next;
|
|
}
|
|
|
|
#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];
|
|
|
|
# create the node-specific post scripts
|
|
#mkpath "/install/postscripts/";
|
|
#xCAT::Postage->writescript($node,"/install/postscripts/".$node, "install", $callback);
|
|
my $kernpath;
|
|
my $initrdpath;
|
|
my $maxmem;
|
|
my $esxi = 0;
|
|
my $pkvm = 0;
|
|
if ($os =~ /^pkvm/) {
|
|
$pkvm = 1;
|
|
}
|
|
|
|
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")
|
|
or (-r "$pkgdir/ppc/ppc64le/vmlinuz"
|
|
and $kernpath = "$pkgdir/ppc/ppc64le/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")
|
|
or (-r "$pkgdir/ppc/ppc64le/initrd.img"
|
|
and $initrdpath = "$pkgdir/ppc/ppc64le/initrd.img")))
|
|
)
|
|
{
|
|
#TODO: driver slipstream, targetted for network.
|
|
# 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");
|
|
if ($esxi) {
|
|
copyesxiboot($pkgdir, "$tftppath", osver => $os);
|
|
} else {
|
|
unless ($noupdateinitrd) {
|
|
copy($kernpath, "$tftppath");
|
|
copy($initrdpath, "$tftppath/initrd.img");
|
|
&insert_dd($callback, $os, $arch, "$tftppath/initrd.img", "$tftppath/vmlinuz", $driverupdatesrc, $netdrivers, $osupdir, $ignorekernelchk);
|
|
}
|
|
}
|
|
xCAT::MsgUtils->trace($verbose_on_off, "d", "anaconda->mkinstall: copy initrd.img and vmlinuz to $tftppath");
|
|
}
|
|
|
|
#We have a shot...
|
|
my $ent = $rents{$node}->[0];
|
|
my $sent = $hents{$node}->[0];
|
|
my $macent = $macents{$node}->[0];
|
|
my $instserver = $xcatmaster;
|
|
if ($ent and $ent->{nfsserver}) {
|
|
$instserver = $ent->{nfsserver};
|
|
}
|
|
|
|
if ($::XCATSITEVALS{managedaddressmode} =~ /static/) {
|
|
unless ($instserver eq '!myipfn!') {
|
|
my ($host, $ip) = xCAT::NetworkUtils->gethostnameandip($instserver);
|
|
$instserver = $ip;
|
|
}
|
|
}
|
|
my $httpprefix = $pkgdir;
|
|
if ($installroot =~ /\/$/) {
|
|
$httpprefix =~ s/^$installroot/\/install\//;
|
|
} else {
|
|
$httpprefix =~ s/^$installroot/\/install/;
|
|
}
|
|
|
|
my $kcmdline;
|
|
|
|
my $kversion = $os;
|
|
$kversion =~ s/^\D*([\.0-9]+)/$1/;
|
|
$kversion =~ s/\.$//;
|
|
if ($pkvm) {
|
|
$kcmdline = "ksdevice=bootif kssendmac text selinux=0 rd.dm=0 rd.md=0 repo=$httpmethod://$instserver:$httpport$httpprefix/packages/ kvmp.inst.auto=$httpmethod://$instserver:$httpport/install/autoinst/$node root=live:$httpmethod://$instserver:$httpport$httpprefix/LiveOS/squashfs.img";
|
|
} else {
|
|
if (xCAT::Utils->version_cmp($kversion, "7.0") < 0) {
|
|
$kcmdline = "quiet repo=$httpmethod://$instserver:$httpport$httpprefix ks=$httpmethod://"
|
|
. $instserver . ":" . $httpport
|
|
. "/install/autoinst/"
|
|
. $node;
|
|
} else {
|
|
$kcmdline = "quiet inst.repo=$httpmethod://$instserver:$httpport$httpprefix inst.ks="
|
|
. "$httpmethod://"
|
|
. $instserver . ":" . $httpport
|
|
. "/install/autoinst/"
|
|
. $node;
|
|
}
|
|
}
|
|
if ($maxmem) {
|
|
$kcmdline .= " mem=$maxmem";
|
|
}
|
|
|
|
|
|
# Add kernel parameters to specify the boot network interface
|
|
if ($esxi) {
|
|
$ent->{installnic} =~ s/eth/vmnic/g;
|
|
$ent->{primarynic} =~ s/eth/vmnic/g;
|
|
}
|
|
my $mac;
|
|
if ($macent->{mac}) {
|
|
$mac = xCAT::Utils->parseMacTabEntry($macent->{mac}, $node);
|
|
}
|
|
my $net_params = xCAT::NetworkUtils->gen_net_boot_params($ent->{installnic}, $ent->{primarynic}, $mac);
|
|
|
|
my $nicname = $net_params->{nicname};
|
|
|
|
if (xCAT::Utils->version_cmp($kversion, "7.0") < 0) {
|
|
$kcmdline .= " $net_params->{ksdevice} ";
|
|
} elsif ($arch =~ /ppc/) {
|
|
$kcmdline .= " $net_params->{BOOTIF} ";
|
|
}
|
|
|
|
#if site.managedaddressmode=static, specify the network configuration as kernel options
|
|
#to avoid multicast dhcp
|
|
if ($::XCATSITEVALS{managedaddressmode} =~ /static/) {
|
|
my ($ipaddr, $hostname, $gateway, $netmask) = xCAT::NetworkUtils->getNodeNetworkCfg($node);
|
|
unless ($ipaddr) {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "cannot resolve the ip address of $node");
|
|
next;
|
|
}
|
|
|
|
if ($gateway eq '<xcatmaster>') {
|
|
my @gatewayd = xCAT::NetworkUtils->my_ip_facing($ipaddr);
|
|
unless ($gatewayd[0]) { $gateway = $gatewayd[1]; }
|
|
}
|
|
|
|
if (xCAT::Utils->version_cmp($kversion, "7.0") < 0) {
|
|
$kcmdline .= " ip=$ipaddr netmask=$netmask gateway=$gateway hostname=$hostname ";
|
|
} else {
|
|
$kcmdline .= " ip=$ipaddr" . "::" . "$gateway" . ":" . "$netmask" . ":" . "$hostname" . ":";
|
|
if($nicname){
|
|
$kcmdline .= "$nicname";
|
|
}
|
|
|
|
$kcmdline .=":none::";
|
|
if($net_params->{mac}){
|
|
$kcmdline .="$net_params->{mac}";
|
|
}
|
|
}
|
|
|
|
my %nameservers = %{ xCAT::NetworkUtils->getNodeNameservers([$node]) };
|
|
my @nameserverARR = split(",", $nameservers{$node});
|
|
my @nameserversIP;
|
|
foreach (@nameserverARR)
|
|
{
|
|
my $ip;
|
|
if ($_ eq '<xcatmaster>') {
|
|
my @ipd = xCAT::NetworkUtils->my_ip_facing($gateway);
|
|
unless ($ipd[0]) { $ip = $ipd[1]; }
|
|
} else {
|
|
(undef, $ip) = xCAT::NetworkUtils->gethostnameandip($_);
|
|
}
|
|
push @nameserversIP, $ip;
|
|
|
|
}
|
|
|
|
if (scalar @nameserversIP) {
|
|
if (xCAT::Utils->version_cmp($kversion, "7.0") < 0) {
|
|
$kcmdline .= " dns=" . join(",", @nameserversIP);
|
|
} else {
|
|
foreach (@nameserversIP) {
|
|
$kcmdline .= " nameserver=$_";
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
if (xCAT::Utils->version_cmp($kversion, "7.0") >= 0) {
|
|
$kcmdline .= " $net_params->{ip} ";
|
|
}
|
|
}
|
|
|
|
if (($::XCATSITEVALS{xcatdebugmode} eq "1") or ($::XCATSITEVALS{xcatdebugmode} eq "2")) {
|
|
unless ($instserver eq '!myipfn!') {
|
|
my ($host, $ip) = xCAT::NetworkUtils->gethostnameandip($instserver);
|
|
$instserver = $ip;
|
|
}
|
|
|
|
if (xCAT::Utils->version_cmp($kversion, "7.0") >= 0) {
|
|
if ($::XCATSITEVALS{xcatdebugmode} eq "2") {
|
|
|
|
#enable ssh access during installation
|
|
$kcmdline .= " inst.sshd";
|
|
}
|
|
|
|
#set minimum level of messages to be logged on the console
|
|
#to be "debug"
|
|
$kcmdline .= " inst.loglevel=debug";
|
|
|
|
#all the logs during installation will be forwarded to xcatmster
|
|
$kcmdline .= " inst.syslog=$instserver";
|
|
} else {
|
|
if ($::XCATSITEVALS{xcatdebugmode} eq "2") {
|
|
$kcmdline .= " sshd=1";
|
|
}
|
|
$kcmdline .= " syslog=$instserver";
|
|
}
|
|
|
|
}
|
|
|
|
|
|
#TODO: dd=<url> for driver disks
|
|
if (defined($sent->{serialport})) {
|
|
unless ($sent->{serialspeed}) {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "serialport defined, but no serialspeed for this node in nodehm table");
|
|
next;
|
|
}
|
|
|
|
#go cmdline if serial console is requested, the shiny ansi is just impractical
|
|
if (xCAT::Utils->version_cmp($kversion, "7.0") < 0) {
|
|
$kcmdline .= " cmdline ";
|
|
} else {
|
|
$kcmdline .= " inst.cmdline ";
|
|
}
|
|
|
|
if ($arch =~ /ppc64/i) {
|
|
|
|
# For IBM Power machines, either ppc64 or ppc64le (ppc64el),
|
|
# both the physical serial port or virtual serial port appeared
|
|
# in PowerVM LPAR or PowerKVM guest use device /dev/hvc0 or
|
|
# /dev/hvc1 instead of /dev/ttyS0 or /dev/ttyS1
|
|
$kcmdline .= " console=tty0 console=hvc" . $sent->{serialport} . "," . $sent->{serialspeed};
|
|
} else {
|
|
$kcmdline .= " console=tty0 console=ttyS" . $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) {
|
|
$k = "$rtftppath/mboot.c32";
|
|
$i = "";
|
|
my @addfiles = qw(vmkernel.gz sys.vgz cim.vgz ienviron.vgz install.vgz mod.tgz);
|
|
$kcmdline = "$rtftppath/vmkboot.gz " . $kcmdline;
|
|
foreach (@addfiles) {
|
|
$kcmdline .= " --- $rtftppath/$_";
|
|
}
|
|
|
|
#}elsif ($pkvm) {
|
|
# $k = "$httpmethod://$instserver:$httpport$tftppath/vmlinuz";
|
|
# $i = "$httpmethod://$instserver:$httpport$tftppath/initrd.img";
|
|
} else {
|
|
$k = "$rtftppath/vmlinuz";
|
|
$i = "$rtftppath/initrd.img";
|
|
}
|
|
|
|
xCAT::MsgUtils->trace($verbose_on_off, "d", "anaconda->mkinstall: kcmdline=$kcmdline kernal=$k initrd=$i");
|
|
|
|
$bootparams->{$node}->[0]->{kernel} = $k;
|
|
$bootparams->{$node}->[0]->{initrd} = $i;
|
|
$bootparams->{$node}->[0]->{kcmdline} = $kcmdline;
|
|
}
|
|
else {
|
|
xCAT::MsgUtils->report_node_error($callback, $node, "Install image not found in $pkgdir");
|
|
next;
|
|
}
|
|
} # end foreach node
|
|
|
|
#my $rc = xCAT::TableUtils->create_postscripts_tar();
|
|
#if ($rc != 0)
|
|
#{
|
|
# xCAT::MsgUtils->message("S", "Error creating postscripts tar file.");
|
|
#}
|
|
}
|
|
|
|
sub mksysclone
|
|
{
|
|
my $request = shift;
|
|
my $callback = shift;
|
|
my $doreq = shift;
|
|
my @nodes = @{ $request->{node} };
|
|
my $bootparams = ${$request->{bootparams}};
|
|
my $linuximagetab;
|
|
my $osimagetab;
|
|
my %img_hash = ();
|
|
|
|
my $installroot = xCAT::TableUtils->getInstallDir();
|
|
my $globaltftpdir = xCAT::TableUtils->getTftpDir();
|
|
xCAT::MsgUtils->trace(0, "d", "anaconda->mksysclone: installroot=$installroot globaltftpdir=$globaltftpdir");
|
|
|
|
|
|
my $node;
|
|
my $ostab = xCAT::Table->new('nodetype');
|
|
my %donetftp;
|
|
my $restab = xCAT::Table->new('noderes');
|
|
my $hmtab = xCAT::Table->new('nodehm');
|
|
my $mactab = xCAT::Table->new('mac');
|
|
|
|
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' ]) };
|
|
my %macents = %{ $mactab->getNodesAttribs(\@nodes, ['mac']) };
|
|
|
|
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];
|
|
|
|
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/))
|
|
{
|
|
if (!defined($::DISABLENODESETWARNING)) { # set by AAsn.pm
|
|
$callback->(
|
|
{
|
|
error => ["The options \"install\", \"netboot\", and \"statelite\" have been deprecated, use \"nodeset <noderange> osimage=<osimage_name>\" instead."], errorcode => [1]
|
|
}
|
|
);
|
|
|
|
# Do not print this warning message multiple times
|
|
exit(1);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# copy postscripts, the xCAT scripts may update, but the image is captured long time ago
|
|
# should update the scripts at each nodeset
|
|
my $script1 = "configefi";
|
|
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");
|
|
copy("$installroot/postscripts/makeinitrd", "$pspath/20all.makeinitrd");
|
|
|
|
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");
|
|
#}
|
|
|
|
|
|
if (-e "$pspath/95all.monitord_rebooted")
|
|
{
|
|
`rm $pspath/95all.monitord_rebooted`;
|
|
}
|
|
|
|
|
|
# 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 {
|
|
$xcatmaster = $master_entry;
|
|
}
|
|
|
|
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
|
|
|
|
=pod
|
|
my $kernpath;
|
|
my $initrdpath;
|
|
my $ramdisk_size = 200000;
|
|
|
|
if (
|
|
-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"
|
|
)
|
|
=cut
|
|
|
|
my $ramdisk_size = 200000;
|
|
my $kernpath = `ls -l $tftpdir/xcat/|grep "genesis.kernel.$arch"|awk '{print \$9}'`;
|
|
chomp($kernpath);
|
|
my $initrdpath = `ls -l $tftpdir/xcat/|grep "genesis.fs.$arch"| awk '{print \$9}'`;
|
|
chomp($initrdpath);
|
|
|
|
if ($kernpath ne '' and $initrdpath ne '')
|
|
{
|
|
#We have a shot...
|
|
my $ent = $rents{$node}->[0];
|
|
my $sent = $hents{$node}->[0];
|
|
my $macent = $macents{$node}->[0];
|
|
|
|
my $kcmdline = "ramdisk_size=$ramdisk_size";
|
|
|
|
# Add kernel parameters to specify the boot network interface
|
|
my $mac;
|
|
if ($macent->{mac}) {
|
|
$mac = xCAT::Utils->parseMacTabEntry($macent->{mac}, $node);
|
|
}
|
|
my $net_params = xCAT::NetworkUtils->gen_net_boot_params($ent->{installnic}, $ent->{primarynic}, $mac);
|
|
$kcmdline .= " $net_params->{ksdevice} ";
|
|
if ($arch =~ /ppc/) {
|
|
$kcmdline .= " $net_params->{BOOTIF} ";
|
|
}
|
|
|
|
#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";
|
|
}
|
|
}
|
|
$kcmdline .= " XCAT=$xcatmaster:$xcatdport xcatd=$xcatmaster:$xcatdport SCRIPTNAME=$imagename";
|
|
|
|
my $k;
|
|
my $i;
|
|
|
|
#$k = "xcat/genesis.kernel.$arch";
|
|
#$i = "xcat/genesis.fs.$arch.lzma";
|
|
|
|
$k = "xcat/$kernpath";
|
|
$i = "xcat/$initrdpath";
|
|
$bootparams->{$node}->[0]->{kernel} = $k;
|
|
$bootparams->{$node}->[0]->{initrd} = $i;
|
|
$bootparams->{$node}->[0]->{kcmdline} = $kcmdline;
|
|
}
|
|
else
|
|
{
|
|
$callback->(
|
|
{
|
|
error => ["Kernel and initrd not found in $tftpdir/xcat"],
|
|
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 $rc = xCAT::Utils->runcmd($cmd, -1);
|
|
|
|
my $imagedir;
|
|
my $osimagetab = xCAT::Table->new('linuximage');
|
|
my $osimageentry = $osimagetab->getAttribs({ imagename => $imagename }, 'rootimgdir');
|
|
if ($osimageentry) {
|
|
$imagedir = $osimageentry->{rootimgdir};
|
|
$imagedir =~ s/^(\/.*)\/.+\/?$/$1/;
|
|
} else {
|
|
$imagedir = "$installroot/sysclone/images";
|
|
$cmd = "chdef -t osimage $imagename rootimgdir=$imagedir/$imagename";
|
|
$rc = `$cmd`;
|
|
}
|
|
|
|
my $cfgimagedir = `cat /etc/systemimager/rsync_stubs/40$imagename|grep path`;
|
|
chomp($cfgimagedir);
|
|
$cfgimagedir =~ s/^\s+path=(\/.*)\/.+$/$1/g;
|
|
|
|
if ($imagedir ne $cfgimagedir) {
|
|
my $oldstr = `cat /etc/systemimager/rsync_stubs/40$imagename|grep path`;
|
|
chomp($oldstr);
|
|
$oldstr =~ s/\//\\\\\//g;
|
|
|
|
my $targetstr = "\tpath=" . $imagedir . "/" . $imagename;
|
|
$targetstr =~ s/\//\\\\\//g;
|
|
$cmd = "sed -i \"s/$oldstr/$targetstr/\" /etc/systemimager/rsync_stubs/40$imagename";
|
|
$rc = `$cmd`;
|
|
}
|
|
|
|
$rc = `export PERL5LIB=/usr/lib/perl5/site_perl/;LANG=C si_mkrsyncd_conf`;
|
|
|
|
unless (-r "$imagedir/$imagename/opt/xcat/xcatdsklspost")
|
|
{
|
|
mkpath("$imagedir/$imagename/opt/xcat/");
|
|
copy("$installroot/postscripts/xcatdsklspost", "$imagedir/$imagename/opt/xcat/");
|
|
}
|
|
|
|
}
|
|
|
|
# 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 $retcode = xCAT::Utils->checkservicestatus("systemimager-server-rsyncd");
|
|
if ($retcode != 0) {
|
|
my $rc = xCAT::Utils->startservice("systemimager-server-rsyncd");
|
|
if ($rc != 0) {
|
|
$callback->(
|
|
{ error => [ "systemimager-server-rsyncd start unsuccessfully. please check if there is rsync service already run in your s
|
|
erver, if so, stop it first and try again" ],
|
|
errorcode => [1] }
|
|
);
|
|
return 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
sub copycd
|
|
{
|
|
my $request = shift;
|
|
my $callback = shift;
|
|
my $doreq = shift;
|
|
my $installroot = "/install";
|
|
my $sitetab = xCAT::Table->new('site');
|
|
|
|
require xCAT::data::discinfo;
|
|
|
|
my @ents = xCAT::TableUtils->get_site_attribute("installdir");
|
|
my $site_ent = $ents[0];
|
|
if (defined($site_ent))
|
|
{
|
|
$installroot = $site_ent;
|
|
}
|
|
|
|
my $distname;
|
|
my $arch;
|
|
my $path;
|
|
my $mntpath = undef;
|
|
my $inspection = undef;
|
|
my $noosimage = undef;
|
|
my $nonoverwrite = undef;
|
|
|
|
@ARGV = @{ $request->{arg} };
|
|
GetOptions(
|
|
'n=s' => \$distname,
|
|
'a=s' => \$arch,
|
|
'p=s' => \$path,
|
|
'm=s' => \$mntpath,
|
|
'i' => \$inspection,
|
|
'o' => \$noosimage,
|
|
'w' => \$nonoverwrite,
|
|
);
|
|
unless ($mntpath)
|
|
{
|
|
|
|
#this plugin needs $mntpath...
|
|
return;
|
|
}
|
|
if ($distname
|
|
and $distname !~ /^centos/
|
|
and $distname !~ /^fedora/
|
|
and $distname !~ /^SL/
|
|
and $distname !~ /^ol/
|
|
and $distname !~ /^pkvm/
|
|
and $distname !~ /^rh/)
|
|
{
|
|
|
|
#If they say to call it something unidentifiable, give up?
|
|
return;
|
|
}
|
|
unless (-r $mntpath . "/.discinfo")
|
|
{
|
|
return;
|
|
}
|
|
my $dinfo;
|
|
open($dinfo, $mntpath . "/.discinfo");
|
|
my $did = <$dinfo>;
|
|
chomp($did);
|
|
my $desc = <$dinfo>;
|
|
chomp($desc);
|
|
my $darch = <$dinfo>;
|
|
chomp($darch);
|
|
my $dno = <$dinfo>;
|
|
chomp($dno);
|
|
|
|
if ($darch and $darch =~ /i.86/)
|
|
{
|
|
$darch = "x86";
|
|
}
|
|
close($dinfo);
|
|
if ($xCAT::data::discinfo::distnames{$did})
|
|
{
|
|
unless ($distname)
|
|
{
|
|
$distname = $xCAT::data::discinfo::distnames{$did};
|
|
}
|
|
}
|
|
|
|
unless ($distname)
|
|
{
|
|
print "INFO - Could not find ID=$did in the discinfo database for OS=$desc ARCH=$darch NUM=$dno\n";
|
|
print "INFO - Attempting to auto-detect...\n";
|
|
if ($desc =~ /IBM_PowerKVM/)
|
|
{
|
|
# check for PowerKVM support
|
|
my @pkvm_version = split / /, $desc;
|
|
$distname = "pkvm" . $pkvm_version[1];
|
|
}
|
|
elsif ($desc =~ /Red Hat Enterprise Linux/)
|
|
{
|
|
#
|
|
# Attempt to auto-detect for RHEL OS, the last element has typically been the version
|
|
#
|
|
my @rhel_version = split / /, $desc;
|
|
if (scalar @rhel_version > 5) {
|
|
$distname = "rhels" . $rhel_version[-1] . "-" . lc($rhel_version[4]);
|
|
}
|
|
else {
|
|
$distname = "rhels" . $rhel_version[-1];
|
|
}
|
|
open($dinfo, $mntpath . "/.treeinfo");
|
|
while (<$dinfo>) {
|
|
chomp($_);
|
|
s/\s+$//; #remove trailing spaces
|
|
next if /^\s*$/; #-- skip empty lines
|
|
if ($_ =~ /variant = ComputeNode/) {
|
|
$distname = "rhelhpc" . $rhel_version[4];
|
|
last;
|
|
}
|
|
}
|
|
close($dinfo);
|
|
}
|
|
elsif ($desc =~ /^[\d\.]+$/)
|
|
{
|
|
open($dinfo, $mntpath . "/.treeinfo");
|
|
while (<$dinfo>) {
|
|
chomp($_);
|
|
s/\s+$//; #remove trailing spaces
|
|
next if /^\s*$/; #-- skip empty lines
|
|
if ($_ =~ /family\s*=\s*CentOS/i) {
|
|
$distname = "centos" . $desc;
|
|
last;
|
|
}
|
|
}
|
|
close($dinfo);
|
|
}
|
|
else
|
|
{
|
|
print "INFO - Could not auto-detect operating system.\n";
|
|
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 eq "ppc") { $arch = "ppc64" }
|
|
}
|
|
|
|
if ($inspection)
|
|
{
|
|
my $retinfo = "DISTNAME:$distname\n" . "ARCH:$arch\n";
|
|
if ($dno) {
|
|
$retinfo = $retinfo . "DISCNO:$dno\n";
|
|
}
|
|
$callback->(
|
|
{
|
|
info => "$retinfo"
|
|
}
|
|
);
|
|
return;
|
|
}
|
|
print "INFO - detected distname=$distname, arch=$arch\n";
|
|
|
|
%{$request} = (); #clear request we've got it.
|
|
my $disccopiedin = 0;
|
|
my $osdistroname = $distname . "-" . $arch;
|
|
|
|
my $defaultpath = "$installroot/$distname/$arch";
|
|
unless ($path)
|
|
{
|
|
$path = $defaultpath;
|
|
}
|
|
if ($::XCATSITEVALS{osimagerequired}) {
|
|
my ($nohaveimages, $errstr) = xCAT::SvrUtils->update_tables_with_templates($distname, $arch, $path, $osdistroname, checkonly => 1);
|
|
if ($nohaveimages) {
|
|
$callback->({ error => "No Templates found to support $distname($arch)", errorcode => 2 });
|
|
return;
|
|
}
|
|
}
|
|
if ($::XCATSITEVALS{onlysupportarchs} and $::XCATSITEVALS{onlysupportarchs} ne $arch) {
|
|
$callback->({ error => "$arch is unsupported by this system", errorcode => 2 });
|
|
return;
|
|
}
|
|
|
|
|
|
#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();
|
|
|
|
|
|
|
|
$callback->({ data => "Copying media to $path" });
|
|
my $omask = umask 0022;
|
|
if (-l $path)
|
|
{
|
|
unlink($path);
|
|
}
|
|
mkpath("$path");
|
|
umask $omask;
|
|
|
|
my $rc;
|
|
my $reaped = 0;
|
|
$SIG{INT} = $SIG{TERM} = sub {
|
|
foreach (@cpiopid) {
|
|
kill 2, $_;
|
|
}
|
|
if ($mntpath) {
|
|
chdir("/");
|
|
system("umount $mntpath");
|
|
}
|
|
};
|
|
|
|
my $KID;
|
|
chdir $mntpath;
|
|
my $numFiles = scalar(@sortedfilelist);
|
|
my $child = open($KID, "|-");
|
|
unless (defined $child)
|
|
{
|
|
$callback->({ error => "Media copy operation fork failure" });
|
|
return;
|
|
}
|
|
if ($child)
|
|
{
|
|
push @cpiopid, $child;
|
|
chdir("/");
|
|
for (@sortedfilelist)
|
|
{
|
|
print $KID $_ . "\n";
|
|
}
|
|
close($KID);
|
|
$rc = $?;
|
|
}
|
|
else
|
|
{
|
|
nice 10;
|
|
my $c = "nice -n 20 cpio -vdump $path";
|
|
my $k2 = open(PIPE, "$c 2>&1 |") || exit(1);
|
|
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;
|
|
}
|
|
if ($copied == $numFiles)
|
|
{
|
|
#media copy success
|
|
exit(0);
|
|
}
|
|
else
|
|
{
|
|
#media copy failed
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
#my $rc = system("cd $path; find . | nice -n 20 cpio -dump $installroot/$distname/$arch");
|
|
#my $rc = system("cd $path;rsync -a . $installroot/$distname/$arch/");
|
|
chmod 0755, "$path";
|
|
|
|
#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);
|
|
}
|
|
}
|
|
|
|
xCAT::Yum->localize_yumrepo($path, $distname, $arch);
|
|
|
|
if ($rc != 0)
|
|
{
|
|
$callback->({ error => "Media copy operation failed, status $rc" });
|
|
}
|
|
else
|
|
{
|
|
$callback->({ data => "Media copy operation successful" });
|
|
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] });
|
|
}
|
|
|
|
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] });
|
|
}
|
|
|
|
#hiding the messages about this not being found, since it may be intentional
|
|
|
|
my @ret = xCAT::SvrUtils->update_tables_with_mgt_image($distname, $arch, $path, $osdistroname);
|
|
|
|
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);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
sub getplatform {
|
|
my $os = shift;
|
|
my $platform;
|
|
if ($os =~ /rh.*/)
|
|
{
|
|
$platform = "rh";
|
|
}
|
|
elsif ($os =~ /centos.*/)
|
|
{
|
|
$platform = "centos";
|
|
}
|
|
elsif ($os =~ /fedora.*/)
|
|
{
|
|
$platform = "fedora";
|
|
}
|
|
elsif ($os =~ /esxi.*/)
|
|
{
|
|
$platform = "esxi";
|
|
}
|
|
elsif ($os =~ /esx.*/)
|
|
{
|
|
$platform = "esx";
|
|
}
|
|
elsif ($os =~ /SL.*/)
|
|
{
|
|
$platform = "SL";
|
|
}
|
|
elsif ($os =~ /ol.*/)
|
|
{
|
|
$platform = "ol";
|
|
}
|
|
|
|
return $platform;
|
|
}
|
|
|
|
|
|
sub copyesxiboot {
|
|
my $srcdir = shift;
|
|
my $targetdir = shift;
|
|
my %args = @_;
|
|
my $os = 'esxi';
|
|
if ($args{osver}) { $os = $args{osver} }
|
|
|
|
# this just does the same thing that the stateless version does.
|
|
unless (-f "$targetdir/mod.tgz") {
|
|
require xCAT_plugin::esx;
|
|
xCAT_plugin::esx::makecustomizedmod($os, $targetdir);
|
|
}
|
|
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");
|
|
}
|
|
}
|
|
|
|
# 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.
|
|
#
|
|
|
|
sub insert_dd {
|
|
my $callback = shift;
|
|
if ($callback eq "xCAT_plugin::anaconda") {
|
|
$callback = shift;
|
|
}
|
|
my $os = shift;
|
|
my $arch = shift;
|
|
my $img = shift;
|
|
my $kernelpath = shift;
|
|
my $driverupdatesrc = shift;
|
|
my $drivers = shift;
|
|
my $osupdirlist = shift;
|
|
my $ignorekernelchk = shift;
|
|
|
|
my $install_dir = xCAT::TableUtils->getInstallDir();
|
|
|
|
my $cmd;
|
|
|
|
my @inserted_dd = ();
|
|
my @dd_drivers = ();
|
|
|
|
my @dd_list;
|
|
my @rpm_list;
|
|
my @vendor_rpm; # the rpms from driverupdatesrc attribute
|
|
my @driver_list;
|
|
my $Injectalldriver;
|
|
my $updatealldriver;
|
|
|
|
my @rpm_drivers;
|
|
|
|
# since the all rpms for drivers searching will be extracted to one dir, the newer rpm should be
|
|
# extracted later so that the newer drivers will overwirte the older one if certain drvier is included
|
|
# in multiple rpms
|
|
#
|
|
# The order of rpm list in the @rpm_list should be: osdistroupdate1, osdistroupdate2, driverupdatesrc
|
|
#
|
|
# get the kernel-*.rpm from the dirpath of osdistroupdate
|
|
if ($osupdirlist) {
|
|
my @osupdirs = split(/,/, $osupdirlist);
|
|
foreach my $osupdir (@osupdirs) {
|
|
|
|
# find all the rpms start with kernel.*
|
|
my @kernel_rpms = `find $osupdir -name 'kernel-*.rpm'`;
|
|
push @rpm_list, @kernel_rpms;
|
|
}
|
|
}
|
|
|
|
# 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;
|
|
push @vendor_rpm, $1;
|
|
} else {
|
|
push @rpm_list, $src;
|
|
push @vendor_rpm, $src;
|
|
}
|
|
}
|
|
}
|
|
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);
|
|
}
|
|
}
|
|
|
|
foreach (split /,/, $drivers) {
|
|
if (/^allupdate$/) {
|
|
$Injectalldriver = 1;
|
|
next;
|
|
} elsif (/^updateonly$/) {
|
|
$updatealldriver = 1;
|
|
next;
|
|
}
|
|
unless (/\.ko$/) {
|
|
s/$/.ko/;
|
|
}
|
|
push @driver_list, $_;
|
|
}
|
|
|
|
chomp(@dd_list);
|
|
chomp(@rpm_list);
|
|
chomp(@vendor_rpm);
|
|
|
|
unless (@dd_list || (@rpm_list && ($Injectalldriver || $updatealldriver || @driver_list))) {
|
|
return ();
|
|
}
|
|
|
|
# Create the tmp dir for dd hack
|
|
my $dd_dir = mkdtemp("/tmp/ddtmpXXXXXXX");
|
|
|
|
# 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
|
|
if (!<$install_dir/$os/$arch/Packages/dracut*> || (@rpm_list && ($Injectalldriver || $updatealldriver || @driver_list))) {
|
|
mkpath "$dd_dir/initrd_img"; # The dir for the new initrd
|
|
|
|
# unzip the initrd image
|
|
$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 {
|
|
|
|
# check whether it can be handled by xz
|
|
$cmd = "xz -t $img";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) {
|
|
my $rsp;
|
|
push @{ $rsp->{data} }, "Could not handle the format of the initrd.";
|
|
xCAT::MsgUtils->message("E", $rsp, $callback);
|
|
return ();
|
|
} else {
|
|
$initrdfmt = "lzma";
|
|
}
|
|
}
|
|
|
|
|
|
if ($initrdfmt eq "gzip") {
|
|
$cmd = "gunzip -c $img > $dd_dir/initrd";
|
|
} elsif ($initrdfmt eq "lzma") {
|
|
if (!-x "/usr/bin/xz") {
|
|
my $rsp;
|
|
push @{ $rsp->{data} }, "The format of initrd for the target node is \'lzma\', but this management node has not xz command.";
|
|
xCAT::MsgUtils->message("E", $rsp, $callback);
|
|
return ();
|
|
}
|
|
$cmd = "xzcat $img > $dd_dir/initrd";
|
|
}
|
|
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);
|
|
return ();
|
|
}
|
|
|
|
# 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);
|
|
return ();
|
|
}
|
|
|
|
my $new_kernel_ver;
|
|
if (@rpm_list && ($Injectalldriver || $updatealldriver || @driver_list)) {
|
|
|
|
# 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";
|
|
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);
|
|
}
|
|
|
|
# get the new kernel if it exists in the update distro
|
|
# and copy it to the /tftpboot
|
|
my @new_kernels = <$dd_dir/rpm/boot/vmlinuz*>;
|
|
foreach my $new_kernel (@new_kernels) {
|
|
if (-r $new_kernel && $new_kernel =~ /\/vmlinuz-(.*(x86_64|ppc64|el\d+|ppc64le))$/) {
|
|
$new_kernel_ver = $1;
|
|
$cmd = "/bin/mv -f $new_kernel $kernelpath";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) {
|
|
my $rsp;
|
|
push @{ $rsp->{data} }, "Handle the driver update failed. Could not move $new_kernel to $kernelpath.";
|
|
xCAT::MsgUtils->message("I", $rsp, $callback);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# Extract files from vendor rpm when $ignorekernelchk is specified
|
|
if ($ignorekernelchk) {
|
|
mkpath "$dd_dir/vendor_rpm";
|
|
foreach my $rpm (@vendor_rpm) {
|
|
if (-r $rpm) {
|
|
$cmd = "cd $dd_dir/vendor_rpm; rpm2cpio $rpm | cpio -idum";
|
|
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);
|
|
}
|
|
}
|
|
}
|
|
|
|
# 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 = ();
|
|
my @rpmfiles = <$dd_dir/rpm/*>;
|
|
if ($ignorekernelchk) {
|
|
push @rpmfiles, <$dd_dir/vendor_rpm/*>;
|
|
}
|
|
find(\&get_all_path, @rpmfiles);
|
|
foreach my $file (@all_real_path) {
|
|
my $newname = $file;
|
|
$newname =~ s/\.new$//;
|
|
$cmd = "/bin/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);
|
|
}
|
|
}
|
|
}
|
|
|
|
# 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
|
|
|
|
if (@rpm_list && ($Injectalldriver || $updatealldriver || @driver_list)) {
|
|
|
|
# Copy the firmware to the rootimage
|
|
if (-d "$dd_dir/rpm/lib/firmware") {
|
|
if (!-d "$dd_dir/initrd_img/lib/firmware") {
|
|
mkpath "$dd_dir/initrd_img/lib/firmware";
|
|
}
|
|
$cmd = "/bin/cp -rf $dd_dir/rpm/lib/firmware/* $dd_dir/initrd_img/lib/firmware";
|
|
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("E", $rsp, $callback);
|
|
}
|
|
}
|
|
|
|
# get the name list for all drivers in the original initrd if 'netdrivers=updateonly'
|
|
# then only the drivers in this list will be updated from the drvier rpms
|
|
if ($updatealldriver) {
|
|
$driver_name = "\*\.ko";
|
|
@all_real_path = ();
|
|
find(\&get_all_path, <$dd_dir/initrd_img/lib/modules/*>);
|
|
foreach my $real_path (@all_real_path) {
|
|
my $driver = basename($real_path);
|
|
push @driver_list, $driver;
|
|
}
|
|
}
|
|
|
|
# Copy the drivers to the initrd
|
|
# Figure out the kernel version
|
|
my @kernelpaths = <$dd_dir/initrd_img/lib/modules/*>;
|
|
my @kernelvers;
|
|
if ($new_kernel_ver) {
|
|
push @kernelvers, $new_kernel_ver;
|
|
}
|
|
|
|
# if new kernel is used, remove all the original kernel directories
|
|
foreach (@kernelpaths) {
|
|
my $kernelv = basename($_);
|
|
if ($kernelv =~ /^[\d\.]+/) {
|
|
if ($new_kernel_ver) {
|
|
rmtree("$dd_dir/initrd_img/lib/modules/$kernelv");
|
|
} else {
|
|
push @kernelvers, $kernelv;
|
|
}
|
|
}
|
|
}
|
|
|
|
foreach my $kernelver (@kernelvers) {
|
|
|
|
# if $ignorekernelchk is specified, copy all files from vendor_rpm dir to target kernel dir
|
|
if ($ignorekernelchk) {
|
|
my @kernelpath4vrpm = <$dd_dir/vendor_rpm/lib/modules/*>;
|
|
foreach my $path (@kernelpath4vrpm) {
|
|
unless (-d "$dd_dir/rpm/lib/modules/$kernelver") {
|
|
mkpath "$dd_dir/rpm/lib/modules/$kernelver";
|
|
}
|
|
$cmd = "/bin/cp -rf $path/* $dd_dir/rpm/lib/modules/$kernelver";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) {
|
|
my $rsp;
|
|
push @{ $rsp->{data} }, "Handle the driver update failed. Could not copy driver $path from vendor rpm.";
|
|
xCAT::MsgUtils->message("I", $rsp, $callback);
|
|
}
|
|
}
|
|
}
|
|
|
|
unless (-d "$dd_dir/rpm/lib/modules/$kernelver") {
|
|
next;
|
|
}
|
|
|
|
if (@driver_list) {
|
|
foreach my $driver (@driver_list) {
|
|
$driver =~ s/\.gz$//;
|
|
$driver_name = $driver;
|
|
@all_real_path = ();
|
|
find(\&get_all_path, <$dd_dir/rpm/lib/modules/$kernelver/*>);
|
|
foreach my $real_path (@all_real_path) {
|
|
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 = "/bin/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 = "/bin/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);
|
|
}
|
|
}
|
|
|
|
# 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 drivers depdency for $kernelver in the initrd.";
|
|
xCAT::MsgUtils->message("I", $rsp, $callback);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
#insert a dracut pre-pivot hook to update the kernel modules in the stage2 LiveOS image
|
|
#with the kernel modules inside initrd
|
|
if (-d "$dd_dir/initrd_img/usr/lib/dracut/hooks/pre-pivot") {
|
|
my $hookcopykmod;
|
|
open($hookcopykmod, ">", "$dd_dir/initrd_img/usr/lib/dracut/hooks/pre-pivot/01-anaconda-copy-kernelmodules.sh");
|
|
print $hookcopykmod <<'EOMS';
|
|
#!/bin/sh
|
|
# Copy over kernel module files under /usr/lib/modules/<kernel version> from the initrd to /run before pivot
|
|
|
|
function mycopytree {
|
|
SRCPATH=$1
|
|
DSTPATH=$2
|
|
|
|
[ -d "$SRCPATH" ] || return 1
|
|
|
|
# avoid overwriting symlinks (e.g. /lib -> /usr/lib) with directories
|
|
mkdir -p $DSTPATH
|
|
cd $SRCPATH
|
|
find . -depth -type d | while read dir; do
|
|
mkdir -p "$DSTPATH/$dir"
|
|
done
|
|
find . -depth \! -type d | while read file; do
|
|
\cp -a "$file" "$DSTPATH/$file"
|
|
done
|
|
|
|
return 0
|
|
}
|
|
|
|
KVERSION=$(uname -r)
|
|
if [ -b /dev/mapper/live-rw ] && [ -d "/usr/lib/modules/$KVERSION" ]; then
|
|
info "Applying updated kernel modules to live image..."
|
|
mount -o bind /run $NEWROOT/run
|
|
mycopytree "/usr/lib/modules/$KVERSION" "$NEWROOT/usr/lib/modules/$KVERSION"
|
|
umount $NEWROOT/run
|
|
fi
|
|
EOMS
|
|
close($hookcopykmod);
|
|
chmod(0755, "$dd_dir/initrd_img/usr/lib/dracut/hooks/pre-pivot/01-anaconda-copy-kernelmodules.sh");
|
|
}
|
|
|
|
} else { # non dracut mode, for rh5, fedora12 ...
|
|
# For non-dracut mode, the drviers need to be merged into the initrd with the specific format
|
|
|
|
# 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";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) {
|
|
my $rsp;
|
|
push @{ $rsp->{data} }, "Handle the driver update disk failed. Could not gunzip modules.cgz from the initial initrd.";
|
|
xCAT::MsgUtils->message("E", $rsp, $callback);
|
|
return ();
|
|
}
|
|
|
|
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);
|
|
return ();
|
|
}
|
|
|
|
$cmd = "cd $dd_dir/dd_modules; gunzip -c $dd_dir/mnt/modules.cgz | cpio -id";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
|
|
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");
|
|
return ();
|
|
}
|
|
|
|
# Copy all the driver files out
|
|
$cmd = "/bin/cp -rf $dd_dir/dd_modules/* $dd_dir/modules";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
|
|
# Copy the firmware into the initrd
|
|
mkpath "$dd_dir/initrd_img/firmware";
|
|
$cmd = "/bin/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);
|
|
|
|
# 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);
|
|
}
|
|
|
|
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);
|
|
}
|
|
|
|
$cmd = "umount -f $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 unmount the driver update disk.";
|
|
xCAT::MsgUtils->message("E", $rsp, $callback);
|
|
system("umount -f $dd_dir/mnt");
|
|
return ();
|
|
}
|
|
|
|
# Clean the env
|
|
rmtree "$dd_dir/mnt";
|
|
rmtree "$dd_dir/dd_modules";
|
|
|
|
push @inserted_dd, $dd;
|
|
}
|
|
|
|
# Merge the drviers from rpm packages to the initrd
|
|
if (@rpm_list && ($Injectalldriver || $updatealldriver || @driver_list)) {
|
|
|
|
# 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 = "/bin/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);
|
|
}
|
|
}
|
|
|
|
# if the new kernel from update distro is not existed in initrd, create the path for it
|
|
if (!-r "$dd_dir/modules/$new_kernel_ver/$arch/") {
|
|
mkpath("$dd_dir/modules/$new_kernel_ver/$arch/");
|
|
}
|
|
|
|
# get the name list for all drivers in the original initrd if 'netdrivers=updateonly'
|
|
# then only the drivers in this list will be updated from the drvier rpms
|
|
if ($updatealldriver) {
|
|
$driver_name = "\*\.ko";
|
|
@all_real_path = ();
|
|
find(\&get_all_path, <$dd_dir/modules/*>);
|
|
foreach my $real_path (@all_real_path) {
|
|
my $driver = basename($real_path);
|
|
push @driver_list, $driver;
|
|
}
|
|
}
|
|
|
|
# Copy the drivers to the initrd
|
|
# Figure out the kernel version
|
|
my @kernelpaths = <$dd_dir/modules/*>;
|
|
my @kernelvers;
|
|
if ($new_kernel_ver) {
|
|
push @kernelvers, $new_kernel_ver;
|
|
}
|
|
foreach (@kernelpaths) {
|
|
my $kernelv = basename($_);
|
|
if ($kernelv =~ /^[\d\.]+/) {
|
|
if ($new_kernel_ver) {
|
|
rmtree("$dd_dir/modules/$kernelv");
|
|
} else {
|
|
push @kernelvers, $kernelv;
|
|
}
|
|
}
|
|
}
|
|
|
|
foreach my $kernelver (@kernelvers) {
|
|
|
|
# if $ignorekernelchk is specified, copy all files from vendor_rpm dir to target kernel dir
|
|
if ($ignorekernelchk) {
|
|
my @kernelpath4vrpm = <$dd_dir/vendor_rpm/lib/modules/*>;
|
|
foreach my $path (@kernelpath4vrpm) {
|
|
unless (-d "$dd_dir/rpm/lib/modules/$kernelver") {
|
|
mkpath "$dd_dir/rpm/lib/modules/$kernelver";
|
|
}
|
|
$cmd = "/bin/cp -rf $path/* $dd_dir/rpm/lib/modules/$kernelver";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) {
|
|
my $rsp;
|
|
push @{ $rsp->{data} }, "Handle the driver update failed. Could not copy driver $path from vendor rpm.";
|
|
xCAT::MsgUtils->message("I", $rsp, $callback);
|
|
}
|
|
}
|
|
}
|
|
|
|
unless (-d "$dd_dir/rpm/lib/modules/$kernelver") {
|
|
next;
|
|
}
|
|
|
|
# create path for the new kernel in the modules package
|
|
unless (-d "$dd_dir/modules/$kernelver") {
|
|
mkpath("$dd_dir/modules/$kernelver/$arch/");
|
|
}
|
|
|
|
# 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;
|
|
@all_real_path = ();
|
|
find(\&get_all_path, <$dd_dir/rpm/lib/modules/$kernelver/*>);
|
|
foreach my $real_path (@all_real_path) {
|
|
$cmd = "/bin/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;
|
|
}
|
|
}
|
|
}
|
|
} elsif ($Injectalldriver) {
|
|
|
|
# copy all the drviers to the initrd
|
|
if (-d "$dd_dir/rpm/lib/modules/$kernelver") {
|
|
$driver_name = "\*\.ko";
|
|
@all_real_path = ();
|
|
find(\&get_all_path, <$dd_dir/rpm/lib/modules/$kernelver/*>);
|
|
foreach my $driverpath (@all_real_path) {
|
|
$cmd = "/bin/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);
|
|
}
|
|
}
|
|
}
|
|
|
|
# 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("/bin/cp -rf $ma/* $dd_dir/depmod/lib/modules/$mk", -1);
|
|
$cmd = "depmod -b $dd_dir/depmod/ $mk";
|
|
|
|
#$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);
|
|
}
|
|
|
|
# remove the .ko postfix from the driver name for rh5
|
|
$cmd = "/bin/sed " . 's/\.ko//g' . " $dd_dir/depmod/lib/modules/$mk/modules.dep > $dd_dir/depmod/lib/modules/$mk/modules.dep1; mv -f $dd_dir/depmod/lib/modules/$mk/modules.dep1 $dd_dir/depmod/lib/modules/$mk/modules.dep";
|
|
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");
|
|
}
|
|
|
|
# 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);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
# 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;
|
|
}
|
|
}
|
|
|
|
if ($removeflag == 1) { next; }
|
|
print MODINFONEW $line;
|
|
}
|
|
|
|
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";
|
|
}
|
|
}
|
|
|
|
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";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) {
|
|
my $rsp;
|
|
push @{ $rsp->{data} }, "Handle the driver update disk failed. Could not pack the hacked modules.cgz.";
|
|
xCAT::MsgUtils->message("E", $rsp, $callback);
|
|
return ();
|
|
}
|
|
} # End of non dracut
|
|
|
|
# Repack the initrd
|
|
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|xz --format=lzma -C crc32 -9 > $dd_dir/initrd.img";
|
|
}
|
|
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) {
|
|
my $rsp;
|
|
push @{ $rsp->{data} }, "Handle the driver update disk failed. Could not pack the hacked initrd.";
|
|
xCAT::MsgUtils->message("E", $rsp, $callback);
|
|
return ();
|
|
}
|
|
|
|
copy("$dd_dir/initrd.img", $img);
|
|
}
|
|
|
|
# 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);
|
|
return ();
|
|
}
|
|
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("/bin/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;
|
|
}
|
|
|
|
# clean the env
|
|
rmtree $dd_dir;
|
|
|
|
my $rsp;
|
|
if (@dd_list) {
|
|
push @{ $rsp->{data} }, "The driver update disk:" . join(',', @inserted_dd) . " have been injected to initrd.";
|
|
}
|
|
|
|
# remove the duplicated names
|
|
my %dnhash;
|
|
foreach (@rpm_drivers) {
|
|
$dnhash{$_} = 1;
|
|
}
|
|
@rpm_drivers = keys %dnhash;
|
|
|
|
if (@rpm_list) {
|
|
if (@rpm_drivers) {
|
|
push @{ $rsp->{data} }, "The drivers:" . join(',', sort(@rpm_drivers)) . " from " . join(',', sort(@rpm_list)) . " have been injected to initrd.";
|
|
} elsif ($Injectalldriver) {
|
|
push @{ $rsp->{data} }, "All the drivers from: " . join(',', sort(@rpm_list)) . " have been injected to initrd.";
|
|
} else {
|
|
push @{ $rsp->{data} }, "No driver was injected to initrd.";
|
|
}
|
|
}
|
|
|
|
xCAT::MsgUtils->message("I", $rsp, $callback);
|
|
|
|
return @inserted_dd;
|
|
}
|
|
|
|
1;
|