04cb7483c6
====================================================================
Target Dist: SLES 11 SP1, for both full install and statelite install
Aim: To enable users to install packages from SDK DVD during installation
user impact: If the user add packages in .pkglist files, he/she should first do 'copycds' using SDK DVD iso.
By-effect: N/A
Limitations: 2nd installation DVD and 2nd SDK DVD not supported, both carries source packages.
It seems they are not recognized by autoyast, and it's of no use to install sources pkgs on CNs.
====================================================================
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9939 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
1667 lines
57 KiB
Perl
Executable File
1667 lines
57 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
BEGIN
|
|
{
|
|
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
|
|
}
|
|
use lib "$::XCATROOT/lib/perl";
|
|
|
|
use File::Basename;
|
|
use File::Path;
|
|
use File::Copy qw/copy cp mv move/;
|
|
use File::Find;
|
|
use Getopt::Long;
|
|
use Cwd qw(realpath);
|
|
use File::Temp qw/mkdtemp/;
|
|
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../imgutils";
|
|
use imgutils;
|
|
|
|
#use strict;
|
|
Getopt::Long::Configure("bundling");
|
|
Getopt::Long::Configure("pass_through");
|
|
|
|
my $prinic; #TODO be flexible on node primary nic
|
|
my $othernics; #TODO be flexible on node primary nic
|
|
my $netdriver;
|
|
my @yumdirs;
|
|
my $arch;
|
|
my %libhash;
|
|
my @filestoadd;
|
|
my $profile;
|
|
my $osver;
|
|
my $pathtofiles=dirname($0);
|
|
my $fullpath=realpath($pathtofiles);
|
|
my $name = basename($0);
|
|
my $onlyinitrd=0;
|
|
if ($name =~ /geninitrd/) {
|
|
$onlyinitrd=1;
|
|
}
|
|
my $rootlimit;
|
|
my $tmplimit;
|
|
my $installroot = "/install";
|
|
my $kerneldir;
|
|
my $kernelver = "";
|
|
my $basekernelver;
|
|
my $customdir=$fullpath;
|
|
$customdir =~ s/.*share\/xcat/$installroot\/custom/;
|
|
my $imagename;
|
|
my $pkglist;
|
|
my $srcdir;
|
|
my $destdir;
|
|
my $srcdir_otherpkgs;
|
|
my $otherpkglist;
|
|
my $postinstall_filename;
|
|
my $rootimg_dir;
|
|
my $mode;
|
|
my $permission; #the permission works only for statelite mode currently
|
|
my $krpmver;
|
|
|
|
sub xdie {
|
|
system("rm -rf /tmp/xcatinitrd.$$");
|
|
die @_;
|
|
}
|
|
|
|
#-- fetch current version form CVS (overwrite locally changed versions)
|
|
# if (opendir(CVS,"$pathtofiles/CVS")){
|
|
# close CVS;
|
|
# my $cvsout = qx/cd $pathtofiles; cvs update -C 2>&1/;
|
|
# chomp $cvsout;
|
|
# if ( $cvsout ne "cvs update: Updating ." ) {
|
|
# print "Difference of local copy from CVS detected\n";
|
|
# print $cvsout,"\n";
|
|
# print "Trying to re-run $name\n";
|
|
# print("$pathtofiles/$name ",join(" ",@ARGV),"\n");
|
|
# exec("$pathtofiles/$name",@ARGV);
|
|
# }
|
|
# }
|
|
|
|
|
|
$SIG{INT} = $SIG{TERM} = sub { xdie "Interrupted" };
|
|
GetOptions(
|
|
'a=s' => \$arch,
|
|
'p=s' => \$profile,
|
|
'o=s' => \$osver,
|
|
'n=s' => \$netdriver,
|
|
'i=s' => \$prinic,
|
|
'r=s' => \$othernics,
|
|
'l=s' => \$rootlimit,
|
|
't=s' => \$tmplimit,
|
|
'k=s' => \$kernelver,
|
|
'g=s' => \$krpmver,
|
|
'permission=s' => \$permission
|
|
);
|
|
|
|
|
|
# if "Table.pm" can be found here, the attributes in linuximage and osimage will be updated
|
|
my $needUpdateTable = 0;
|
|
my %keyhash = ();
|
|
my $updates_os = (); # the hash for updating osimage table
|
|
my $updates = (); # the hash for updating linuximage table
|
|
|
|
my $osimagetab;
|
|
my $linuximagetab;
|
|
my $ref_linuximage_tab;
|
|
my $ref_osimage_tab;
|
|
|
|
eval { require ("$::XCATROOT/lib/perl/xCAT/Table.pm") };
|
|
|
|
unless ($@) {
|
|
# Table.pm is there, we can update the xCAT table
|
|
$needUpdateTable = 1;
|
|
|
|
# get the info from the osimage and linuximage table
|
|
$osimagetab = xCAT::Table->new('osimage', -create=>1);
|
|
unless ($osimagetab) {
|
|
print "The osimage table cannot be found.\n";
|
|
exit 1;
|
|
}
|
|
|
|
$linuximagetab = xCAT::Table->new('linuximage', -create=>1);
|
|
unless($linuximagetab) {
|
|
print "The linuximage table cannot be found.\n";
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
if (@ARGV > 0 and $needUpdateTable eq 1) {
|
|
$imagename=$ARGV[0];
|
|
if ($arch or $osver or $profile) {
|
|
print "-o, -p and -a options are not allowed when a image name is specified.\n";
|
|
exit 1;
|
|
}
|
|
|
|
(my $ref_osimage_tab) = $osimagetab->getAttribs({imagename => $imagename}, 'osvers', 'osarch', 'profile', 'provmethod');
|
|
unless ($ref_osimage_tab) {
|
|
print "Cannot find image \'$imagename\' from the osimage table.\n";
|
|
exit 1;
|
|
}
|
|
|
|
(my $ref_linuximage_tab) = $linuximagetab->getAttribs({imagename => $imagename}, 'pkglist', 'pkgdir', 'otherpkglist', 'otherpkgdir', 'postinstall', 'rootimgdir', 'kerneldir', 'nodebootif', 'otherifce', 'kernelver', 'krpmver', 'netdrivers', 'permission');
|
|
unless ($ref_linuximage_tab) {
|
|
print "Cannot find $imagename from the linuximage table\n";
|
|
exit 1;
|
|
}
|
|
|
|
$osver=$ref_osimage_tab->{'osvers'};
|
|
$arch=$ref_osimage_tab->{'osarch'};
|
|
$profile=$ref_osimage_tab->{'profile'};
|
|
my $provmethod=$ref_osimage_tab->{'provmethod'}; # TODO: not necessary, and need to update both statelite and stateless modes
|
|
|
|
unless ($osver and $arch and $profile and $provmethod) {
|
|
print"osimage.osvers, osimage.osarch, osimage.profile and osimage.provmethod must be specified for the image $imagename in the database.\n";
|
|
exit 1;
|
|
}
|
|
|
|
unless ($provmethod eq 'netboot' || $provmethod eq 'statelite') {
|
|
print "\'$imagename\' cannot be used to build diskless image. Make sure osimage.provmethod is 'netboot'.";
|
|
exit 1;
|
|
}
|
|
|
|
unless ( $ref_linuximage_tab->{'pkglist'}) {
|
|
print"A .pkglist file must be specified for image \'$imagename\' in the linuximage table.\n";
|
|
exit 0;
|
|
}
|
|
$pkglist = $ref_linuximage_tab->{'pkglist'};
|
|
|
|
$srcdir = $ref_linuximage_tab->{'pkgdir'};
|
|
$srcdir_otherpkgs = $ref_linuximage_tab->{'otherpkgdir'};
|
|
$otherpkglist = $ref_linuximage_tab->{'otherpkglist'};
|
|
$postinstall_filename = $ref_linuximage_tab->{'postinstall'};
|
|
$destdir = $ref_linuximage_tab->{'rootimgdir'};
|
|
$kerneldir = $ref_linuximage_tab->{'kerneldir'};
|
|
|
|
# TODO: how can we do if the user specifies one wrong value to the following attributes?
|
|
# currently, one message is output to indicate the users there will be some updates
|
|
|
|
if ($prinic) {
|
|
if ($prinic ne $ref_linuximage_tab->{'nodebootif'}) {
|
|
print "The primary nic is different from the value in linuximage table, will update it\n";
|
|
$updates{'nodebootif'} = $prinic;
|
|
}
|
|
} else {
|
|
$prinic = $ref_linuximage_tab->{'nodebootif'};
|
|
}
|
|
if ($othernics) {
|
|
if ($othernics ne $ref_linuximage_tab->{'otherifce'}) {
|
|
print "The other ifces are different from the value in linuximage table, will update it\n";
|
|
$updates{'otherifce'} = $othernics;
|
|
}
|
|
} else {
|
|
$othernics = $ref_linuximage_tab->{'otherifce'};
|
|
}
|
|
if ($kernelver) {
|
|
if ($kernelver ne $ref_linuximage_tab->{'kernelver'}) {
|
|
print "The kernelver is different from the value in linuximage table, will update it\n";
|
|
$updates{'kernelver'} = $kernelver;
|
|
}
|
|
} else {
|
|
$kernelver = $ref_linuximage_tab->{'kernelver'};
|
|
}
|
|
|
|
if ($krpmver) {
|
|
if ($krpmver ne $ref_linuximage_tab->{'krpmver'}) {
|
|
print "The krpmver is different from the value in linuximage table, will update it\n";
|
|
$updates{'krpmver'} = $krpmver;
|
|
}
|
|
} else {
|
|
$krpmver = $ref_linuximage_tab->{'krpmver'};
|
|
}
|
|
|
|
if ($netdriver) {
|
|
if ($netdriver ne $ref_linuximage_tab->{'netdrivers'}) {
|
|
print "The netdrivers are different from the value in linuximage table, will update it\n";
|
|
$updates{'netdrivers'} = $netdriver;
|
|
}
|
|
} else {
|
|
$netdriver = $ref_linuximage_tab->{'netdrivers'};
|
|
}
|
|
|
|
if ($permission) {
|
|
if ($permission ne $ref_linuximage_tab->{'permission'}) {
|
|
print "The permission value is different from the value in linuximage table, will update it\n";
|
|
$updates{'permission'} = $permission;
|
|
}
|
|
} else {
|
|
$permission = $ref_linuximage_tab->{'permission'};
|
|
}
|
|
}
|
|
|
|
$permission = "755" unless ($permission);
|
|
$updates{'permission'} = $permission if ($needUpdateTable);
|
|
|
|
unless ($arch) {
|
|
$arch = `uname -m`;
|
|
chomp($arch);
|
|
$arch = "x86" if ($arch =~ /i.86$/);
|
|
}
|
|
|
|
$srcdir="$installroot/$osver/$arch" unless ($srcdir);
|
|
$updates{'pkgdir'} = $srcdir if ($needUpdateTable);
|
|
$srcdir = $srcdir . "/1";
|
|
|
|
$srcdir_otherpkgs = "$installroot/post/otherpkgs/$osver/$arch" unless ($srcdir_otherpkgs);
|
|
$updates{'otherpkgdir'} = $srcdir_otherpkgs if ($needUpdateTable);
|
|
|
|
$destdir="$installroot/netboot/$osver/$arch/$profile" unless ($destdir);
|
|
$updates{'rootimgdir'} = $destdir if ($needUpdateTable);
|
|
|
|
$rootimg_dir="$destdir/rootimg";
|
|
|
|
if ($kernelver && (!$krpmver)) {
|
|
print "The -g flag for the rpm version of kernel packages needs to be specified when kernel version has been specified.\n";
|
|
exit 1;
|
|
}
|
|
$kerneldir = "$installroot/kernels" unless ($kerneldir); # the default directory for 3rd-party kernel is "$installroot/kernels";
|
|
$updates{'kerneldir'} = $kerneldir if ($needUpdateTable);
|
|
|
|
unless ($osver and $profile) {
|
|
usage();
|
|
exit 1;
|
|
}
|
|
my @ndrivers;
|
|
|
|
if ($netdriver) {
|
|
if ( ($updates{'netdrivers'} ne $netdriver) and $needUpdateTable ) {
|
|
$updates{'netdrivers'} = $netdriver;
|
|
}
|
|
} else {
|
|
if ($arch eq 'x86' or $arch eq 'x86_64') {
|
|
@ndrivers = qw/tg3 bnx2 bnx2x e1000 e1000e igb mlx_en/;
|
|
} elsif ($arch eq 'ppc64') {
|
|
@ndrivers = qw/e1000 e1000e igb ibmveth ehea/;
|
|
} elsif ($arch eq "s390x") {
|
|
@ndrivers = qw/qdio ccwgroup qeth qeth_l2 qeth_l3/;
|
|
}
|
|
}
|
|
|
|
|
|
foreach (split /,/,$netdriver) {
|
|
unless (/\.ko$/) {
|
|
s/$/.ko/;
|
|
}
|
|
next if (/^$/);
|
|
|
|
# Do not include qeth module here
|
|
# This module is included later on
|
|
unless ( $_ =~ m/qeth/i ) {
|
|
push @ndrivers, $_;
|
|
}
|
|
}
|
|
|
|
unless (grep /af_packet/,@ndrivers) {
|
|
unshift(@ndrivers,"af_packet.ko");
|
|
}
|
|
|
|
my $osver_host;
|
|
if(`grep VERSION /etc/SuSE-release` =~ /VERSION = (\d+)/) {
|
|
$osver_host=$1;
|
|
} else {
|
|
$osver_host=11;
|
|
}
|
|
|
|
unless ($onlyinitrd) {
|
|
|
|
# now, let's handle the extra packages
|
|
unless ($imagename) {
|
|
$otherpkglist=imgutils::get_profile_def_filename($osver, $profile, $arch, $customdir, "otherpkgs.pkglist");
|
|
unless ($otherpkglist) { $otherpkglist=imgutils::get_profile_def_filename($osver, $profile, $arch, $pathtofiles, "otherpkgs.pkglist"); }
|
|
$updates{'otherpkglist'} = $otherpkglist if ($needUpdateTable and $otherpkglist);
|
|
}
|
|
my %extra_hash=();
|
|
%extra_hash=imgutils::get_package_names($otherpkglist) if ($otherpkglist);
|
|
|
|
|
|
# prepare the chroot environment for the root image
|
|
|
|
mkpath "$rootimg_dir/etc";
|
|
mkpath "$rootimg_dir/dev";
|
|
#system "mount -o bind /dev $rootimg_dir/dev";
|
|
unless ( -e "$rootimg_dir/dev/zero") {
|
|
system "mknod $rootimg_dir/dev/zero c 1 5";
|
|
}
|
|
unless ( -e "$rootimg_dir/dev/null") {
|
|
system "mknod $rootimg_dir/dev/null c 1 3"; #that's neccessary for SLES11
|
|
}
|
|
|
|
unless ( -e "$rootimg_dir/dev/random") {
|
|
system "mknod $rootimg_dir/dev/random c 1 8"; #that's neccessary for SLES11
|
|
}
|
|
unless ( -e "$rootimg_dir/dev/urandom") {
|
|
system "mknod $rootimg_dir/dev/urandom c 1 9"; #that's neccessary for SLES11
|
|
}
|
|
|
|
for (my $i = 0; $i <= 12; $i++)
|
|
{
|
|
unless ( -e "$rootimg_dir/dev/tty$i") {
|
|
system "mknod $rootimg_dir/dev/tty$i c 4 $i"; #that's neccessary for SLES11
|
|
}
|
|
}
|
|
|
|
open($fd,">>","$rootimg_dir/etc/fstab"); # TODO: is it necessary?
|
|
print $fd "#Dummy fstab for rpm postscripts to see\n";
|
|
close($fd);
|
|
|
|
if($osver_host == 11) {#zypper in SLES11 is different
|
|
if(-e "$rootimg_dir/etc/zypp/repos.d/$osver.repo") {
|
|
system("rm -rf $rootimg_dir/etc/zypp/repos.d/$osver.repo");
|
|
}
|
|
system("zypper -R $rootimg_dir ar file:$srcdir $osver");
|
|
|
|
if(-e "$rootimg_dir/etc/zypp/repos.d/${osver}sdk.repo") {
|
|
system("rm -rf $rootimg_dir/etc/zypp/repos.d/${osver}sdk.repo");
|
|
}
|
|
my $srcdir_sdk = "$installroot/$osver/$arch/sdk1";
|
|
system("zypper -R $rootimg_dir ar file:$srcdir_sdk ${osver}sdk");
|
|
}else {
|
|
system("zypper -R $rootimg_dir sa file:$srcdir");
|
|
}
|
|
|
|
# Add the rep for kernel packages
|
|
if ($kernelver) {
|
|
if (! -d $kerneldir) {
|
|
print "Cannot find the directory for the kernel at $kerneldir.\n";
|
|
exit 1;
|
|
}
|
|
if ($osver_host == 11) {
|
|
if (-e "$rootimg_dir/etc/zypp/repos.d/$kernelver.repo") {
|
|
system("rm -rf $rootimg_dir/etc/zypp/repos.d/$kernelver.repo");
|
|
}
|
|
system("zypper -R $rootimg_dir ar file:$kerneldir $kernelver");
|
|
} else {
|
|
system("zypper -R $rootimg_dir sa file:$kerneldir");
|
|
}
|
|
}
|
|
#remove the old repository for extra packages
|
|
my $result=`zypper -R $rootimg_dir sl |grep otherpkg|cut -f2 -d '|'|tr "\n" " "`;
|
|
if ($result =~ /\S/) {
|
|
system("zypper -R $rootimg_dir sd $result");
|
|
}
|
|
|
|
#add the new repository for extra packages
|
|
my %extrapkgnames;
|
|
if($osver_host == 11) { #SLES11
|
|
if(-e "$rootimg_dir/etc/zypp/repos.d/otherpkg.repo") {
|
|
system("rm -rf $rootimg_dir/etc/zypp/repos.d/otherpkg.repo");
|
|
}
|
|
}
|
|
my $index=1;
|
|
my $pass;
|
|
foreach $pass (sort (keys(%extra_hash))) {
|
|
foreach (keys(%{$extra_hash{$pass}})) {
|
|
if (($_ eq "PRE_REMOVE") || ($_ eq "POST_REMOVE")) { next;}
|
|
my $whole_path="$srcdir_otherpkgs/$_";
|
|
if (-r "$srcdir_otherpkgs/$_/repodata/repomd.xml") {
|
|
if($osver_host == 11) {
|
|
system("zypper -R $rootimg_dir ar file:$srcdir_otherpkgs/$_ otherpkg$index");
|
|
}else {
|
|
system("zypper -R $rootimg_dir sa file:$srcdir_otherpkgs/$_");
|
|
}
|
|
} else {
|
|
if($osver_host == 11) {
|
|
system("zypper -R $rootimg_dir ar -t Plaindir file:$srcdir_otherpkgs/$_ otherpkg$index");
|
|
}else {
|
|
system("zypper -R $rootimg_dir sa -t Plaindir file:$srcdir_otherpkgs/$_");
|
|
}
|
|
}
|
|
$index++;
|
|
|
|
my $pa=$extra_hash{$pass}{$_};
|
|
$extrapkgnames{$pass} .= " " . join(' ', @$pa);
|
|
}
|
|
}
|
|
|
|
#-- add custom repositories to the image
|
|
#TODO: should we add the support to otherpkgs for this? we have too many list files and it seems only SLES supports this
|
|
# not sure, but it is convenient
|
|
my $repolist;
|
|
$repolist = imgutils::get_profile_def_filename($osver, $profile, $arch, $customdir, "repolist");
|
|
unless ($repolist) {
|
|
$repolist = imgutils::get_profile_def_filename($osver, $profile, $arch, $pathtofiles, "repolist");
|
|
}
|
|
|
|
if ( -r "$repolist") {
|
|
print "Reading custom repositories\n";
|
|
open($repoconfig,"<","$repolist");
|
|
while (<$repoconfig>) {
|
|
chomp;
|
|
next if /^\s*#/;
|
|
my ($repotype,$repourl,$repoalias) = split m/\|/;
|
|
system("zypper -R $rootimg_dir ar $repourl $repoalias");
|
|
}
|
|
}
|
|
|
|
# Refresh the zypper cache in case there is still old data out there
|
|
system("zypper -R $rootimg_dir refresh");
|
|
|
|
#my $yumcmd = "yum -y -c /tmp/genimage.$$.yum.conf --installroot=$rootimg_dir --disablerepo=* ";
|
|
#$yumcmd .= "install ";
|
|
#mkpath("$rootimg_dir/var/lib/yum");
|
|
my $yumcmd;
|
|
if($osver =~ /sles11/ && $osver_host == 11) {
|
|
$yumcmd = "zypper -R $rootimg_dir install -l "; #add -l for SLES11
|
|
}else {
|
|
$yumcmd = "zypper -R $rootimg_dir install ";
|
|
}
|
|
|
|
#install packages from pkglist file
|
|
my $pkgnames;
|
|
unless ($imagename) {
|
|
$pkglist = imgutils::get_profile_def_filename($osver, $profile, $arch, $customdir, "pkglist");
|
|
unless ($pkglist) { $pkglist=imgutils::get_profile_def_filename($osver, $profile, $arch, $pathtofiles, "pkglist"); }
|
|
}
|
|
|
|
if ($pkglist) {
|
|
$updates{'pkglist'} = $pkglist if ($needUpdateTable);
|
|
} else {
|
|
print "Unable to find package list for $profile!";
|
|
exit 1;
|
|
}
|
|
|
|
my %pkg_hash=imgutils::get_package_names($pkglist);
|
|
my $index=1;
|
|
foreach $pass (sort (keys(%pkg_hash))) {
|
|
$pkgnames = "";
|
|
foreach (keys(%{$pkg_hash{$pass}})) {
|
|
if (($_ eq "PRE_REMOVE") || ($_ eq "POST_REMOVE")) { next;}
|
|
my $pa=$pkg_hash{$pass}{$_};
|
|
# replace the kernel package with the name has the specific version
|
|
my @npa = ();
|
|
foreach my $p (@$pa) {
|
|
if ($p =~ /^kernel$/ && $kernelver) {
|
|
# get all files in $srcdir and $kerneldir
|
|
my @alldirs = ("$srcdir", "$kerneldir");
|
|
my @allrpms = ();
|
|
foreach my $dir (@alldirs) {
|
|
my @files = `find $dir -name *.rpm`;
|
|
push @allrpms, @files;
|
|
}
|
|
my @kernelpkgs = ("kernel-default","kernel-default-base");
|
|
foreach my $kern (@kernelpkgs) {
|
|
my @rpm = grep /$kern-$krpmver/, @allrpms;
|
|
if (!@rpm) {
|
|
print "Cannot find the kernel package with the versioin $krpmver.\n";
|
|
exit 1;
|
|
}
|
|
my $kernelname = "$kern=".$krpmver;
|
|
push @npa, $kernelname;
|
|
}
|
|
} else {
|
|
push @npa, $p;
|
|
}
|
|
}
|
|
$pkgnames .= " " . join(' ', @npa);
|
|
}
|
|
print "$yumcmd $pkgnames\n";
|
|
my $rc = system("$yumcmd $pkgnames");
|
|
$rc = $rc >> 8;
|
|
if (($rc) && ($rc != '104')) {
|
|
print "zypper invocation failed with rc: $rc\n";
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
foreach $pass (sort (keys(%extra_hash))) {
|
|
#remove the packages that are specified in the otherpkgs.list files with leading '-'
|
|
my $yumcmd_remove= "zypper -R $rootimg_dir remove ";
|
|
if (exists ($extra_hash{$pass}{'PRE_REMOVE'})) {
|
|
my $pa=$extra_hash{$pass}{'PRE_REMOVE'};
|
|
my $rm_packges= join(' ', @$pa);
|
|
if ($rm_packges) {
|
|
$rc = system("$yumcmd_remove $rm_packges");
|
|
}
|
|
}
|
|
|
|
|
|
#add extra packages in the list
|
|
if ($extrapkgnames{$pass}) {
|
|
print "$yumcmd $extrapkgnames{$pass}\n";
|
|
$rc = system("$yumcmd $extrapkgnames{$pass}");
|
|
$rc = $rc >> 8;
|
|
if (($rc) && ($rc != '104')) {
|
|
print "zypper invocation failed with rc: $rc\n";
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
#remove the packages that are specified in the otherpkgs.list files with leading '--'
|
|
if (exists ($extra_hash{$pass}{'POST_REMOVE'})) {
|
|
my $pa=$extra_hash{$pass}{'POST_REMOVE'};
|
|
my $rm_packges= join(' ', @$pa);
|
|
if ($rm_packges) {
|
|
$rc = system("$yumcmd_remove $rm_packges");
|
|
}
|
|
}
|
|
}
|
|
|
|
# run zypper update to update any installed rpms
|
|
# needed when running genimage again after updating software in repositories
|
|
my $yumcmd_update = "zypper -R $rootimg_dir update ";
|
|
$rc = system("$yumcmd_update");
|
|
# ignore any return code
|
|
|
|
postscripts(); #run 'postscripts'
|
|
}
|
|
unlink "/tmp/genimage.$$.yum.conf";
|
|
|
|
# default to the first kernel found in the install image if nothing specified explicitly.
|
|
# A more accurate guess than whatever the image build server happens to be running
|
|
# If specified, that takes precedence.
|
|
# If image has one, that is used
|
|
# If all else fails, resort to uname -r like this script did before
|
|
|
|
if ( -e "$rootimg_dir/boot/vmlinux" ) {
|
|
$basekernelver = basename(readlink "$rootimg_dir/boot/vmlinux");
|
|
if ($basekernelver eq "vmlinux") {
|
|
$basekernelver = "";
|
|
} else {
|
|
$basekernelver =~ s/vmlinu.-//;
|
|
$basekernelver =~ s/image-//;
|
|
}
|
|
}
|
|
|
|
unless ($basekernelver) {
|
|
my @KVERS = <$rootimg_dir/boot/vmlinu[xz]-*>;
|
|
|
|
# The kernel name is different on s390x, e.g. image-2.6.32.9-0.5-default
|
|
@KVERS = <$rootimg_dir/boot/image-*> if $arch eq "s390x";
|
|
foreach (@KVERS) {
|
|
s/vmlinu.-//;
|
|
s/image-//;
|
|
}
|
|
unless (scalar @KVERS) {
|
|
@KVERS = <$rootimg_dir/lib/modules/*>;
|
|
}
|
|
if (scalar @KVERS) {
|
|
foreach my $kver (@KVERS) {
|
|
unless ($kver =~ m/.gz$/) {
|
|
$basekernelver = basename($kver);
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
|
|
@KVERS=<$rootimg_dir/lib/modules/*> unless (scalar @KVERS);
|
|
$basekernelver = basename(pop @KVERS) if (scalar @KVERS);
|
|
$basekernelver = `uname -r` unless ($basekernelver);
|
|
}
|
|
|
|
$kernelver = $basekernelver unless ($kernelver);
|
|
chomp $kernelver;
|
|
#$updates{kernelver} = $kernelver if ($needUpdateTable);
|
|
|
|
# copy the kernel to $destdir
|
|
if ( -e "$rootimg_dir/boot/vmlinux-$kernelver") {
|
|
copy("$rootimg_dir/boot/vmlinux-$kernelver", "$destdir/kernel");
|
|
} elsif ( -e "$rootimg_dir/boot/vmlinuz-$kernelver") {
|
|
copy("$rootimg_dir/boot/vmlinuz-$kernelver", "$destdir/kernel");
|
|
} elsif ( -e "$rootimg_dir/boot/image-$kernelver") {
|
|
copy("$rootimg_dir/boot/image-$kernelver", "$destdir/kernel");
|
|
} else {
|
|
xdie "couldn't find the kernel file matched $kernelver in $rootimg_dir/boot !";
|
|
}
|
|
|
|
#-- run postinstall script
|
|
unless ($imagename) {
|
|
$postinstall_filename= imgutils::get_profile_def_filename($osver, $profile, $arch, $customdir, "postinstall");
|
|
unless ($postinstall_filename) {
|
|
$postinstall_filename= imgutils::get_profile_def_filename($osver, $profile, $arch, $pathtofiles, "postinstall");
|
|
}
|
|
}
|
|
|
|
if (($postinstall_filename) && (-x $postinstall_filename)) {
|
|
#print "postinstall_filename=$postinstall_filename\n";
|
|
|
|
$updates{'postinstall'} = $postinstall_filename if ($needUpdateTable);
|
|
|
|
my $rc = system($postinstall_filename, $rootimg_dir,$osver,$arch,$profile);
|
|
if($rc) {
|
|
print "postinstall script failed\n";
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
|
|
# commit the changes to the linuximage/osimage table if necessary
|
|
if ($needUpdateTable) {
|
|
# all the information has been gathered
|
|
# now, update the linuximage and osimage tables
|
|
# TODO: do statelite and stateless share the same attributes? currently, I will update both of them
|
|
if ($imagename) {
|
|
$keyhash{'imagename'} = $imagename;
|
|
$linuximagetab->setAttribs(\%keyhash, \%updates);
|
|
$linuximagetab->commit;
|
|
} else {
|
|
# update the imagename for stateless
|
|
$keyhash{'imagename'} = "$osver-$arch-netboot-$profile";
|
|
|
|
$updates_os{'profile'} = $profile;
|
|
$updates_os{'imagetype'} = 'linux';
|
|
$updates_os{'provmethod'} = 'netboot';
|
|
$updates_os{'osname'} = 'Linux';
|
|
$updates_os{'osvers'} = $osver;
|
|
$updates_os{'osdistro'} = 'sles'; # not used currently
|
|
$updates_os{'osarch'} = $arch;
|
|
|
|
$osimagetab->setAttribs(\%keyhash, \%updates_os);
|
|
$osimagetab->commit;
|
|
|
|
$linuximagetab->setAttribs(\%keyhash, \%updates);
|
|
$linuximagetab->commit;
|
|
|
|
# update the imagename for statelite
|
|
$keyhash{'imagename'} = "$osver-$arch-statelite-$profile";
|
|
|
|
$updates_os{'provmethod'} = 'statelite';
|
|
|
|
$osimagetab->setAttribs(\%keyhash, \%updates_os);
|
|
$osimagetab->commit;
|
|
|
|
$linuximagetab->setAttribs(\%keyhash, \%updates);
|
|
$linuximagetab->commit;
|
|
}
|
|
}
|
|
|
|
mkpath "$rootimg_dir/.statelite"; # create place for NFS mounts;
|
|
|
|
mkpath "$rootimg_dir/root/.ssh"; # create place for NFS mounts for ssh; #TODO is necessary?
|
|
|
|
# this script will get the directories;
|
|
# TODO: it seems it is re-copied in liteimg.pm
|
|
unless( -r "$pathtofiles/../add-on/statelite/rc.statelite") {
|
|
print "Can't find $pathtofiles/../add-on/statelite/rc.statelite!\n";
|
|
exit;
|
|
}
|
|
system("cp $pathtofiles/../add-on/statelite/rc.statelite $rootimg_dir/etc/init.d/statelite");
|
|
|
|
# the dhcp client information stores in the directory "/var/lib/dhcpcd/"
|
|
unless(-l "$rootimg_dir/var/lib/dhcpcd") {
|
|
mkpath "$rootimg_dir/var/lib/dhcpcd/";
|
|
system("touch $rootimg_dir/var/lib/dhcpcd/dhcpcd-$prinic.info");
|
|
}
|
|
# which is different from the Redhat family
|
|
|
|
# some rpms mounts the imageroot/proc on the /proc, need to release it,
|
|
# otherwise got kernal panic when installing
|
|
# sometimes, the proc fs is not mounted, so one warning/error message will display,
|
|
# and I add one check point here.
|
|
my $MFD;
|
|
open MFD, "/proc/mounts";
|
|
my @lines = <MFD>;
|
|
close MFD;
|
|
|
|
my $ret = grep m{$rootimg_dir/proc}, @lines;
|
|
if($ret > 0) {
|
|
system("umount -l $rootimg_dir/proc");
|
|
}
|
|
|
|
# Load driver update disk, and copy them to the root image
|
|
my @dd_drivers = &load_dd();
|
|
|
|
# Push the drivers into the @ndrivers base on the order
|
|
my @new_order = ();
|
|
foreach my $dd (@dd_drivers) {
|
|
unless (grep { $_ eq $dd} @ndrivers) {
|
|
push @new_order, $dd;
|
|
}
|
|
print "Added driver $dd from driver update disk.\n";
|
|
}
|
|
@ndrivers = (@new_order, @ndrivers);
|
|
|
|
open($moddeps,"<","$rootimg_dir/lib/modules/$kernelver/modules.dep");
|
|
my @moddeps = <$moddeps>;
|
|
my @checkdeps = @ndrivers;
|
|
while (scalar @checkdeps) {
|
|
my $driver = pop @checkdeps;
|
|
my @lines = grep /\/$driver:/,@moddeps;
|
|
foreach (@lines) {
|
|
chomp;
|
|
s/.*://;
|
|
s/^\s*//;
|
|
my @deps = split /\s+/,$_;
|
|
my $dep;
|
|
foreach $dep (@deps) {
|
|
$dep =~ s/.*\///;
|
|
unless (grep { $_ eq $dep } @ndrivers) { #only add if not added
|
|
unshift (@checkdeps,$dep); #recursively check dependencies
|
|
unshift (@ndrivers,$dep);
|
|
print "Added $dep as an autodetected depedency\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
close($moddeps);
|
|
|
|
# before mkinitrd, run depmod to generate the modules.dep
|
|
system("chroot $rootimg_dir depmod $kernelver");
|
|
|
|
my @drivers; # backup of @ndrivers
|
|
push @drivers, @ndrivers;
|
|
mkinitrd("statelite");
|
|
@ndrivers=();
|
|
push @ndrivers, @drivers;
|
|
mkinitrd("stateless");
|
|
|
|
|
|
sub getlibs {
|
|
my $file = shift;
|
|
my $liblist = `chroot $rootimg_dir ldd $file`;
|
|
my @libs = split/\n/,$liblist;
|
|
my @return;
|
|
foreach (@libs) {
|
|
unless (/=>/) {
|
|
(my $wjnk, my $lib,my $jnk) = split /\s+/,$_,3;
|
|
$lib =~ s/^\///;
|
|
$libhash{$lib}=1;
|
|
next;
|
|
}
|
|
(my $temp1,my $temp2) = split />/,$_,2;
|
|
(my $whitespace,$temp1,$temp2) = split /\s+/,$temp2,4;
|
|
unless ($temp1 =~ /\//) {
|
|
next;
|
|
}
|
|
$temp1 =~ s/^\///;
|
|
$libhash{$temp1}=1;
|
|
}
|
|
}
|
|
|
|
sub mkinitrd {
|
|
my ($mode) = @_; # statelite or stateless
|
|
|
|
if ($mode eq "statelite") {
|
|
|
|
# additional modules needed on s390x
|
|
push @ndrivers, qw{qdio.ko ccwgroup.ko qeth.ko qeth_l2.ko qeth_l3.ko} if ($arch eq "s390x");
|
|
|
|
# for nfs
|
|
my @modlist = qw{sunrpc.ko lockd.ko nfs_acl.ko fscache.ko auth_rpcgss.ko exportfs.ko nfsd.ko nfs.ko};
|
|
unshift(@ndrivers, @modlist);
|
|
}
|
|
|
|
mkpath("/tmp/xcatinitrd.$$/bin");
|
|
symlink("bin","/tmp/xcatinitrd.$$/sbin");
|
|
mkpath("/tmp/xcatinitrd.$$/usr/bin");
|
|
mkpath("/tmp/xcatinitrd.$$/usr/sbin");
|
|
mkpath("/tmp/xcatinitrd.$$/usr/lib");
|
|
mkpath("/tmp/xcatinitrd.$$/usr/lib64");
|
|
mkpath("/tmp/xcatinitrd.$$/lib/firmware");
|
|
mkpath("/tmp/xcatinitrd.$$/tmp");
|
|
mkpath("/tmp/xcatinitrd.$$/var/run");
|
|
mkpath("/tmp/xcatinitrd.$$/lib64/firmware");
|
|
mkpath("/tmp/xcatinitrd.$$/lib/power6");#SLES10
|
|
mkpath("/tmp/xcatinitrd.$$/lib/power7");#SLES10
|
|
mkpath("/tmp/xcatinitrd.$$/lib/mkinitrd/bin");
|
|
mkpath("/tmp/xcatinitrd.$$/proc");
|
|
mkpath("/tmp/xcatinitrd.$$/sys");
|
|
mkpath("/tmp/xcatinitrd.$$/dev/mapper");
|
|
mkpath("/tmp/xcatinitrd.$$/sysroot");
|
|
mkpath("/tmp/xcatinitrd.$$/etc/ld.so.conf.d");
|
|
mkpath("/tmp/xcatinitrd.$$/var/lib/dhcpcd");
|
|
my $inifile;
|
|
open($inifile,">","/tmp/xcatinitrd.$$/init");
|
|
print $inifile "#!/bin/bash\n";
|
|
|
|
# copied from genimage for rh
|
|
# add some functions
|
|
print $inifile <<EOS1;
|
|
NEWROOT="/sysroot"
|
|
SHELL="/bin/sh"
|
|
RWDIR=".statelite"
|
|
|
|
# Define some colors
|
|
RESET="\033[0m"
|
|
RED="\033[31m"
|
|
CYAN="\033[36m"
|
|
YELLOW="\033[33m\033[1m"
|
|
GREEN="\033[32m"
|
|
PINK="\033[35m\033[1m"
|
|
MAGENTA="\033[35m"
|
|
BROWN="\033[33m"
|
|
NORMAL=\$RESET
|
|
|
|
# This function is used to mount files/directories from the .statelite directory
|
|
# over the root directory.
|
|
# This function stolen from redhat
|
|
shell() {
|
|
echo ''
|
|
echo -e "\$YELLOW Entering rescue/debug init shell."
|
|
echo -e " Exit shell to continue booting.\$RESET"
|
|
\$SHELL
|
|
}
|
|
|
|
fancydisplay () {
|
|
clear
|
|
echo -e "\$CYAN"
|
|
echo '
|
|
.. :iiii,
|
|
:tLL; .,:...,.
|
|
.j;:tLt. :. .;j: ij::::;.
|
|
:tt;:::,ii:.jEEGi :tDEEG:.ti,::::;t:
|
|
.,,,,,,,,,,,tLEEEEj: tDEEEEDtj;,,,::::::
|
|
.:,,::::::,;fDEEEEEL,. .,ijDEDDDEEGt,,,,:,ijj;
|
|
.... ..:;jDDLGDEEEGGGfjjjjjjfffLGDEEDEEDLjfGDt,:..
|
|
.iftffGDLLDEEEDDDEEDDDDEDEEGLfLjjtti:
|
|
,fii;jGDGffLjifLGLjtfffffGDEDGfji
|
|
;DEEGffDDDjiii;;ii;,tGDEGjfEEEEf.
|
|
,GEGGftiGEEEDt:,;,;;LEEDGjLEEEEEEG
|
|
;DEDGjtjfitjGGjfDGj;jLLiitfGDEGjEEDj
|
|
fGjjtfLfji;itjfGDjLDfjjjji;tGGLDEEDj
|
|
fEDGffjti;ittjjjjtjjjjt:,,iiGGGGjtf.
|
|
:fGGLfLLfLGf;i;ijffj,,tjLGDDGLfjtf,
|
|
:;tLfjiiffLGDDDGLGEEEEjfGDDGGLfjfff:
|
|
.. ,;tLLLLLL,;tijfLGGGjfDEEEEDLLGGGLLLjtjLLfi,.
|
|
.jffLLLLGGLfjj;: :,;ijLGLfjGEDDEGtfGGLfjj:.,jjLGGLti;,,;fj,
|
|
,fGGGGGGLj,. ;jGGGGLLjffftjLj;.. .,tfGGGGGGGGGGi
|
|
,jGDDDj,. :tLGLGGLGDLjt, :iLGGDDDDGLif
|
|
,LDDDL, .;LDDDDGfff, ,;iGDDj;,..
|
|
;fGGGf, ,;;;;,: tf;jL,
|
|
;.:::, Powered by xCAT ,j.:;
|
|
'
|
|
echo -e "\$RESET"
|
|
echo -e "\$YELLOW"
|
|
echo '
|
|
_________ ________________
|
|
___ __\\_ ___ \\ / _ \\__ ___/
|
|
\\ \\/ / \\ \\/ / /_\\ \\| |
|
|
> <\\ \\____/ | \\ |
|
|
/__/\\_ \\\\______ /\\____|__ /____|
|
|
\\/ \\/ \\/
|
|
'
|
|
echo -e "\$RESET"
|
|
}
|
|
|
|
|
|
EOS1
|
|
|
|
print $inifile "mount -t proc /proc /proc\n";
|
|
print $inifile "mount -t sysfs /sys /sys\n";
|
|
print $inifile "mount -o mode=0755 -t tmpfs /dev /dev\n";
|
|
print $inifile "mkdir /dev/pts\n";
|
|
print $inifile "mount -t devpts -o gid=5,mode=620 /dev/pts /dev/pts\n";
|
|
print $inifile "mkdir /dev/shm\n";
|
|
print $inifile "mkdir /dev/mapper\n";
|
|
|
|
print $inifile "mknod /dev/random c 1 8\n";
|
|
print $inifile "mknod /dev/urandom c 1 9\n";
|
|
print $inifile "mknod /dev/null c 1 3\n";
|
|
print $inifile "mknod /dev/zero c 1 5\n";
|
|
print $inifile "mknod /dev/systty c 4 0\n";
|
|
print $inifile "mknod /dev/tty c 5 0\n";
|
|
print $inifile "mknod /dev/console c 5 1\n";
|
|
print $inifile "mknod /dev/ptmx c 5 2\n";
|
|
print $inifile "mknod /dev/rtc c 10 135\n";
|
|
print $inifile "mknod /dev/tty0 c 4 0\n";
|
|
print $inifile "mknod /dev/tty1 c 4 1\n";
|
|
print $inifile "mknod /dev/tty2 c 4 2\n";
|
|
print $inifile "mknod /dev/tty3 c 4 3\n";
|
|
print $inifile "mknod /dev/tty4 c 4 4\n";
|
|
print $inifile "mknod /dev/tty5 c 4 5\n";
|
|
print $inifile "mknod /dev/tty6 c 4 6\n";
|
|
print $inifile "mknod /dev/tty7 c 4 7\n";
|
|
print $inifile "mknod /dev/tty8 c 4 8\n";
|
|
print $inifile "mknod /dev/tty9 c 4 9\n";
|
|
print $inifile "mknod /dev/tty10 c 4 10\n";
|
|
print $inifile "mknod /dev/tty11 c 4 11\n";
|
|
print $inifile "mknod /dev/tty12 c 4 12\n";
|
|
print $inifile "mknod /dev/ttyS0 c 4 64\n";
|
|
print $inifile "mknod /dev/ttyS1 c 4 65\n";
|
|
print $inifile "mknod /dev/ttyS2 c 4 66\n";
|
|
print $inifile "mknod /dev/ttyS3 c 4 67\n";
|
|
|
|
# Start udev
|
|
print $inifile <<EOMS;
|
|
# Start udev to find devices attached to node
|
|
# This script can be found in /lib/mkinitrd
|
|
echo "Creating device nodes with udev"
|
|
/sbin/udevd --daemon
|
|
/sbin/udevadm trigger
|
|
/sbin/udevadm settle --timeout=10
|
|
EOMS
|
|
|
|
foreach (@ndrivers) {
|
|
print $inifile "insmod /lib/$_\n";
|
|
}
|
|
print $inifile "killall -9 udevd\n";
|
|
if($mode eq "statelite") {
|
|
print $inifile "echo debug: before netstart\n";
|
|
print $inifile "# check and see if debug is specified on command line\n";
|
|
print $inifile "grep '\(debug\)' /proc/cmdline > /dev/null && export DEBUG=1\n";
|
|
}
|
|
|
|
|
|
print $inifile <<EOMS;
|
|
# check the kernel parameters firstly
|
|
# if one parameter for the booting device is here, it will be used
|
|
PRINIC=$prinic
|
|
XCATMNTOPTS='nolock,tcp'
|
|
for i in `cat /proc/cmdline`; do
|
|
KEY=`echo \$i |awk -F= '{print \$1}'`
|
|
if [ "\$KEY" == 'netdev' ]; then
|
|
NETDEV=`echo \$i |awk -F= '{print \$2}'`
|
|
elif [ "\$KEY" == 'BOOTIF' ]; then
|
|
VALUE=`echo \$i |awk -F= '{print \$2}'|sed -e s/^01-// -e s/-/:/g`
|
|
BOOTIF=`ifconfig -a|grep -i "hwaddr \$VALUE"|awk '{print \$1}'`
|
|
elif [ "\$KEY" == 'XCAT' ]; then
|
|
VALUE=`echo \$i |awk -F= '{print \$2}'`
|
|
# format: XCAT=xcatmaster:xcatdport
|
|
XCATSERVER=\$VALUE
|
|
elif [ "\$KEY" == 'MNTOPTS' ]; then
|
|
VALUE=`echo \$i |awk -F\\' '{print \$2}'`
|
|
# format: MNTOPTS='nolock,time=800'
|
|
XCATMNTOPTS=\$VALUE
|
|
|
|
fi
|
|
done
|
|
|
|
if [ -z "\$IFACE" ]; then
|
|
if [ ! -z "\$NETDEV" ]; then
|
|
IFACE=\$NETDEV
|
|
elif [ ! -z "\$BOOTIF" ]; then
|
|
IFACE=\$BOOTIF
|
|
elif [ ! -z "\$PRINIC" ]; then
|
|
IFACE=\$PRINIC
|
|
else
|
|
echo "\${RED}Couldn't find the proper booting device, switch to shell...\${RESET}"
|
|
shell
|
|
exit
|
|
fi
|
|
fi
|
|
|
|
export IFACE=\$IFACE
|
|
|
|
netstart \$IFACE
|
|
while ! ifconfig | grep inet; do
|
|
echo -e "\${RED}Failed to acquire address, retrying \${RESET}"
|
|
sleep 1
|
|
netstart \$IFACE
|
|
done
|
|
ip addr add dev lo 127.0.0.1/8
|
|
ip link set lo up
|
|
cd /
|
|
|
|
for i in `cat /proc/cmdline`; do
|
|
KEY=`echo \$i |awk -F= '{print \$1}'`
|
|
if [ "\$KEY" == 'imgurl' ]; then
|
|
VALUE=`echo \$i |awk -F= '{print \$2}'`
|
|
if [ "http" == "`echo \$VALUE|awk -F: '{print \$1}'`" ]; then
|
|
#NOTE needs FT retry code to scale
|
|
#NOTE: should prob have max count
|
|
FILENAME=`echo \$VALUE|awk -F/ '{print \$NF}'`
|
|
while [ ! -r "\$FILENAME" ]; do
|
|
echo Getting \$VALUE...
|
|
if ! wget \$VALUE; then
|
|
sleep 5 #should be random, exponential for scale
|
|
rm -f \$FILENAME
|
|
fi
|
|
done
|
|
fi
|
|
elif [[ "\$KEY" == NFSROOT ]]; then # for NFSROOT
|
|
NFSROOT=1
|
|
VALUE=`echo \$i |awk -F= '{print \$2}'`
|
|
SERVER=`echo \$VALUE|awk -F: '{print \$1}'`
|
|
ROOTDIR=`echo \$VALUE|awk -F/ '{for(i=2;i<=NF;i++) printf "/%s",\$i}'`
|
|
elif [ "\$KEY" == 'STATEMNT' ]; then
|
|
STATELITE=1
|
|
VALUE=`echo \$i |awk -F= '{print \$2}'`
|
|
# VALUE may be null
|
|
if [ ! -z \$VALUE ]; then
|
|
SNAPSHOTSERVER=`echo \$VALUE|awk -F: '{print \$1}'`
|
|
SNAPSHOTROOT=`echo \$VALUE|awk -F/ '{for(i=2;i<=NF;i++) printf "/%s",\$i}'`
|
|
# may be that there is not server and just a directory.
|
|
if [ -z \$SNAPSHOTROOT ]; then
|
|
SNAPSHOTROOT=\$SNAPSHOTSERVER
|
|
SNAPSHOTSERVER=
|
|
fi
|
|
fi
|
|
fi
|
|
done
|
|
|
|
# show xCAT logo
|
|
fancydisplay
|
|
|
|
# Statelite code is here
|
|
if [ "\$STATELITE" = "1" ]; then
|
|
echo Setting up Statelite
|
|
mknod /dev/loop0 b 7 0
|
|
mkdir -p \$NEWROOT
|
|
MAXTRIES=15
|
|
ITER=0
|
|
ME=`hostname`
|
|
if [ "\$NFSROOT" = "1" ]; then
|
|
while ! mount.nfs \${SERVER}:\${ROOTDIR}/rootimg \$NEWROOT -r -n -o nolock,rsize=32768,tcp,nfsvers=3,timeo=14; do
|
|
ITER=\$(expr \$ITER + 1)
|
|
if [ "\$ITER" = "\$MAXTRIES" ]; then
|
|
echo "You're dead. rpower \$ME boot to play again."
|
|
echo "Possible problems:
|
|
1. This initrd wan't created for the statelite node?
|
|
2. IS DNS set up? Maybe that's why I can't mount \${SERVER}.
|
|
3. The nfs modules aren't set right in this initial ramdisk?"
|
|
shell
|
|
exit
|
|
fi
|
|
echo -e "\${RED}Couldn't mount \$SERVER:\$ROOTDIR on \$NEWROOT \$RESET"
|
|
RS=\$(expr \$RANDOM % 30)
|
|
echo -e "Trying again in \$RS seconds"
|
|
sleep \$RS
|
|
done
|
|
else
|
|
# for statelite mode on top of the ramdisk
|
|
EOMS
|
|
print $inifile "if [ -r /rootimg-statelite.gz ]; then \n";
|
|
print $inifile "echo Setting up RAM-root tmpfs.\n";
|
|
if ($rootlimit) {
|
|
print $inifile " mount -o size=$rootlimit,mode=755 -t tmpfs rootfs \$NEWROOT \n";
|
|
} else {
|
|
print $inifile " mount -o mode=755 -t tmpfs rootfs \$NEWROOT \n";
|
|
}
|
|
|
|
print $inifile <<EOMS;
|
|
cd \$NEWROOT
|
|
echo -n "Extracting root file system:"
|
|
if [ -x /bin/cpio ]; then
|
|
gzip -cd /rootimg-statelite.gz | /bin/cpio -idum
|
|
else
|
|
gzip -cd /rootimg-statelite.gz | cpio -idum
|
|
fi
|
|
echo "Done"
|
|
else
|
|
echo -e "\${RED} Couldn't find rootimg-statelite.gz for statelite semantics on top of ramdisk \${RESET}"
|
|
shell
|
|
exit
|
|
fi
|
|
fi
|
|
# now we need to mount the rest of the system. This is the read/write portions
|
|
#echo "Mounting Snapshot directories"
|
|
if [ ! -e "\$NEWROOT/\$RWDIR" ]
|
|
then
|
|
echo ""
|
|
echo -e "\${RED}Hmmm... this NFS root directory doesn't have a /\$RWDIR directory for me to mount a rw filesystem. You'd better create it... \${NORMAL}"
|
|
echo "."
|
|
shell
|
|
fi
|
|
|
|
while [ ! -e "\$NEWROOT/etc/init.d/statelite" ]
|
|
do
|
|
echo ""
|
|
echo -e "\${RED}Hmmm... \$NEWROOT/etc/init.d/statelite doesn't exist. Perhaps you didn't create this image with the -m statelite mode"
|
|
echo ""
|
|
shell
|
|
done
|
|
grep '\\(shell\\)' /proc/cmdline >/dev/null && shell
|
|
mount -t tmpfs rw -o mode=$permission \$NEWROOT/\$RWDIR
|
|
mkdir -p \$NEWROOT/\$RWDIR/tmpfs
|
|
|
|
#mount the /root/.ssh, it needs more strict permission in order for ssh work
|
|
#if [ ! -e "\$NEWROOT/root/.ssh" ]
|
|
#then
|
|
# mkdir -p \$NEWROOT/root/.ssh
|
|
#fi
|
|
#mount -t tmpfs -o mode=755 ssh \$NEWROOT/root/.ssh
|
|
|
|
# mount the SNAPSHOT directory here for persistent use.
|
|
if [ ! -z \$SNAPSHOTSERVER ]
|
|
then
|
|
mkdir -p \$NEWROOT/\$RWDIR/persistent
|
|
MAXTRIES=5
|
|
ITER=0
|
|
while ! mount \$SNAPSHOTSERVER:\$SNAPSHOTROOT \$NEWROOT/\$RWDIR/persistent -o nolock,\$XCATMNTOPTS
|
|
do
|
|
ITER=\$(expr \$ITER + 1)
|
|
if [ "\$ITER" == "\$MAXTRIES" ]
|
|
then
|
|
echo "You're dead. rpower \$ME boot to play again."
|
|
echo "Possible problems:
|
|
1. \$SNAPSHOTSERVER is not exporting \$SNAPSHOTROOT ?
|
|
2. Is DNS set up? Maybe that's why I can't mount \$SNAPSHOTSERVER."
|
|
shell
|
|
exit
|
|
fi
|
|
echo -e "\${RED}Hmmm... Can't mount \$SNAPSHOTSERVER:\$SNAPSHOTROOT. \${NORMAL} \$XCATMNTOPTS"
|
|
RS=`expr \$RANDOM % 20`
|
|
echo -e "Trying again in \$RS seconds"
|
|
sleep \$RS
|
|
done
|
|
fi
|
|
|
|
grep '\\(shell\\)' /proc/cmdline >/dev/null && shell
|
|
|
|
# have to preserve the initial DHCP request. So we link it.
|
|
# SLES uses different file to store DHCP info
|
|
if [ ! -d \$NEWROOT/\$RWDIR/tmpfs/var/lib/dhcpcd ]
|
|
then
|
|
mkdir -p \$NEWROOT/\$RWDIR/tmpfs/var/lib/dhcpcd
|
|
fi
|
|
cp -fp /var/lib/dhcpcd/dhcpcd-\$IFACE.info \${NEWROOT}/\${RWDIR}/tmpfs/var/lib/dhcpcd/dhcpcd-\$IFACE.info
|
|
|
|
[ -e /etc/ntp.conf ] && mkdir -p \$NEWROOT/\$RWDIR/tmpfs/etc && cp /etc/ntp.conf \$NEWROOT/\$RWDIR/tmpfs/etc/
|
|
|
|
[ -e /etc/resolv.conf ] && mkdir -p \$NEWROOT/\$RWDIR/tmpfs/etc && cp /etc/resolv.conf \$NEWROOT/\$RWDIR/tmpfs/etc/
|
|
|
|
# now that everything is mounted, lets do this
|
|
# hmmm, apparently I'm checking this twice... so I'd better
|
|
# be really sure the file is there.
|
|
while [ ! -e \$NEWROOT/etc/init.d/statelite ]
|
|
do
|
|
echo "\$NEWROOT/etc/init.d/statelite does not exist in image!"
|
|
shell
|
|
done
|
|
|
|
# do all the mounts:
|
|
\$NEWROOT/etc/init.d/statelite
|
|
|
|
# give the debug shell just before we go if specified!
|
|
grep '\(shell\)' /proc/cmdline > /dev/null && shell
|
|
|
|
echo 0x100 > /proc/sys/kernel/real-root-dev
|
|
export keep_old_ip=yes
|
|
export fastboot=yes
|
|
export READONLY=yes
|
|
grep '\\(shell\\)' /proc/cmdline >/dev/null && shell
|
|
mount -n --bind /dev /sysroot/dev
|
|
umount /sys
|
|
umount /proc
|
|
|
|
# sles use the standard utility to chroot
|
|
if ! exec /usr/bin/chroot \$NEWROOT /sbin/init
|
|
then
|
|
echo ""
|
|
echo -e "\${RED}Couldn't chroot. Something must be wrong with NFS root image.\${RESET}"
|
|
shell
|
|
fi
|
|
exit
|
|
fi
|
|
# end NFSROOT/Statelite code
|
|
|
|
if [ -r /rootimg.sfs ]; then
|
|
echo Setting up squashfs with ram overlay.
|
|
mknod /dev/loop0 b 7 0
|
|
mkdir -p /ro
|
|
mkdir -p /rw
|
|
mount -t squashfs /rootimg.sfs /ro
|
|
mount -t tmpfs rw /rw
|
|
mount -t aufs -o dirs=/rw:/ro mergedroot /sysroot
|
|
mkdir -p /sysroot/ro
|
|
mkdir -p /sysroot/rw
|
|
mount --move /ro /sysroot/ro
|
|
mount --move /rw /sysroot/rw
|
|
EOMS
|
|
print $inifile "elif [ -r /rootimg.gz ]; then\n";
|
|
print $inifile "echo Setting up RAM-root tmpfs.\n";
|
|
if ($rootlimit) {
|
|
print $inifile " mount -o size=$rootlimit,mode=755 -t tmpfs rootfs \$NEWROOT\n";
|
|
} else {
|
|
print $inifile " mount -o mode=755 -t tmpfs rootfs \$NEWROOT\n";
|
|
}
|
|
print $inifile " cd /sysroot\n";
|
|
print $inifile " echo -n \"Extracting root filesystem:\"\n";
|
|
print $inifile " if [ -x /bin/cpio ]; then\n";
|
|
print $inifile " zcat /rootimg.gz |/bin/cpio -idum\n";
|
|
print $inifile " else\n";
|
|
print $inifile " zcat /rootimg.gz |cpio -idum\n";
|
|
print $inifile " fi\n";
|
|
print $inifile " echo Done\n";
|
|
print $inifile "else\n";
|
|
print $inifile " echo -n Failed to download image, panicing in 5...\n";
|
|
print $inifile " for i in 4 3 2 1 0; do\n";
|
|
print $inifile " /bin/sleep 1\n";
|
|
print $inifile " echo -n \$i...\n";
|
|
print $inifile " done\n";
|
|
print $inifile " echo\n";
|
|
print $inifile <<EOMS;
|
|
echo "You're dead. rpower nodename reset to play again.
|
|
|
|
* Did you packimage with -m cpio or -m squashfs?
|
|
* If using -m squashfs did you include aufs.ko with geninitrd?
|
|
e.g.: -n tg3,squashfs,aufs,loop
|
|
"
|
|
sleep 5
|
|
EOMS
|
|
print $inifile " exit\n";
|
|
print $inifile "fi\n";
|
|
print $inifile "cd /\n";
|
|
print $inifile "mkdir \$NEWROOT/var/lib/dhcpcd/\n"; #neccessary for SLES11, not sure for SLES10
|
|
print $inifile "cp /var/lib/dhcpcd/* \$NEWROOT/var/lib/dhcpcd/\n";
|
|
print $inifile "cp /etc/resolv.conf \$NEWROOT/etc/\n";
|
|
print $inifile "cp /etc/HOSTNAME \$NEWROOT/etc/\n";
|
|
print $inifile "mknod \$NEWROOT/dev/console c 5 1\n";
|
|
print $inifile "exec /lib/mkinitrd/bin/run-init -c /dev/console \$NEWROOT /sbin/init\n";
|
|
close($inifile);
|
|
open($inifile,">"."/tmp/xcatinitrd.$$/bin/netstart");
|
|
print $inifile "#!/bin/bash \n";
|
|
print $inifile "dhcpcd \${1}\n";
|
|
|
|
#-- Bring other NICs up in /bin/netstart in initrd for NIC failover
|
|
foreach (split /,/,$othernics) {
|
|
if (/^$/) { next; }
|
|
print $inifile "dhcpcd $_\n";
|
|
}
|
|
|
|
print $inifile <<END;
|
|
cat /var/lib/dhcpcd/*info | grep HOSTNAME | uniq | awk -F= '{print \$2}'| sed \"s/'//g\" >> /etc/HOSTNAME
|
|
END
|
|
|
|
close($inifile);
|
|
chmod(0755,"/tmp/xcatinitrd.$$/init");
|
|
chmod(0755,"/tmp/xcatinitrd.$$/bin/netstart");
|
|
@filestoadd=();
|
|
foreach (@ndrivers) {
|
|
if (-f "$customdir/$_") {
|
|
push @filestoadd,[$_,"lib/$_"];
|
|
} elsif (-f "$pathtofiles/$_") {
|
|
push @filestoadd,[$_,"lib/$_"];
|
|
}
|
|
}
|
|
if($mode eq "statelite") {
|
|
foreach ("sbin/ifconfig", "usr/bin/clear", "sbin/mount.nfs","sbin/umount.nfs","bin/hostname","usr/bin/egrep","bin/ln","bin/ls","usr/bin/dirname","usr/bin/expr","usr/bin/chroot","usr/bin/grep","bin/cpio","bin/sleep","bin/mount","bin/umount","sbin/dhcpcd","bin/bash","sbin/insmod","bin/mkdir","bin/mknod","sbin/ip","bin/cat","usr/bin/awk","usr/bin/wget","bin/cp","usr/bin/cpio","usr/bin/zcat","usr/bin/gzip","lib/mkinitrd/bin/run-init","usr/bin/uniq","usr/bin/sed","usr/bin/wc", "bin/sed","sbin/udevd", "sbin/udevadm", "usr/bin/readlink") {
|
|
getlibs($_);
|
|
push @filestoadd,$_;
|
|
}
|
|
|
|
}else {
|
|
foreach ("sbin/ifconfig","usr/bin/clear", "usr/bin/grep","bin/cpio","bin/sleep","bin/mount","sbin/dhcpcd","bin/bash","sbin/insmod","bin/mkdir","bin/mknod","sbin/ip","bin/cat","usr/bin/awk","usr/bin/wget","bin/cp","usr/bin/cpio","usr/bin/zcat","usr/bin/gzip","lib/mkinitrd/bin/run-init","usr/bin/uniq","usr/bin/sed","sbin/udevd", "sbin/udevadm", "usr/bin/readlink") {
|
|
getlibs($_);
|
|
push @filestoadd,$_;
|
|
}
|
|
}
|
|
if ($arch =~ /x86_64/) {
|
|
push @filestoadd,"lib64/libnss_dns.so.2";
|
|
}
|
|
else {
|
|
push @filestoadd,"lib/libnss_dns.so.2";
|
|
}
|
|
|
|
# cross-platfrom support on power6&7 etc
|
|
# ldd can't handle such one scenario: mn is power6, the target platform is power7
|
|
if ($arch =~ /ppc64/) {
|
|
system("cp -a -r $rootimg_dir/lib64/* /tmp/xcatinitrd.$$/lib64/");
|
|
}
|
|
|
|
|
|
push @filestoadd,keys %libhash;
|
|
|
|
find(\&isnetdriver, <$rootimg_dir/lib/modules/$kernelver/*>);
|
|
foreach (@filestoadd) {
|
|
if (ref($_)) {
|
|
#print "$_->[0], $_->[1]\n";
|
|
my $srcpath = "$rootimg_dir/".$_->[0];
|
|
if (-f "$customdir/".$_->[0]) {
|
|
$srcpath="$customdir/".$_->[0];
|
|
} elsif (-f "$pathtofiles/".$_->[0]) {
|
|
$srcpath="$pathtofiles/".$_->[0];
|
|
}
|
|
copy($srcpath,"/tmp/xcatinitrd.$$/".$_->[1]);
|
|
chmod 0755,"/tmp/xcatinitrd.$$/".$_->[1];
|
|
} else {
|
|
#print "$_\n";
|
|
my $srcpath = "$rootimg_dir/$_";
|
|
if (-f "$customdir/$_") {
|
|
$srcpath = "$customdir/$_";
|
|
} elsif (-f "$pathtofiles/$_") {
|
|
$srcpath = "$pathtofiles/$_";
|
|
}
|
|
copy("$srcpath","/tmp/xcatinitrd.$$/$_");
|
|
chmod 0755,"/tmp/xcatinitrd.$$/".$_;
|
|
}
|
|
}
|
|
|
|
# Copy udev libraries
|
|
system("mkdir -p /tmp/xcatinitrd.$$/etc/udev");
|
|
system("mkdir -p /tmp/xcatinitrd.$$/lib/firmware");
|
|
system("cp -r $rootimg_dir/etc/udev/* /tmp/xcatinitrd.$$/etc/udev");
|
|
system("cp -r $rootimg_dir/bin/uname /tmp/xcatinitrd.$$/bin/");
|
|
system("cp -r $rootimg_dir/lib/firmware/* /tmp/xcatinitrd.$$/lib/firmware");
|
|
system("cp -r $rootimg_dir/usr/bin/killall /tmp/xcatinitrd.$$/usr/bin");
|
|
|
|
# Copy rules for network adapter
|
|
my $name = `cat /etc/sysconfig/network/ifcfg-$prinic | grep NAME`;
|
|
my $nic = '';
|
|
if ($name =~ m/(\d+\.\d+\.\d+)/g) {
|
|
$nic = $&;
|
|
}
|
|
system("cp -r /etc/udev/rules.d/*$nic.rules /tmp/xcatinitrd.$$/etc/udev/rules.d");
|
|
system("cp -r /etc/udev/rules.d/*persistent-net.rules /tmp/xcatinitrd.$$/etc/udev/rules.d");
|
|
|
|
system("mkdir -p /tmp/xcatinitrd.$$/lib/udev");
|
|
system("cp -r $rootimg_dir/lib/udev/* /tmp/xcatinitrd.$$/lib/udev");
|
|
|
|
#copy("$rootimg_dir/lib/modules/*d","/tmp/xcatinitrd.$$/$_");
|
|
system("cd /tmp/xcatinitrd.$$/bin/; ln -sf bash sh"); #neccessary for SLES11
|
|
if ($mode eq "statelite") {
|
|
system("cd /tmp/xcatinitrd.$$;find .|cpio -H newc -o|gzip -9 -c - > $destdir/initrd-statelite.gz");
|
|
print "The initial ramdisk for statelite has been generated successfully!\n";
|
|
} else {
|
|
system("cd /tmp/xcatinitrd.$$;find .|cpio -H newc -o|gzip -9 -c - > $destdir/initrd-stateless.gz");
|
|
print "The initial ramdisk for statelite has been generated successfully!\n";
|
|
}
|
|
system("rm -rf /tmp/xcatinitrd.$$");
|
|
|
|
}
|
|
|
|
sub isyumdir {
|
|
if ($File::Find::name =~ /\/repodata$/) {
|
|
my $location = $File::Find::name;
|
|
$location =~ s/\/repodata$//;
|
|
push @yumdirs,$location;
|
|
}
|
|
}
|
|
|
|
sub isnetdriver {
|
|
foreach (@ndrivers) {
|
|
if ($File::Find::name =~ /\/$_/) {
|
|
my $filetoadd = $File::Find::name;
|
|
$filetoadd =~ s!$rootimg_dir!!;
|
|
push @filestoadd,[$filetoadd,"lib/$_"];
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub postscripts { # TODO: customized postscripts
|
|
generic_post();
|
|
unless( -d "$rootimg_dir/opt/xcat/") {
|
|
mkdir "$rootimg_dir/opt/xcat/";
|
|
}
|
|
copy ("$installroot/postscripts/xcatdsklspost", "$rootimg_dir/opt/xcat/"); #TODO: it is not used in stateless
|
|
chmod '0755', "$rootimg_dir/opt/xcat/xcatdsklspost";
|
|
}
|
|
|
|
sub generic_post { # This function is meant to leave the image in a state approximating a normal install
|
|
my $cfgfile;
|
|
|
|
unlink("$rootimg_dir/dev/null");
|
|
system("mknod $rootimg_dir/dev/null c 1 3");
|
|
open($cfgfile,">","$rootimg_dir/etc/fstab");
|
|
print $cfgfile "devpts /dev/pts devpts gid=5,mode=620 0 0\n";
|
|
print $cfgfile "tmpfs /dev/shm tmpfs defaults 0 0\n";
|
|
print $cfgfile "proc /proc proc defaults 0 0\n";
|
|
print $cfgfile "sysfs /sys sysfs defaults 0 0\n";
|
|
if ($tmplimit) {
|
|
print $cfgfile "tmpfs /tmp tmpfs defaults,size=$tmplimit 0 2\n";
|
|
print $cfgfile "tmpfs /var/tmp tmpfs defaults,size=$tmplimit 0 2\n";
|
|
} else {
|
|
print $cfgfile "tmpfs /tmp tmpfs defaults,size=10m 0 2\n";
|
|
print $cfgfile "tmpfs /var/tmp tmpfs defaults,size=10m 0 2\n";
|
|
}
|
|
|
|
my $rootfs_name = $profile."_".$arch;
|
|
print $cfgfile "$rootfs_name / tmpfs rw 0 1\n";
|
|
|
|
close($cfgfile);
|
|
|
|
open($cfgfile,">","$rootimg_dir/etc/sysconfig/network");
|
|
print $cfgfile "NETWORKING=yes\n";
|
|
close($cfgfile);
|
|
|
|
open($cfgfile,">","$rootimg_dir/etc/resolv.conf");
|
|
print $cfgfile "#Dummy resolv.conf to make boot cleaner";
|
|
close($cfgfile);
|
|
#this code breaks statelite see defect 3324448
|
|
# if ($prinic) {
|
|
# open($cfgfile,">","$rootimg_dir/etc/sysconfig/network/ifcfg-$prinic");
|
|
# print $cfgfile "ONBOOT=yes\nBOOTPROTO=dhcp\nDEVICE=$prinic\nSTARTMODE=auto\n";
|
|
# close($cfgfile);
|
|
# }
|
|
|
|
foreach (split /,/,$othernics) {
|
|
next if (/^$/);
|
|
open($cfgfile,">","$rootimg_dir/etc/sysconfig/network/ifcfg-$_");
|
|
print $cfgfile "ONBOOT=yes\nBOOTPROTO=dhcp\nDEVICE=$_\nSTARTMODE=auto\n";
|
|
close($cfgfile);
|
|
}
|
|
|
|
# securetty not needed on s390x
|
|
if ($arch ne "s390x") {
|
|
open( $cfgfile, ">>", "$rootimg_dir/etc/securetty" );
|
|
print $cfgfile "ttyS0\n";
|
|
print $cfgfile "ttyS1\n";
|
|
print $cfgfile "console\n";
|
|
close($cfgfile);
|
|
}
|
|
|
|
my @passwd;
|
|
open($cfgfile,"<","$rootimg_dir/etc/passwd");
|
|
@passwd = <$cfgfile>;
|
|
close($cfgfile);
|
|
open($cfgfile,">","$rootimg_dir/etc/passwd");
|
|
foreach (@passwd) {
|
|
if (/^root:/) {
|
|
s/^root:\*/root:x/;
|
|
}
|
|
print $cfgfile $_;
|
|
}
|
|
close($cfgfile);
|
|
foreach (<$rootimg_dir/etc/skel/.*>) {
|
|
next if (basename($_) eq '.' or basename($_) eq '..');
|
|
copy $_,"$rootimg_dir/root/";
|
|
}
|
|
|
|
# gettyset is not found on s390x
|
|
if ($arch ne "s390x") {
|
|
open( $cfgfile, ">", "$rootimg_dir/etc/init.d/gettyset" );
|
|
print $cfgfile "#!/bin/bash\n";
|
|
print $cfgfile "### BEGIN INIT INFO\n";
|
|
print $cfgfile "# Provides: gettyset\n";
|
|
print $cfgfile "# Required-Start: sshd\n";
|
|
print $cfgfile "# Required-Stop:\n";
|
|
print $cfgfile "# Default-Start: 3\n";
|
|
print $cfgfile "# Default-Stop: 0 1 2 6\n";
|
|
print $cfgfile "# Short-Description: gettyset\n";
|
|
print $cfgfile "# Description:\n";
|
|
print $cfgfile "### END INIT INFO\n";
|
|
print $cfgfile "for i in `cat /proc/cmdline`; do\n";
|
|
print $cfgfile ' KEY=`echo $i|cut -d= -f 1`' . "\n";
|
|
print $cfgfile " if [ \"\$KEY\" == \"console\" -a \"\$i\" != \"console=tty0\" ]; then\n";
|
|
print $cfgfile " VALUE=`echo \$i | cut -d= -f 2`\n";
|
|
print $cfgfile " COTTY=`echo \$VALUE|cut -d, -f 1`\n";
|
|
print $cfgfile " COSPEED=`echo \$VALUE|cut -d, -f 2|cut -dn -f 1`\n";
|
|
print $cfgfile " if echo \$VALUE | grep n8r; then\n";
|
|
print $cfgfile " FLOWFLAG=\"-h\"\n";
|
|
print $cfgfile " fi\n";
|
|
print $cfgfile " echo xco:2345:respawn:/sbin/agetty \$FLOWFLAG \$COTTY \$COSPEED xterm >> /etc/inittab\n";
|
|
print $cfgfile " init q\n";
|
|
print $cfgfile " fi\n";
|
|
print $cfgfile "done\n";
|
|
print $cfgfile "/etc/init.d/boot.localnet start\n";
|
|
|
|
close($cfgfile);
|
|
chmod( 0755, "$rootimg_dir/etc/init.d/gettyset" );
|
|
}
|
|
|
|
copy("$installroot/postscripts/xcatpostinit", "$rootimg_dir/etc/init.d/xcatpostinit");
|
|
chmod(0755, "$rootimg_dir/etc/init.d/xcatpostinit");
|
|
system("chroot $rootimg_dir insserv gettyset xcatpostinit");
|
|
|
|
my $rc = system("grep sshd $rootimg_dir/etc/init.d/.depend.start");
|
|
if ($rc) {
|
|
system("sed -i '".'s/^\(TARGETS = .*\)$/\1 sshd/'."' $rootimg_dir/etc/init.d/.depend.start");
|
|
system("ln -s ../sshd $rootimg_dir/etc/init.d/rc3.d/S20sshd");
|
|
}
|
|
my $rc = system("grep gettyset $rootimg_dir/etc/init.d/.depend.start");
|
|
if ($rc) {
|
|
system("sed -i '".'s/^\(TARGETS = .*\)$/\1 gettyset/'."' $rootimg_dir/etc/init.d/.depend.start");
|
|
system("ln -s ../gettyset $rootimg_dir/etc/init.d/rc3.d/S60gettyset");
|
|
}
|
|
}
|
|
|
|
|
|
my $driver_name;
|
|
my $real_path;
|
|
sub get_path ()
|
|
{
|
|
if ($File::Find::name =~ /\/$driver_name/) {
|
|
$real_path = $File::Find::name;
|
|
}
|
|
}
|
|
|
|
#load the driver update disk, and return the driver names by loading order
|
|
sub load_dd()
|
|
{
|
|
# check the Driver Update Disk images, it can be .img or .iso
|
|
if (! -d "$installroot/driverdisk/$osver/$arch") {
|
|
return ();
|
|
}
|
|
|
|
my @dd_list = `find $installroot/driverdisk/$osver/$arch -type f`;
|
|
chomp(@dd_list);
|
|
|
|
if (! @dd_list) {
|
|
return ();
|
|
}
|
|
|
|
# Create the work space, it should be cleaned at end of genimage
|
|
my $dd_dir = mkdtemp("/tmp/ddtmpXXXXXXX");
|
|
mkpath "$dd_dir/mnt";
|
|
mkpath "$dd_dir/mods";
|
|
|
|
my @dd_drivers = (); #dirver names
|
|
|
|
# Load drivers from each Driver Disk
|
|
# For multiple dd, if want to make it has order, rename the dd with a number
|
|
# ahead of the name like 0_xx, 1_xx
|
|
foreach my $dd (sort(@dd_list)) {
|
|
my $rc = system ("mount -o loop $dd $dd_dir/mnt");
|
|
if ($rc) {
|
|
print "mount the Driver Disk $dd failed.\n";
|
|
next;
|
|
}
|
|
|
|
mkpath "$dd_dir/full";
|
|
|
|
# Copy out the drivers
|
|
opendir(DIR, "$dd_dir/mnt") || die "Cannot open dir $dd_dir/mnt";
|
|
while (my $dir = readdir(DIR)) {
|
|
if ($dir =~ /^\./) { next; }
|
|
|
|
# Every driver update disk can have multiple directories, each directory
|
|
# has the directory format like /linux/[distribution]/[architechture]-[version]/
|
|
# If the directory name is numeric, then it will be used as order to load the
|
|
# the dirviers inside.
|
|
# For the directory name which is not numeric, copy them to directory 0. It will be
|
|
# loaled first.
|
|
if ($dir !~ /^\d*$/) {
|
|
mkpath "$dd_dir/full/0";
|
|
system ("cp -rf $dd_dir/mnt/$dir $dd_dir/full/0");
|
|
} else {
|
|
system ("cp -rf $dd_dir/mnt/$dir $dd_dir/full/");
|
|
}
|
|
}
|
|
closedir(DIR);
|
|
|
|
# Get all the kernel modules base on the order of directory name.
|
|
|
|
# The structure of dd: <order>/linux/[distribution]/[architechture]-[version]/
|
|
|
|
# The supported arch: i386, ia64, ppc, ppc64, s390, s390x sparc or x86_64.
|
|
my $darch = $arch;
|
|
if ($darch =~ /^x86$/) {
|
|
$darch = "i386";
|
|
}
|
|
|
|
# If the version is os version. If the os is "sles11.1", the possible os version
|
|
# could be "sles11.1", "11.1", "11", "sles11"
|
|
my @distro = ($osver);
|
|
my $distro1 = $osver;
|
|
$distro1 =~ s/[^\d]*//;
|
|
push @distro,$distro1;
|
|
my $distro2 = $distro1;
|
|
$distro2 =~ s/\..*//;
|
|
push @distro,$distro2;
|
|
my $distro3 = $osver;
|
|
$distro3 =~ s/\..*//;
|
|
push @distro,$distro3;
|
|
|
|
opendir (FDIR, "$dd_dir/full") || die "Cannot open dir $dd_dir/full";
|
|
my @fulldir = readdir(FDIR);
|
|
closedir (FDIR);
|
|
|
|
# Create the directory for drivers from driver disk
|
|
if (! -d "$rootimg_dir/lib/modules/$kernelver/kernel/drivers/driverdisk") {
|
|
mkpath "$rootimg_dir/lib/modules/$kernelver/kernel/drivers/driverdisk";
|
|
}
|
|
|
|
# Copy the drivers to the root image and get the driver loading order
|
|
foreach my $dir (sort(@fulldir)) {
|
|
if ($dir =~ /^\./) { next; }
|
|
my $vdir;
|
|
foreach (@distro) {
|
|
if (-d "$dd_dir/full/$dir/linux/suse/$darch-$_") {
|
|
$vdir = "$dd_dir/full/$dir/linux/suse/$darch-$_";
|
|
}
|
|
}
|
|
if (! $vdir) { next; }
|
|
|
|
# Use the module_order if it has
|
|
if (-f "$vdir/modules/module.order") {
|
|
open(ORDER, "<", "$vdir/modules/module.order");
|
|
while (my $file = <ORDER>) {
|
|
chomp ($file);
|
|
if (-f "$vdir/modules/$file") {
|
|
$driver_name = $file;
|
|
$real_path = "";
|
|
find(\&get_path, <$rootimg_dir/lib/modules/$kernelver/*>);
|
|
if ($real_path eq "") {
|
|
system ("cp $vdir/modules/$file $rootimg_dir/lib/modules/$kernelver/kernel/drivers/driverdisk");
|
|
} else {
|
|
system ("cp $vdir/modules/$file $real_path");
|
|
}
|
|
|
|
push @dd_drivers, $file;
|
|
}
|
|
}
|
|
} else {
|
|
opendir (MDIR, "$vdir/modules") || die "Cannot open dir $vdir/modules";
|
|
while (my $file = readdir(MDIR)) {
|
|
if (-f "$vdir/modules/$file" && $file =~ /\.ko/) {
|
|
$driver_name = $file;
|
|
$real_path = "";
|
|
find(\&get_path, <$rootimg_dir/lib/modules/$kernelver/*>);
|
|
if ($real_path eq "") {
|
|
system ("cp $vdir/modules/$file $rootimg_dir/lib/modules/$kernelver/kernel/drivers/driverdisk");
|
|
} else {
|
|
system ("cp $vdir/modules/$file $real_path");
|
|
}
|
|
|
|
push @dd_drivers, $file;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
rmtree "$dd_dir/full";
|
|
|
|
my $rc = system ("umount -f $dd_dir/mnt");
|
|
if ($rc) {
|
|
print "umount the directory $dd_dir/mnt failed\n";
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
# Generate the dependency relationship
|
|
system ("chroot '$rootimg_dir' depmod $kernelver");
|
|
|
|
# Clean the env
|
|
rmtree "$dd_dir";
|
|
|
|
return @dd_drivers;
|
|
}
|
|
|
|
sub usage {
|
|
print 'Usage: genimage -o <OSVER> [-a <ARCH>] -p <PROFILE> -i <nodebootif> -n <nodenetdrivers> [-r <otherifaces>] [-k <KERNELVER>] [-g <KRPMVER>] [-l rootlimitsize] [-t tmplimitsize] [--permission <permission>]'."\n";
|
|
print ' genimage [-o <OSVER>] [-a <ARCH>] [-p <PROFILE>] [-i <nodebootif>] [-n <nodenetdrivers>] [-r <otherifaces>] [-k <KERNELVER>] [-g <KRPMVER>] [-l rootlimitsize] [-t tmplimitsize] [--permission <permission>] <imagename>'."\n";
|
|
print " --permission is used for statelite only\n";
|
|
print "Examples:\n";
|
|
print " genimage -i eth0 -n tg3 -o sles11 -p compute\n";
|
|
print " genimage -i eth0 -r eth1,eth2 -n tg3,bnx2 -o sles11 -p compute\n";
|
|
print " genimage -i eth0 -n tg3,bnx2 -o sles11 -p compute\n";
|
|
print " genimage -i eth0 -n tg3,bnx2 -o sles11 -p compute --permission 777\n";
|
|
print " genimage -i eth0 -n tg3 myimagename\n";
|
|
return 0;
|
|
}
|