2008-02-12 19:10:33 +00:00
#!/usr/bin/env perl
2009-09-24 18:51:53 +00:00
BEGIN
{
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
}
use lib "$::XCATROOT/lib/perl";
2008-02-12 19:10:33 +00:00
use File::Basename;
use File::Path;
2010-05-10 14:21:41 +00:00
use File::Copy qw/copy cp mv move/;
2008-02-12 19:10:33 +00:00
use File::Find;
use Getopt::Long;
2008-09-11 22:03:01 +00:00
use Cwd qw(realpath);
2010-08-23 08:00:51 +00:00
use File::Temp qw/mkdtemp/;
2010-07-09 06:19:30 +00:00
2010-12-13 06:59:31 +00:00
use FindBin;
use lib "$FindBin::Bin/../imgutils";
2010-07-09 06:19:30 +00:00
use imgutils;
2008-04-24 16:06:50 +00:00
#use strict;
2008-02-12 19:10:33 +00:00
Getopt::Long::Configure("bundling");
Getopt::Long::Configure("pass_through");
2010-05-08 00:15:40 +00:00
my $dracutmode; #Indicate whether this is a dracut style initrd
2011-09-21 06:47:20 +00:00
my $dracutdir = "dracut"; # The default directory name of dracut
2008-02-12 19:10:33 +00:00
my $prinic; #TODO be flexible on node primary nic
my $othernics; #TODO be flexible on node primary nic
my $netdriver;
my @yumdirs;
2009-09-24 18:51:53 +00:00
my $arch;
2008-02-12 19:10:33 +00:00
my %libhash;
my @filestoadd;
my $profile;
my $osver;
my $pathtofiles=dirname($0);
2008-09-11 22:03:01 +00:00
my $fullpath=realpath($pathtofiles);
2008-02-12 19:36:20 +00:00
my $name = basename($0);
my $onlyinitrd=0;
if ($name =~ /geninitrd/) {
$onlyinitrd=1;
}
2008-02-27 20:32:31 +00:00
my $rootlimit;
my $tmplimit;
2008-05-12 15:45:49 +00:00
my $installroot = "/install";
2011-03-28 07:39:59 +00:00
my $kerneldir;
2008-05-12 15:45:49 +00:00
my $kernelver = ""; #`uname -r`;
my $basekernelver; # = $kernelver;
2008-09-11 22:03:01 +00:00
my $customdir=$fullpath;
$customdir =~ s/.*share\/xcat/$installroot\/custom/;
2009-09-24 18:51:53 +00:00
my $imagename;
my $pkglist;
my $srcdir;
my $destdir;
my $srcdir_otherpkgs;
my $otherpkglist;
my $postinstall_filename;
my $rootimg_dir;
2010-03-05 08:05:47 +00:00
my $permission; # the permission works only for statelite mode currently
2012-03-27 19:28:49 +00:00
my $tempfile;
my $prompt;
2008-02-12 19:36:20 +00:00
2009-12-15 20:29:50 +00:00
2008-05-20 14:12:27 +00:00
sub xdie {
system("rm -rf /tmp/xcatinitrd.$$");
die @_;
}
$SIG{INT} = $SIG{TERM} = sub { xdie "Interrupted" };
2008-02-12 19:10:33 +00:00
GetOptions(
2008-05-12 15:45:49 +00:00
'a=s' => \$arch,
2008-02-12 19:10:33 +00:00
'p=s' => \$profile,
'o=s' => \$osver,
'n=s' => \$netdriver,
'i=s' => \$prinic,
2008-02-27 20:32:31 +00:00
'r=s' => \$othernics,
'l=s' => \$rootlimit,
2008-05-09 20:09:23 +00:00
't=s' => \$tmplimit,
2009-12-04 00:53:47 +00:00
'k=s' => \$kernelver,
2010-12-14 07:15:45 +00:00
'permission=s' => \$permission,
2011-07-07 16:10:53 +00:00
'kerneldir=s' => \$kerneldir,
2012-03-27 19:28:49 +00:00
'tempfile=s' =>\$tempfile, #internal flag
2011-07-07 16:10:53 +00:00
'pkglist=s' => \$pkglist, #internal flag
'srcdir=s' => \$srcdir, #internal flag
'otherpkgdir=s' => \$srcdir_otherpkgs, #internal flag
'otherpkglist=s' => \$otherpkglist, #internal flag
'postinstall=s' => \$postinstall_filename, #internal flag
'rootimgdir=s' => \$destdir, #internal flag
2012-03-27 20:59:36 +00:00
'interactive' =>\$prompt,
2008-02-12 19:10:33 +00:00
);
2010-09-17 09:54:47 +00:00
2011-07-07 16:10:53 +00:00
if (@ARGV > 0) {
2010-09-17 09:54:47 +00:00
$imagename=$ARGV[0];
2011-07-07 16:10:53 +00:00
}
2009-09-24 18:51:53 +00:00
2011-07-07 16:10:53 +00:00
my %updates_os = (); # the hash for updating osimage table
my %updates = (); # the hash for updating linuximage table
2009-09-24 18:51:53 +00:00
2010-03-05 08:05:47 +00:00
2010-09-17 09:54:47 +00:00
$permission = "755" unless ($permission);
2012-03-27 19:28:49 +00:00
$updates{'permission'} = $permission if ( $tempfile );
2010-09-17 09:54:47 +00:00
unless ($arch) {
2009-09-24 18:51:53 +00:00
$arch = `uname -m`;
chomp($arch);
2010-09-17 09:54:47 +00:00
$arch = "x86" if ($arch =~ /i.86$/);
2009-09-24 18:51:53 +00:00
}
2010-09-17 09:54:47 +00:00
$srcdir="$installroot/$osver/$arch" unless ($srcdir);
2012-03-27 19:28:49 +00:00
$updates{'pkgdir'} = $srcdir if ($tempfile);
2010-09-09 08:19:50 +00:00
2010-09-17 09:54:47 +00:00
$srcdir_otherpkgs = "$installroot/post/otherpkgs/$osver/$arch" unless ($srcdir_otherpkgs);
2012-03-27 19:28:49 +00:00
$updates{'otherpkgdir'} = $srcdir_otherpkgs if ($tempfile);
2010-09-17 09:54:47 +00:00
$destdir="$installroot/netboot/$osver/$arch/$profile" unless ($destdir);
2012-03-27 19:28:49 +00:00
$updates{'rootimgdir'} = $destdir if ($tempfile);
2010-09-09 08:19:50 +00:00
2009-09-24 18:51:53 +00:00
$rootimg_dir="$destdir/rootimg";
2011-03-28 07:39:59 +00:00
$kerneldir = "$installroot/kernels" unless ($kerneldir); # the default directory for 3rd-party kernel is "$installroot/kernels";
2012-03-27 19:28:49 +00:00
#$updates{'kerneldir'} = $kerneldir if ($tempfile);
2011-03-28 07:39:59 +00:00
2010-07-07 16:00:16 +00:00
# Get the subchannels of the given interface
my $subchn;
my $readChn;
my @chn;
if ($arch eq "s390x") {
$subchn = `cat /etc/sysconfig/network-scripts/ifcfg-$prinic | grep "SUBCHANNELS"`;
if (!$subchn) {
print "SUBCHANNELS need to be given in /etc/sysconfig/network-scripts/ifcfg-$prinic";
exit 1;
} else {
# Trim right
$subchn =~ s/\s*$//;
# Trim left
$subchn =~ s/^\s*//;
# Extract subchannels
$subchn =~ s/SUBCHANNELS=//g;
# Extract read channel
@chn = split( ",", $subchn );
$readChn = @chn[0];
}
}
2009-12-04 00:53:47 +00:00
2010-05-08 00:15:40 +00:00
unless ($osver and $profile) {
2011-06-24 16:22:15 +00:00
usage();
2008-02-12 19:10:33 +00:00
exit 1;
}
2009-12-04 00:53:47 +00:00
2008-02-12 19:10:33 +00:00
my @ndrivers;
2010-09-17 09:54:47 +00:00
if ($netdriver) {
2012-03-27 19:28:49 +00:00
if ( ($updates{'netdrivers'} ne $netdriver) and ($tempfile) ) {
2010-09-17 09:54:47 +00:00
$updates{'netdrivers'} = $netdriver;
}
} else {
if ($arch eq 'x86' or $arch eq 'x86_64') {
2011-04-14 14:18:40 +00:00
@ndrivers = qw/tg3 bnx2 bnx2x e1000 e1000e igb mlx_en virtio_net/;
2010-09-17 09:54:47 +00:00
} elsif ($arch eq 'ppc64') {
@ndrivers = qw/e1000 e1000e igb ibmveth ehea/;
2010-10-04 16:12:34 +00:00
} elsif ($arch eq 's390x') {
@ndrivers = qw/qdio ccwgroup/;
2010-09-17 09:54:47 +00:00
}
2010-05-08 00:15:40 +00:00
}
2008-02-12 19:10:33 +00:00
foreach (split /,/,$netdriver) {
unless (/\.ko$/) {
s/$/.ko/;
}
2010-09-17 09:54:47 +00:00
next if (/^$/);
push @ndrivers, $_;
2008-02-12 19:10:33 +00:00
}
2011-07-27 09:02:10 +00:00
foreach (@ndrivers) {
unless (/\.ko$/) {
s/$/.ko/;
}
}
2008-03-27 13:26:20 +00:00
unless ($onlyinitrd) {
2008-03-27 13:29:39 +00:00
@yumdirs=();
find(\&isyumdir, <$installroot/$osver/$arch/>);
2011-05-26 16:24:17 +00:00
# Add the dir for kernel rpm to be installed
if ($kernelver) {
find(\&isyumdir, <$kerneldir/>);
if (!grep /$kerneldir/, @yumdirs) {
print "The repository for $kerneldir should be created before running the geniamge. Try to run [createrepo $kerneldir].\n";
}
}
2008-03-27 13:29:39 +00:00
unless (scalar(@yumdirs)) {
2008-04-29 17:53:33 +00:00
print "Need $installroot/$osver/$arch/ available from a system that has ran copycds on $osver $arch\n";
2008-03-27 13:29:39 +00:00
exit 1;
}
2008-09-09 23:52:04 +00:00
2008-03-27 13:29:39 +00:00
my $yumconfig;
open($yumconfig,">","/tmp/genimage.$$.yum.conf");
my $repnum=0;
foreach $srcdir (@yumdirs) {
print $yumconfig "[$osver-$arch-$repnum]\nname=$osver-$arch-$repnum\nbaseurl=file://$srcdir\ngpgpcheck=0\n\n";
$repnum += 1;
}
$repnum-=1;
close($yumconfig);
2009-09-24 18:51:53 +00:00
mkpath "$rootimg_dir/etc";
2009-12-04 00:53:47 +00:00
2012-03-27 19:28:49 +00:00
2008-05-06 18:18:33 +00:00
my $fd;
2009-09-24 18:51:53 +00:00
open($fd,">>","$rootimg_dir/etc/fstab");
2008-05-06 18:18:33 +00:00
print $fd "#Dummy fstab for rpm postscripts to see\n";
close($fd);
2012-03-27 19:28:49 +00:00
my $non_interactive;
if (!$prompt) { $non_interactive="-y"; }
my $yumcmd = "yum $non_interactive -c /tmp/genimage.$$.yum.conf --installroot=$rootimg_dir/ --disablerepo=* ";
2008-03-27 13:29:39 +00:00
foreach (0..$repnum) {
2008-09-09 21:08:48 +00:00
$yumcmd .= "--enablerepo=$osver-$arch-$_ ";
2008-03-27 13:29:39 +00:00
}
2008-09-09 23:52:04 +00:00
2009-09-24 18:51:53 +00:00
mkpath("$rootimg_dir/var/lib/yum");
2008-09-09 21:08:48 +00:00
2010-09-17 09:54:47 +00:00
unless ($imagename) {
2010-07-09 06:19:30 +00:00
$pkglist= imgutils::get_profile_def_filename($osver, $profile, $arch, $customdir, "pkglist");
2010-09-17 09:54:47 +00:00
unless ($pkglist) {
$pkglist= imgutils::get_profile_def_filename($osver, $profile, $arch, $pathtofiles, "pkglist");
2011-05-26 16:24:17 +00:00
}
2009-09-24 18:51:53 +00:00
}
2008-09-11 22:03:01 +00:00
2010-09-17 09:54:47 +00:00
if ($pkglist) {
2012-03-27 19:28:49 +00:00
$updates{'pkglist'} = $pkglist if ($tempfile);
2010-09-17 09:54:47 +00:00
} else {
print "Unable to find package list for $profile!";
exit 1;
2008-03-27 13:29:39 +00:00
}
2011-05-26 16:24:17 +00:00
2010-07-09 09:33:48 +00:00
my %pkg_hash=imgutils::get_package_names($pkglist);
2010-03-19 21:12:56 +00:00
my $index=1;
2010-03-25 20:37:00 +00:00
my $pass;
2011-07-06 09:15:36 +00:00
foreach $pass (sort (keys(%pkg_hash))) {
my $pkgnames = "";
foreach (keys(%{$pkg_hash{$pass}})) {
2011-10-10 07:46:18 +00:00
if (($_ eq "PRE_REMOVE") || ($_ eq "POST_REMOVE") || ($_ eq "ENVLIST")) { next;}
2011-07-06 09:15:36 +00:00
my $pa=$pkg_hash{$pass}{$_};
my @npa = ();
# replace the kernel package with the name has the specific version
foreach my $p (@$pa) {
if ($p =~ /^kernel$/ && $kernelver) {
my $kernelname = "kernel-".$kernelver;
my $searchkern = $yumcmd . " list $kernelname -q";
my @kernpkgs = `$searchkern`;
my $found = 0;
foreach my $k (@kernpkgs) {
if ($k =~ /\s*kernel[^\s]*\s+([\w\.-]+)/) {
my $version = $1;
my $relversion = $kernelver;
$relversion =~ s/\.[^\.]+$//;
if ($version == $relversion) {
$found++;
}
}
}
if ($found eq 0) {
print "Cannot find the kernel with version $kernelver.\n";
exit 1;
}
push @npa, $kernelname;
}
elsif ($p =~ /^@/) {
push @npa, "\"$p\"";
}
else {
push @npa, $p;
}
2011-05-26 16:24:17 +00:00
}
2011-07-06 09:15:36 +00:00
$pkgnames .= " " . join(' ', @npa);
}
2011-10-10 07:46:18 +00:00
my $envlist;
if(exists $pkg_hash{$pass}{ENVLIST}){
$envlist = join(' ', @{$pkg_hash{$pass}{ENVLIST}});
}
2010-03-25 20:37:00 +00:00
2011-10-10 07:46:18 +00:00
print "$envlist $yumcmd install $pkgnames\n";
my $rc = system("$envlist $yumcmd install $pkgnames");
2011-07-06 09:15:36 +00:00
if ($rc) {
print "yum invocation failed\n";
exit 1;
}
}
2009-07-02 21:41:39 +00:00
#Now let's handle extra packages
2010-09-17 09:54:47 +00:00
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"); }
2010-03-19 21:12:56 +00:00
}
my %extra_hash=();
if ($otherpkglist) {
2012-03-27 19:28:49 +00:00
$updates{'otherpkglist'} = $otherpkglist if ($tempfile);
2010-09-17 09:54:47 +00:00
%extra_hash = imgutils::get_package_names($otherpkglist);
2010-03-19 21:12:56 +00:00
}
2010-03-25 20:37:00 +00:00
my %extrapkgnames;
2009-07-02 21:41:39 +00:00
2010-03-19 21:12:56 +00:00
if (keys(%extra_hash) > 0) {
2009-07-02 21:41:39 +00:00
open($yumconfig,">>","/tmp/genimage.$$.yum.conf");
my $index=1;
2010-03-31 00:53:54 +00:00
foreach $pass (sort (keys(%extra_hash))) {
2010-03-25 20:37:00 +00:00
foreach (keys(%{$extra_hash{$pass}})) {
2011-10-10 07:46:18 +00:00
if (($_ eq "PRE_REMOVE") || ($_ eq "POST_REMOVE") || ($_ eq "ENVLIST")) { next;}
2010-09-17 09:54:47 +00:00
print $yumconfig "[otherpkgs$index]\nname=otherpkgs$index\nbaseurl=file://$srcdir_otherpkgs/$_\ngpgpcheck=0\n\n";
$index++;
my $pa=$extra_hash{$pass}{$_};
$extrapkgnames{$pass} .= " " . join(' ', @$pa);
2010-03-25 20:37:00 +00:00
}
2009-07-02 21:41:39 +00:00
}
close($yumconfig);
$index--;
2012-03-27 19:28:49 +00:00
$yumcmd = "yum $non_interactive -c /tmp/genimage.$$.yum.conf --installroot=$rootimg_dir/ --disablerepo=* ";
2009-07-02 21:41:39 +00:00
foreach (0..$repnum) {
2010-09-17 09:54:47 +00:00
$yumcmd .= "--enablerepo=$osver-$arch-$_ ";
2009-07-02 21:41:39 +00:00
}
for (1..$index) {
2010-09-17 09:54:47 +00:00
$yumcmd .= "--enablerepo=otherpkgs$_ ";
2009-07-02 21:41:39 +00:00
}
2009-10-06 20:21:11 +00:00
2010-03-31 00:53:54 +00:00
foreach $pass (sort (keys(%extra_hash))) {
2011-10-10 07:46:18 +00:00
my $envlist;
if(exists($extra_hash{$pass}{ENVLIST})){
$envlist = join(' ', @{$extra_hash{$pass}{ENVLIST}});
}
2010-09-17 09:54:47 +00:00
# remove the packages that are specified in the otherpkgs.list files with leading '-'
2010-03-25 20:37:00 +00:00
my $yumcmd_remove= "$yumcmd erase ";
if (exists ($extra_hash{$pass}{'PRE_REMOVE'})) {
2010-09-17 09:54:47 +00:00
my $pa=$extra_hash{$pass}{'PRE_REMOVE'};
my $rm_packges= join(' ', @$pa);
if ($rm_packges) {
2011-10-10 07:46:18 +00:00
print "$envlist $yumcmd_remove $rm_packges\n";
$rc = system("$envlist $yumcmd_remove $rm_packges");
2010-09-17 09:54:47 +00:00
}
2010-03-25 20:37:00 +00:00
}
2012-03-29 08:22:41 +00:00
# mount /proc file system since several packages need it.
print "mount /proc file system\nchroot $rootimg_dir /bin/mount -t proc proc /proc\n";
system("chroot $rootimg_dir /bin/mount -t proc proc /proc");
2010-03-25 20:37:00 +00:00
2010-09-17 09:54:47 +00:00
# install extra packages
2010-03-25 20:37:00 +00:00
my $yumcmd_base = $yumcmd;
$yumcmd .= "install ";
2010-09-17 09:54:47 +00:00
# append extra pkg names to yum command
2010-03-25 20:37:00 +00:00
if ($extrapkgnames{$pass}) {
2010-09-17 09:54:47 +00:00
$yumcmd .= " $extrapkgnames{$pass} ";
2012-03-27 19:28:49 +00:00
$yumcmd =~ s/ $/\n/;
2009-07-02 21:41:39 +00:00
2012-03-27 19:28:49 +00:00
# debug
#print "yumcmd=$yumcmd\n";
#my $repo=`cat /tmp/genimage.$$.yum.conf`;
#print "repo=$repo";
print "$envlist $yumcmd\n";
my $rc = system("$envlist $yumcmd");
if ($rc) {
print "yum invocation failed\n";
exit 1;
}
2012-03-16 07:05:26 +00:00
} else {
2012-03-27 19:28:49 +00:00
print "No Packages marked for install\n";
2010-03-25 20:37:00 +00:00
}
2012-03-27 19:28:49 +00:00
2012-03-29 08:22:41 +00:00
# umount /proc file system that just mounted
print "umount /proc file system\nchroot $rootimg_dir /bin/umount /proc\n";
system("chroot $rootimg_dir /bin/umount /proc");
2009-10-06 20:21:11 +00:00
2010-09-17 09:54:47 +00:00
# remove the packages that are specified in the otherpkgs.list files with leading '--'
2010-03-25 20:37:00 +00:00
if (exists ($extra_hash{$pass}{'POST_REMOVE'})) {
2010-09-17 09:54:47 +00:00
my $pa=$extra_hash{$pass}{'POST_REMOVE'};
my $rm_packges= join(' ', @$pa);
if ($rm_packges) {
2011-10-10 07:46:18 +00:00
print "$envlist $yumcmd_remove $rm_packges\n";
$rc = system("$envlist $yumcmd_remove $rm_packges");
2010-09-17 09:54:47 +00:00
}
2010-03-25 20:37:00 +00:00
}
2011-10-10 07:46:18 +00:00
$yumcmd = $yumcmd_base;
2009-10-06 20:21:11 +00:00
}
2010-03-25 20:37:00 +00:00
}
2010-03-08 20:46:07 +00:00
2010-03-25 20:37:00 +00:00
# run yum update to update any installed rpms
# needed when running genimage again after updating software in repositories
my $yumcmd_update = $yumcmd_base . " update ";
$rc = system("$yumcmd_update");
# ignore any return code
2010-03-08 20:46:07 +00:00
2010-09-25 09:54:06 +00:00
postscripts(); #run 'postscripts'
}
# 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
2010-09-06 07:04:26 +00:00
2010-09-25 09:54:06 +00:00
# Kernel name for s390x should be the same: vmlinuz-2.6.18-164.el5
my @KVERS= <$rootimg_dir/boot/vmlinuz-*>;
foreach (@KVERS) {
s/vmlinuz-//;
}
2010-09-17 09:54:47 +00:00
2010-09-25 09:54:06 +00:00
@KVERS= <$rootimg_dir/lib/modules/*> unless (scalar(@KVERS));
2010-09-17 09:54:47 +00:00
2010-09-25 09:54:06 +00:00
$basekernelver = basename(pop @KVERS) if (scalar(@KVERS));
2010-09-17 09:54:47 +00:00
2010-09-25 09:54:06 +00:00
$basekernelver = `uname -r` unless ($basekernelver);
2010-09-06 07:04:26 +00:00
2010-09-25 09:54:06 +00:00
$kernelver = $basekernelver unless ($kernelver);
chomp($kernelver);
2010-09-17 09:54:47 +00:00
2012-03-27 19:28:49 +00:00
#$updates{'kernelver'} = $kernelver if ($tempfile);
2010-09-06 07:04:26 +00:00
2010-09-27 09:09:50 +00:00
# copy the kernel to $destdir
if ( -e "$rootimg_dir/boot/vmlinux-$kernelver") {
cp("$rootimg_dir/boot/vmlinux-$kernelver", "$destdir/kernel");
} elsif ( -e "$rootimg_dir/boot/vmlinuz-$kernelver") {
cp("$rootimg_dir/boot/vmlinuz-$kernelver", "$destdir/kernel");
} elsif ( -e "$rootimg_dir/boot/image-$kernelver") {
cp("$rootimg_dir/boot/image-$kernelver", "$destdir/kernel");
} else {
xdie("couldn't find the kernel file matched $kernelver in $rootimg_dir/boot");
}
2010-08-12 09:06:12 +00:00
# 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);
2010-03-30 15:49:46 +00:00
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);
2008-02-12 19:10:33 +00:00
unlink "/tmp/genimage.$$.yum.conf";
2010-05-10 13:40:11 +00:00
if (-d "$rootimg_dir/usr/share/dracut") {
2010-09-17 09:54:47 +00:00
$dracutmode = 1;
2011-09-21 06:47:20 +00:00
# get dracut version
my $dracutver = `rpm -R $rootimg_dir -qi dracut | grep Version | awk -F' ' '{print \$3}'`;
if ($dracutver =~ /^\d\d\d$/) {
if ($dracutver >= "009") {
$dracutdir = "dracut_009";
} else {
$dracutdir = "dracut"; # The default directory
}
}
print "Enter the dracut mode. Dracut version: $dracutver. Dracut directory: $dracutdir.\n";
2010-05-10 13:40:11 +00:00
}
2009-02-19 06:25:49 +00:00
#-- run postinstall script
2010-09-17 09:54:47 +00:00
unless ($imagename) {
2010-07-09 06:19:30 +00:00
$postinstall_filename= imgutils::get_profile_def_filename($osver, $profile, $arch, $customdir, "postinstall");
2010-09-17 09:54:47 +00:00
unless ($postinstall_filename) {
$postinstall_filename= imgutils::get_profile_def_filename($osver, $profile, $arch, $pathtofiles, "postinstall");
2009-09-24 18:51:53 +00:00
}
}
if (($postinstall_filename) && (-x $postinstall_filename)) {
2010-09-17 09:54:47 +00:00
2012-03-27 19:28:49 +00:00
$updates{'postinstall'} = $postinstall_filename if ($tempfile);
2010-09-17 09:54:47 +00:00
2009-09-24 18:51:53 +00:00
my $rc = system($postinstall_filename, $rootimg_dir,$osver,$arch,$profile);
2009-02-19 06:25:49 +00:00
if($rc) {
print "postinstall script failed\n";
exit 1;
}
}
2011-07-07 16:10:53 +00:00
# all the attributes have been gathered
# now, update the linuximage and osimage tables
# TODO: do statelite and stateless share the same attributes?
#BEGIN: PLEASE DO NOT CHANGE THE FOLLOWING CODE, genimage PLUGIN NEEDS TO PARSE THR OUTPUT
2012-03-27 19:28:49 +00:00
if ($tempfile) {
open(FILE, ">>$tempfile");
2010-09-17 09:54:47 +00:00
if ($imagename) {
2011-07-07 16:10:53 +00:00
if (keys(%updates) > 0) {
2012-03-27 19:28:49 +00:00
print FILE "The output for table updates starts here\n";
print FILE "table::linuximage\n";
print FILE "imagename::$imagename\n";
2011-07-07 16:10:53 +00:00
my @a=%updates;
2012-03-27 19:28:49 +00:00
print FILE join('::',@a) . "\n";
print FILE "The output for table updates ends here\n";
2011-07-07 16:10:53 +00:00
}
2010-09-17 09:54:47 +00:00
} else {
2011-07-07 16:10:53 +00:00
$updates_os{'profile'} = $profile;
$updates_os{'imagetype'} = 'linux';
$updates_os{'provmethod'} = 'netboot';
$updates_os{'osname'} = 'Linux';
$updates_os{'osvers'} = $osver;
$updates_os{'osarch'} = $arch;
# update the imagename for stateless
2012-03-27 19:28:49 +00:00
print FILE "The output for table updates starts here\n";
print FILE "table::osimage\n";
print FILE "imagename::$osver-$arch-netboot-$profile\n";
2011-07-07 16:10:53 +00:00
my @a=%updates_os;
2012-03-27 19:28:49 +00:00
print FILE join('::',@a) . "\n";
print FILE "The output for table updates ends here\n";
2011-07-07 16:10:53 +00:00
2012-03-27 19:28:49 +00:00
print FILE "The output for table updates starts here\n";
print FILE "table::linuximage\n";
print FILE "imagename::$osver-$arch-netboot-$profile\n";
2011-07-07 16:10:53 +00:00
my @a=%updates;
2012-03-27 19:28:49 +00:00
print FILE join('::',@a) . "\n";
print FILE "The output for table updates ends here\n";
2011-07-07 16:10:53 +00:00
# update the imagename for statelite
$updates_os{'provmethod'} = 'statelite';
2012-03-27 19:28:49 +00:00
print FILE "The output for table updates starts here\n";
print FILE "table::osimage\n";
print FILE "imagename::$osver-$arch-statelite-$profile\n";
2011-07-07 16:10:53 +00:00
my @a=%updates_os;
2012-03-27 19:28:49 +00:00
print FILE join('::',@a) . "\n";
print FILE "The output for table updates ends here\n";
2011-07-07 16:10:53 +00:00
2012-03-27 19:28:49 +00:00
print FILE "The output for table updates starts here\n";
print FILE "table::linuximage\n";
print FILE "imagename::$osver-$arch-statelite-$profile\n";
2011-07-07 16:10:53 +00:00
my @a=%updates;
2012-03-27 19:28:49 +00:00
print FILE join('::',@a) . "\n";
print FILE "The output for table updates ends here\n";
2010-09-17 09:54:47 +00:00
}
2012-03-27 19:28:49 +00:00
close FILE;
2010-09-17 09:54:47 +00:00
}
2011-07-07 16:10:53 +00:00
#END
2009-12-15 20:29:50 +00:00
# statelite .statelite directory added here.
# this is where tmpfs will be created.
2010-09-17 09:54:47 +00:00
mkpath "$rootimg_dir/.statelite"; # create place for NFS mounts.
# this script will get the directories.
# TODO: the file is re-copied in liteimg.pm
2010-12-21 03:22:09 +00:00
my $cwd = $FindBin::Bin;
unless (-f "$cwd/../add-on/statelite/rc.statelite") {
print "Can't find $cwd/../add-on/statelite/rc.statelite!\n";
2010-09-17 09:54:47 +00:00
exit 1;
}
2010-12-21 03:22:09 +00:00
system("cp $cwd/../add-on/statelite/rc.statelite $rootimg_dir/etc/init.d/statelite");
2010-09-17 09:54:47 +00:00
# also need to add this file:
# may have already been made into a symbolic link, if so ignore it
unless ($dracutmode) { #in dracut mode, we delegate all this activity
unless (-l "$rootimg_dir/var/lib/dhclient" ) {
mkpath "$rootimg_dir/var/lib/dhclient/";
system("touch $rootimg_dir/var/lib/dhclient/dhclient-$prinic.leases");
}
2010-05-08 00:15:40 +00:00
2010-09-17 09:54:47 +00:00
unless (-l "$rootimg_dir/var/lib/dhcp" ) {
mkpath "$rootimg_dir/var/lib/dhcp/";
system("touch $rootimg_dir/var/lib/dhcp/dhclient-$prinic.leases");
2010-05-08 00:15:40 +00:00
}
2010-09-17 09:54:47 +00:00
}
2010-07-14 11:30:30 +00:00
2010-09-17 09:54:47 +00:00
if ($dracutmode) {
2010-09-09 08:54:48 +00:00
# modify etc/rc.sysinit, prevent remounting
2010-09-17 09:54:47 +00:00
# TODO: need to find one way to prevent remounting
2010-09-09 08:54:48 +00:00
my $SYSINITFILE;
my $TMPSYSINITFILE;
if (-f "$rootimg_dir/etc/rc.sysinit") {
2011-09-21 06:47:20 +00:00
# backup etc/rc.sysinit file before modifing it
system("cp -a $rootimg_dir/etc/rc.sysinit $rootimg_dir/etc/rc.sysinit.backup");
2010-09-09 08:54:48 +00:00
open($SYSINITFILE, "$rootimg_dir/etc/rc.sysinit");
open($TMPSYSINITFILE, '>', "/tmp/rc.sysinit.tmp");
# find the following lines,
# if remount_needed ; then
# action $"Remounting root filesystem in read-write mode: " mount -n -o remount,rw /
# fi
# and change "if remount_needed ; then" to "if false; then"
while(<$SYSINITFILE>) {
if ($_ eq "if remount_needed ; then\n") {
$_ = "if false; then\n";
}
2010-09-09 08:16:58 +00:00
print $TMPSYSINITFILE $_;
2010-09-09 08:54:48 +00:00
}
close($SYSINITFILE);
close($TMPSYSINITFILE);
cp("/tmp/rc.sysinit.tmp", "$rootimg_dir/etc/rc.sysinit");
2010-07-14 11:30:30 +00:00
}
2010-09-17 09:54:47 +00:00
}
2009-12-15 20:29:50 +00:00
2010-09-06 07:04:26 +00:00
# before mkinitrd, run depmod to generate modules.dep
system("chroot $rootimg_dir depmod $kernelver");
2009-12-15 20:29:50 +00:00
2010-09-25 09:54:06 +00:00
# for the genimage-enchement, need to create two initial ramdisks,
2010-09-17 09:54:47 +00:00
# one is for stateless
# the other one is for statelite
2009-12-15 20:29:50 +00:00
2010-05-10 13:40:11 +00:00
if ($dracutmode) {
2010-09-17 09:54:47 +00:00
mkinitrd_dracut("statelite");
mkinitrd_dracut("stateless");
2010-05-10 13:40:11 +00:00
} else {
2010-09-17 09:54:47 +00:00
mkinitrd("statelite");
mkinitrd("stateless");
2010-05-10 13:40:11 +00:00
}
2008-02-12 19:10:33 +00:00
sub getlibs {
my $file = shift;
2009-09-24 18:51:53 +00:00
my $liblist = `chroot $rootimg_dir ldd $file`;
2008-02-12 19:10:33 +00:00
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/^\///;
2010-09-17 09:54:47 +00:00
$libhash{$temp1}=1;
2008-02-12 19:10:33 +00:00
}
}
2010-05-10 14:02:36 +00:00
sub mkinitrd_dracut {
2010-09-17 09:54:47 +00:00
my ($mode) = @_; # the mode is for statelite or stateless
2010-07-07 08:20:37 +00:00
my $dracutmpath = "$rootimg_dir/usr/share/dracut/modules.d/97xcat";
mkpath($dracutmpath);
2011-09-21 06:47:20 +00:00
my $perm = (stat("$fullpath/$dracutdir/check"))[2];
cp("$fullpath/$dracutdir/check", $dracutmpath);
2010-07-07 08:20:37 +00:00
chmod($perm&07777, "$dracutmpath/check");
2010-07-07 10:12:01 +00:00
foreach (@ndrivers) { s/\.ko$//; }
2010-07-07 08:20:37 +00:00
my $add_drivers = join(' ', @ndrivers);
my $DRACUTCONF;
if ($mode eq "statelite") {
# for statelite
2011-09-21 06:47:20 +00:00
cp("$fullpath/$dracutdir/install.statelite","$dracutmpath/install");
$perm = (stat("$fullpath/$dracutdir/install.statelite"))[2];
2010-07-07 08:20:37 +00:00
chmod($perm&07777, "$dracutmpath/install");
2011-09-21 06:47:20 +00:00
cp("$fullpath/$dracutdir/xcat-prepivot.sh",$dracutmpath);
$perm = (stat("$fullpath/$dracutdir/xcat-prepivot.sh"))[2];
2010-07-07 08:20:37 +00:00
chmod($perm&07777, "$dracutmpath/xcat-prepivot.sh");
# update etc/dracut.conf
open($DRACUTCONF, '>', "$rootimg_dir/etc/dracut.conf");
2010-09-17 09:54:47 +00:00
print $DRACUTCONF qq{dracutmodules+="xcat nfs base network kernel-modules"\n};
2010-07-07 08:20:37 +00:00
print $DRACUTCONF qq{add_drivers+="$add_drivers"\n};
print $DRACUTCONF qq{filesystems+="nfs"\n};
close $DRACUTCONF;
2010-09-17 09:54:47 +00:00
} elsif ($mode eq "stateless") {
2011-09-21 06:47:20 +00:00
cp("$fullpath/$dracutdir/install.netboot","$dracutmpath/install");
$perm = (stat("$fullpath/$dracutdir/install.netboot"))[2];
2010-07-07 08:20:37 +00:00
chmod($perm&07777, "$dracutmpath/install");
2011-09-21 06:47:20 +00:00
cp("$fullpath/$dracutdir/xcat-cmdline.sh","$dracutmpath/");
$perm = (stat("$fullpath/$dracutdir/xcat-cmdline.sh"))[2];
2010-07-07 10:26:05 +00:00
chmod($perm&07777, "$dracutmpath/xcat-cmdline.sh");
2010-07-07 08:20:37 +00:00
if ($prinic) {
my $optspec;
open($optspec,'>>',"$dracutmpath/xcat-cmdline.sh");
2010-09-17 09:54:47 +00:00
print $optspec "PRINIC=$prinic\n";
2010-07-07 08:20:37 +00:00
close $optspec;
}
2011-09-21 06:47:20 +00:00
cp("$fullpath/$dracutdir/xcatroot","$dracutmpath/");
$perm = (stat("$fullpath/$dracutdir/xcatroot"))[2];
2010-07-07 08:20:37 +00:00
chmod($perm&07777, "$dracutmpath/xcatroot");
2011-09-21 06:47:20 +00:00
cp("$fullpath/$dracutdir/installkernel", "$dracutmpath/");
$perm = (stat("$fullpath/$dracutdir/installkernel"))[2];
2010-07-07 08:20:37 +00:00
chmod($perm&07777, "$dracutmpath/installkernel");
# update etc/dracut.conf
open($DRACUTCONF, '>', "$rootimg_dir/etc/dracut.conf");
2011-05-27 03:00:05 +00:00
print $DRACUTCONF qq{dracutmodules+="xcat nfs base network kernel-modules"\n};
2010-07-07 08:20:37 +00:00
print $DRACUTCONF qq{add_drivers+="$add_drivers"\n};
close $DRACUTCONF;
2010-09-17 09:54:47 +00:00
} else {
xdie "the mode: $mode is not supported by genimage";
2010-05-11 13:44:34 +00:00
}
2010-09-17 09:54:47 +00:00
system("chroot $rootimg_dir dracut -f /tmp/initrd.$$.gz $kernelver");
2011-03-28 07:39:59 +00:00
print "the initial ramdisk for $mode is generated successfully.\n";
2010-09-17 09:54:47 +00:00
move("$rootimg_dir/tmp/initrd.$$.gz", "$destdir/initrd-$mode.gz");
2010-05-10 13:40:11 +00:00
}
2008-02-12 19:10:33 +00:00
sub mkinitrd {
2010-09-17 09:54:47 +00:00
my ($mode) = @_; # statelite or stateless
if($mode eq "statelite") {
push @ndrivers, "fscache.ko";
push @ndrivers, "sunrpc.ko";
push @ndrivers, "lockd.ko";
push @ndrivers, "nfs_acl.ko";
push @ndrivers, "nfs.ko";
# Additional modules needed on s390x
if ($arch eq "s390x") {
# The network drivers need to be loaded in this order
unshift @ndrivers, "ccwgroup.ko";
unshift @ndrivers, "qdio.ko";
}
}
2008-05-09 20:09:23 +00:00
mkpath("/tmp/xcatinitrd.$$/bin");
2010-09-06 07:04:26 +00:00
symlink("bin","/tmp/xcatinitrd.$$/sbin");
2008-02-12 19:10:33 +00:00
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.$$/lib64/firmware");
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/dhclient");
my $inifile;
2009-12-04 00:53:47 +00:00
# start writing to the init script.
2008-02-12 19:10:33 +00:00
open($inifile,">","/tmp/xcatinitrd.$$/init");
print $inifile "#!/sbin/busybox.anaconda sh\n";
2010-06-29 16:02:16 +00:00
2009-12-04 00:53:47 +00:00
# add some functions
2010-06-29 16:02:16 +00:00
print $inifile <<EOS1;
2009-12-04 00:53:47 +00:00
NEWROOT="/sysroot"
SHELL="/bin/sh"
2009-12-15 20:29:50 +00:00
RWDIR=".statelite"
2009-12-04 00:53:47 +00:00
# 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"
2009-12-15 20:29:50 +00:00
NORMAL=\$RESET
2009-12-04 00:53:47 +00:00
2009-12-15 20:29:50 +00:00
# This function is used to mount files/directories from the .statelite directory
2009-12-04 00:53:47 +00:00
# over the root directory.
2010-09-17 09:54:47 +00:00
# This function is stolen from redhat
2009-12-04 00:53:47 +00:00
shell() {
echo ''
echo -e "\$YELLOW Entering rescue/debug init shell."
echo -e " Exit shell to continue booting.\$RESET"
\$SHELL
}
fancydisplay () {
clear
echo -e "\$CYAN"
2009-12-15 20:29:50 +00:00
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.:;
'
2009-12-04 00:53:47 +00:00
echo -e "\$RESET"
echo -e "\$YELLOW"
echo '
_________ ________________
___ __\\_ ___ \\ / _ \\__ ___/
\\ \\/ / \\ \\/ / /_\\ \\| |
> <\\ \\____/ | \\ |
/__/\\_ \\\\______ /\\____|__ /____|
\\/ \\/ \\/
'
echo -e "\$RESET"
}
EOS1
2010-09-17 09:54:47 +00:00
print $inifile "busybox.anaconda mount -t proc /proc /proc\n";
print $inifile "busybox.anaconda --install\n";
print $inifile "mount -t sysfs /sys /sys\n";
2008-02-12 19:10:33 +00:00
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/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";
2010-09-17 09:54:47 +00:00
2008-02-12 19:10:33 +00:00
foreach (@ndrivers) {
2010-06-29 16:02:16 +00:00
print $inifile "insmod /lib/$_\n";
2008-02-12 19:10:33 +00:00
}
2010-06-29 16:02:16 +00:00
# Start udev on s390x
if ($arch eq "s390x") {
print $inifile <<EOMS;
# Start udev to find devices attached to node
echo `/sbin/udevd --daemon`
echo `/sbin/udevtrigger`
echo `/sbin/udevsettle`
sleep 1
echo `/sbin/depmod`
# Setup network scripts
echo "NETWORKING=yes" > /etc/sysconfig/network
echo "ONBOOT=yes" > /etc/sysconfig/network-scripts/ifcfg-$prinic
echo "BOOTPROTO=dhcp" >> /etc/sysconfig/network-scripts/ifcfg-$prinic
echo "DEVICE=$prinic" >> /etc/sysconfig/network-scripts/ifcfg-$prinic
echo 'OPTIONS="layer2=1"' >> /etc/sysconfig/network-scripts/ifcfg-$prinic
2010-07-07 16:00:16 +00:00
echo "SUBCHANNELS=$subchn" >> /etc/sysconfig/network-scripts/ifcfg-$prinic
2010-06-29 16:02:16 +00:00
# Turn on network devices
2010-07-07 16:00:16 +00:00
echo $subchn > /sys/bus/ccwgroup/drivers/qeth/group
echo 1 > /sys/bus/ccwgroup/drivers/qeth/$readChn/layer2
echo 1 > /sys/bus/ccwgroup/drivers/qeth/$readChn/online
echo "alias $prinic qeth" >> /etc/modprobe.conf
echo `ifup $prinic`
2010-06-29 16:02:16 +00:00
sleep 4
EOMS
}
2008-04-24 16:06:50 +00:00
print $inifile <<EOMS;
2009-12-04 00:53:47 +00:00
# check and see if debug is specified on command line
2009-12-15 20:29:50 +00:00
grep '\(debug\)' /proc/cmdline > /dev/null && export DEBUG=1
2010-06-28 13:53:31 +00:00
2010-09-17 09:54:47 +00:00
# check the kernel parameter at first
# if one parameter for the booting device is there, we will use it
# TODO
# ( netdevice is recognized by SLES, )
# ( Dracut has one "network" module to handle the booting network devices, which use "ifname" )
# ( What should the other redhat versions use ? netdev=<eth0> and BOOTIF=<mac address> )
# besides this action, the following code is also used to get the XCAT= value, which is for XCAT server
# TODO: does "anaconda.busybox sh" support "set " ?
PRINIC=$prinic
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
2010-09-22 15:08:16 +00:00
VALUE=`echo \$i |awk -F= '{print \$2}'|sed -e s/^01-// -e s/-/:/g`
BOOTIF=`ifconfig -a|grep -i "hwaddr \$VALUE"|awk '{print \$1}'`
2010-09-17 09:54:47 +00:00
elif [ "\$KEY" == 'XCAT' ]; then
VALUE=`echo \$i |awk -F= '{print \$2}'`
# format: XCAT=xcatmaster:3001
XCATSERVER=\$VALUE
fi
done
2010-06-28 13:53:31 +00:00
if [ -z "\$IFACE" ]; then
2010-09-17 09:54:47 +00:00
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
2010-06-28 13:53:31 +00:00
fi
export IFACE=\$IFACE
2011-06-21 19:31:16 +00:00
echo network --device \$IFACE --bootproto dhcp >> /bin/netstart
2010-06-28 13:53:31 +00:00
2011-03-03 20:17:25 +00:00
netstart \$IFACE
2008-10-23 14:28:32 +00:00
while ! ifconfig | grep inet; do
2009-12-04 00:53:47 +00:00
echo -e "\${RED}Failed to acquire address, retrying \${RESET}"
2010-09-17 09:54:47 +00:00
sleep 5
2011-03-03 20:17:25 +00:00
netstart \$IFACE
2008-10-23 14:28:32 +00:00
done
2008-05-14 23:16:48 +00:00
ifconfig lo 127.0.0.1
ifconfig lo up
2008-04-24 16:06:50 +00:00
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
2009-12-04 00:53:47 +00:00
ST=`expr \$RANDOM % 5`
sleep \$ST
2008-04-24 16:06:50 +00:00
rm -f \$FILENAME
fi
done
fi
if [ "nfs" == "`echo \$VALUE|awk -F: '{print \$1}'`" ]; then
NFS=1
SERVER=`echo \$VALUE|awk -F/ '{print \$3}'`
ROOTDIR=`echo \$VALUE|awk -F/ '{for(i=4;i<=NF;i++) printf "/%s",\$i}'`
fi
2009-12-04 00:53:47 +00:00
# for NFS root
elif [ "\$KEY" == 'NFSROOT' ]; then
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}'`
2009-12-15 20:29:50 +00:00
elif [ "\$KEY" == 'STATEMNT' ]; then
2011-01-06 06:54:06 +00:00
STATELITE=1
2009-12-04 00:53:47 +00:00
VALUE=`echo \$i |awk -F= '{print \$2}'`
2011-01-06 06:54:06 +00:00
# the 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
2008-04-24 16:06:50 +00:00
fi
done
2009-12-04 00:53:47 +00:00
# show xCAT logo
fancydisplay
2009-03-03 20:05:17 +00:00
echo 0 > /proc/sys/vm/zone_reclaim_mode #Avoid kernel bug
2009-12-04 00:53:47 +00:00
2011-01-06 06:54:06 +00:00
# STATELITE code here:
if [ "\$STATELITE" = "1" ]; then
echo Setting up Statelite
# for loop back mouting capability!
mknod /dev/loop0 b 7 0
mkdir -p \$NEWROOT
MAXTRIES=5
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 are dead. rpower \$ME boot to play again."
echo "Possible problems:
1. This initrd wasn't craeted 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 initfs?"
shell
exit
fi
echo -e "\${RED}Could not mount \$SERVER:\$ROOTDIR on \$NEWROOT \$RESET"
RS=`expr \$RANDOM % 30`
echo -e "Trying again in \$RS seconds"
sleep \$RS
done
elif [ "\$NFS" = "1" ]; then
echo -e "\${RED}The \"imgurl=\" value should not be nfs-type if statelite mode is enabled \$RESET"
shell
exit
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) {
2011-06-21 02:58:55 +00:00
print $inifile " mount -o size=$rootlimit,mode=755 -t tmpfs rootfs \$NEWROOT \n";
2011-01-06 06:54:06 +00:00
} else {
print $inifile " mount -o mode=755 -t tmpfs rootfs \$NEWROOT\n";
}
print $inifile <<EOMS;
modprobe nfs
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} Couldnot find rootimg-statelite.gz for statelite on top of ramdisk \$RESET"
shell
exit
fi
fi
# now we need to mount the rest of the system.
if [ ! -e "\$NEWROOT/\$RWDIR" ]; then
echo ""
echo -e "\${RED}Hmmm... this NFS root directories doesn't have a /\$RWDIR directory for me to mount a rw filesystem. You'd better to create it... \${NORMAL}"
echo ""
shell
exit
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 run liteimg for the current osimage"
echo ""
shell
exit
done
mount -t tmpfs rw -o mode=$permission \$NEWROOT/\$RWDIR
mkdir -p \$NEWROOT/\$RWDIR/tmpfs
# 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,rsize=32768; do
ITER=\$(expr \$ITER + 1 )
if [ "\$ITER" == "\$MAXTRIES" ]; then
echo "You're dead. rpower \$ME boot to play again."
echo "Possible problems:
2009-12-15 20:29:50 +00:00
1. \$SNAPSHOTSERVER is not exporting \$SNAPSHOTROOT ?
2011-01-06 06:54:06 +00:00
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}"
RS=\$(expr \$RANDOM % 20 )
echo -e "Trying again in \$RS seconds"
sleep \$RS
done
fi
2009-12-04 00:53:47 +00:00
2011-01-06 06:54:06 +00:00
# have to preserve the initial DHCP request.
if [ ! -d \$NEWROOT/\$RWDIR/tmpfs/var/lib/dhclient ]; then
mkdir -p \$NEWROOT/\$RWDIR/tmpfs/var/lib/dhclient
fi
2009-12-04 00:53:47 +00:00
2011-01-06 06:54:06 +00:00
if [ ! -d \$NEWROOT/\$RWDIR/tmpfs/var/lib/dhcp ]; then
mkdir -p \$NEWROOT/\$RWDIR/tmpfs/var/lib/dhcp
fi
2009-12-04 00:53:47 +00:00
2011-01-06 06:54:06 +00:00
cp -fp /var/lib/dhclient/dhclient.leases \$NEWROOT/\$RWDIR/tmpfs/var/lib/dhclient/dhclient-\$IFACE.leases
cp -fp /var/lib/dhclient/dhclient.leases \$NEWROOT/\$RWDIR/tmpfs/var/lib/dhcp/dhclient-\$IFACE.leases
2009-12-04 00:53:47 +00:00
2011-01-06 06:54:06 +00:00
[ -e /etc/ntp.conf ] && mkdir -p \$NEWROOT/\$RWDIR/tmpfs/etc && cp /etc/ntp.conf \$NEWROOT/\$RWDIR/tmpfs/etc/
[ -e /etc/ntp/step-kickers ] && mkdir -p \$NEWROOT/\$RWDIR/tmpfs/etc/ntp && cp /etc/ntp/step-kickers \$NEWROOT/\$RWDIR/tmpfs/etc/ntp
[ -e /etc/resolv.conf ] && mkdir -p \$NEWROOT/\$RWDIR/tmpfs/etc && cp /etc/resolv.conf \$NEWROOT/\$RWDIR/tmpfs/etc/
2009-12-15 20:29:50 +00:00
2011-01-06 06:54:06 +00:00
while [ ! -e \$NEWROOT/etc/init.d/statelite ]; do
echo -e "\${RED} \$NEWROOT/etc/init.d/statelite doesn't exist in the osimge! \${NORMAL}"
shell
done
2009-12-15 20:29:50 +00:00
2011-01-06 06:54:06 +00:00
# do all the mounts
\$NEWROOT/etc/init.d/statelite
2009-12-15 20:29:50 +00:00
2011-01-06 06:54:06 +00:00
# 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
mount -n --bind /dev/ \$NEWROOT/dev
umount /sys
umount /proc
if ! exec /sbin/switch_root -c /dev/console \$NEWROOT /sbin/init; then
echo ""
echo -e "\${RED}Couldn't switch_root. Something must be wrong with the root image.\${RESET}"
shell
fi
2009-12-15 20:29:50 +00:00
2009-12-04 00:53:47 +00:00
fi
# END NFSROOT/Statelite code
2010-09-17 09:54:47 +00:00
if [ -r /rootimg.sfs ]; then
2008-04-24 16:06:50 +00:00
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
2011-01-06 06:54:06 +00:00
mount -t aufs -o dirs=/rw:/ro mergedroot \$NEWROOT
mkdir -p \$NEWROOT/ro
mkdir -p \$NEWROOT/rw
mount --move /ro \$NEWROOT/ro
mount --move /rw \$NEWROOT/rw
2008-04-24 16:06:50 +00:00
EOMS
2008-02-12 19:10:33 +00:00
print $inifile "elif [ -r /rootimg.gz ]; then\n";
2008-04-24 16:06:50 +00:00
print $inifile "echo Setting up RAM-root tmpfs.\n";
2008-02-27 20:32:31 +00:00
if ($rootlimit) {
2011-06-21 02:58:55 +00:00
print $inifile " mount -o size=$rootlimit,mode=755 -t tmpfs rootfs \$NEWROOT\n";
2008-02-27 20:32:31 +00:00
} else {
2011-01-06 06:54:06 +00:00
print $inifile " mount -o mode=755 -t tmpfs rootfs \$NEWROOT\n";
2008-02-27 20:32:31 +00:00
}
2011-01-06 06:54:06 +00:00
print $inifile " cd \$NEWROOT\n";
2008-02-12 19:10:33 +00:00
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";
2010-09-17 09:54:47 +00:00
print $inifile " /bin/sleep 5\n";
2008-02-12 19:10:33 +00:00
print $inifile " echo -n \$i...\n";
print $inifile " done\n";
print $inifile " echo\n";
2008-04-24 16:06:50 +00:00
print $inifile <<EOMS;
echo "You're dead. rpower nodename reset to play again.
* Did you packimage with -m cpio, -m squashfs, or -m nfs?
* If using -m squashfs did you include aufs.ko with geninitrd?
e.g.: -n tg3,squashfs,aufs,loop
* If using -m nfs did you export NFS and sync rootimg? And
did you include the aufs and nfs modules in the proper order:
e.g.: -n tg3,aufs,loop,sunrpc,lockd,nfs_acl,nfs
"
sleep 5
EOMS
2008-02-12 19:10:33 +00:00
print $inifile " exit\n";
print $inifile "fi\n";
print $inifile "cd /\n";
2011-01-06 06:54:06 +00:00
print $inifile "cp /var/lib/dhclient/dhclient.leases \$NEWROOT/dev/.dhclient-\$IFACE.leases\n";
print $inifile "cp /var/lib/dhclient/dhclient.leases \$NEWROOT/var/lib/dhclient/dhclient-\$IFACE.leases\n";
2011-07-27 08:35:25 +00:00
print $inifile 'if [ -z "$SNAPSHOTSERVER" ]; then cp /etc/resolv.conf $NEWROOT/etc/resolv.conf; fi'."\n";
2011-01-06 06:54:06 +00:00
print $inifile "mknod \$NEWROOT/dev/console c 5 1\n";
print $inifile "exec switch_root -c /dev/console \$NEWROOT /sbin/init\n";
2008-02-12 19:10:33 +00:00
close($inifile);
2009-12-04 00:53:47 +00:00
2008-02-12 19:10:33 +00:00
open($inifile,">"."/tmp/xcatinitrd.$$/bin/netstart");
print $inifile "#!/sbin/nash\n";
close($inifile);
2010-09-17 09:54:47 +00:00
chmod(0755,"/tmp/xcatinitrd.$$/init");
chmod(0755,"/tmp/xcatinitrd.$$/bin/netstart");
2008-02-12 19:10:33 +00:00
@filestoadd=();
foreach (@ndrivers) {
2010-09-17 09:54:47 +00:00
if (-f "$customdir/$_") {
push @filestoadd,[$_,"lib/$_"];
2008-09-11 22:03:01 +00:00
} elsif (-f "$pathtofiles/$_") {
2010-09-17 09:54:47 +00:00
push @filestoadd,[$_,"lib/$_"];
2008-09-11 22:03:01 +00:00
}
2008-02-12 19:10:33 +00:00
}
2009-12-04 00:53:47 +00:00
# add rsync for statelite
2010-08-15 16:06:23 +00:00
foreach ("bin/cpio","sbin/nash","sbin/busybox.anaconda","sbin/rmmod", "bin/bash", "usr/sbin/chroot", "sbin/mount.nfs", "usr/bin/rsync", "usr/bin/wc") {
2008-02-12 19:10:33 +00:00
getlibs($_);
push @filestoadd,$_;
}
2010-06-29 16:02:16 +00:00
2010-09-17 09:54:47 +00:00
# Additional binaries needed for udev on s390x
if ($arch eq "s390x") {
foreach ("sbin/udevsettle", "sbin/udevtrigger", "sbin/udevd", "sbin/depmod") {
getlibs($_);
push @filestoadd,$_;
}
}
2010-06-29 16:02:16 +00:00
2008-05-07 20:09:23 +00:00
if ($arch =~ /x86_64/) {
push @filestoadd,"lib64/libnss_dns.so.2";
2008-06-24 13:48:35 +00:00
push @filestoadd,"lib64/libresolv.so.2";
2010-09-17 09:54:47 +00:00
} else {
2008-05-07 20:09:23 +00:00
push @filestoadd,"lib/libnss_dns.so.2";
}
2008-02-12 19:10:33 +00:00
push @filestoadd,keys %libhash;
2010-09-17 09:54:47 +00:00
2009-09-24 18:51:53 +00:00
find(\&isnetdriver, <$rootimg_dir/lib/modules/$kernelver/*>);
2008-09-11 22:03:01 +00:00
2008-02-12 19:10:33 +00:00
foreach (@filestoadd) {
if (ref($_)) {
2008-09-11 22:03:01 +00:00
#print "$_->[0], $_->[1]\n";
2009-09-24 18:51:53 +00:00
my $srcpath = "$rootimg_dir/".$_->[0];
2008-09-11 22:03:01 +00:00
if (-f "$customdir/".$_->[0]) {
$srcpath="$customdir/".$_->[0];
} elsif (-f "$pathtofiles/".$_->[0]) {
2008-02-12 19:10:33 +00:00
$srcpath="$pathtofiles/".$_->[0];
}
2008-06-02 15:41:50 +00:00
mkpath(dirname("/tmp/xcatinitrd.$$/".$_->[1]));
2008-02-12 19:10:33 +00:00
copy($srcpath,"/tmp/xcatinitrd.$$/".$_->[1]);
chmod 0755,"/tmp/xcatinitrd.$$/".$_->[1];
} else {
2008-09-11 22:03:01 +00:00
#print "$_\n";
2009-09-24 18:51:53 +00:00
my $srcpath = "$rootimg_dir/$_";
2008-09-11 22:03:01 +00:00
if (-f "$customdir/$_") {
$srcpath = "$customdir/$_";
} elsif (-f "$pathtofiles/$_") {
2008-09-09 23:52:04 +00:00
$srcpath = "$pathtofiles/$_";
2008-02-12 19:10:33 +00:00
}
2008-06-02 15:41:50 +00:00
mkpath(dirname("/tmp/xcatinitrd.$$/$_"));
2008-02-12 19:10:33 +00:00
copy("$srcpath","/tmp/xcatinitrd.$$/$_");
chmod 0755,"/tmp/xcatinitrd.$$/".$_;
}
}
2011-01-06 06:54:06 +00:00
# Copy udev and network scripts into initrd for s390x, which also works for other platforms
# udev
system("mkdir -p /tmp/xcatinitrd.$$/etc/udev");
system("cp -r $rootimg_dir/etc/udev/* /tmp/xcatinitrd.$$/etc/udev");
system("mkdir -p /tmp/xcatinitrd.$$/lib/udev");
system("cp -r $rootimg_dir/lib/udev/* /tmp/xcatinitrd.$$/lib/udev");
system("mkdir -p /tmp/xcatinitrd.$$/proc/self");
system("cp -r /proc/self/oom_adj /tmp/xcatinitrd.$$/proc/self");
# Network related scripts
system("mkdir -p /tmp/xcatinitrd.$$/etc/sysconfig");
system("cp -r $rootimg_dir/etc/sysconfig/* /tmp/xcatinitrd.$$/etc/sysconfig");
system("mkdir -p /tmp/xcatinitrd.$$/sbin");
system("cp -r $rootimg_dir/sbin/* /tmp/xcatinitrd.$$/sbin");
system("mkdir -p /tmp/xcatinitrd.$$/lib/modules/$kernelver");
system("cp -r $rootimg_dir/lib/modules/$kernelver/modules.dep /tmp/xcatinitrd.$$/lib/modules/$kernelver/modules.dep");
system("mkdir -p /tmp/xcatinitrd.$$/etc/init.d");
system("cp -r $rootimg_dir/etc/init.d/* /tmp/xcatinitrd.$$/etc/init.d");
system("mkdir -p /tmp/xcatinitrd.$$/lib64");
system("cp -r $rootimg_dir/lib64/* /tmp/xcatinitrd.$$/lib64");
system("mkdir -p /tmp/xcatinitrd.$$/var/run/netreport");
2010-06-29 16:02:16 +00:00
2009-09-24 18:51:53 +00:00
#copy("$rootimg_dir/lib/modules/*d","/tmp/xcatinitrd.$$/$_");
2010-09-17 09:54:47 +00:00
system("cd /tmp/xcatinitrd.$$;find .|cpio -H newc -o|gzip -9 -c - > $destdir/initrd-$mode.gz");
2008-02-12 19:10:33 +00:00
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) {
2008-05-09 21:18:42 +00:00
if ($File::Find::name =~ /\/$_/) {
2008-02-12 19:10:33 +00:00
my $filetoadd = $File::Find::name;
2009-09-24 18:51:53 +00:00
$filetoadd =~ s!$rootimg_dir/!!;
2008-02-12 19:10:33 +00:00
push @filestoadd,[$filetoadd,"lib/$_"];
}
}
}
2010-12-14 07:15:45 +00:00
sub postscripts {
2008-02-12 19:10:33 +00:00
generic_post();
2010-06-10 09:43:06 +00:00
2010-12-14 07:15:45 +00:00
# TODO: workaround for kdump on RHEL6
# add one fake command: fsck.nfs
unless ( -x "$rootimg_dir/sbin/fsck.nfs" ) {
system("echo true > $rootimg_dir/sbin/fsck.nfs; chmod a+x $rootimg_dir/sbin/fsck.nfs");
}
2010-09-17 09:54:47 +00:00
if( ! -d "$rootimg_dir/opt/xcat/") {
mkdir "$rootimg_dir/opt/xcat/";
}
copy ("$installroot/postscripts/xcatdsklspost", "$rootimg_dir/opt/xcat/");
chmod '0755', "$rootimg_dir/opt/xcat/xcatdsklspost";
2008-02-12 19:10:33 +00:00
}
2011-09-21 06:47:20 +00:00
sub using_systemd {
my $os = shift;
if ($os =~ /fedora(\d+)/) {
if ($1 >= 15) {
return 1;
}
}
return 0;
}
2008-02-12 19:10:33 +00:00
sub generic_post { #This function is meant to leave the image in a state approximating a normal install
my $cfgfile;
2009-09-24 18:51:53 +00:00
unlink("$rootimg_dir/dev/null");
system("mknod $rootimg_dir/dev/null c 1 3");
open($cfgfile,">","$rootimg_dir/etc/fstab");
2008-02-12 19:10:33 +00:00
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";
2010-09-17 09:54:47 +00:00
2011-09-21 06:47:20 +00:00
if (!&using_systemd($osver)) {
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";
}
2010-08-25 08:29:52 +00:00
}
2010-09-17 09:54:47 +00:00
my $rootfs_name=$profile."_".$arch;
print $cfgfile "$rootfs_name / tmpfs rw 0 1\n";
2008-02-12 19:10:33 +00:00
close($cfgfile);
2009-09-24 18:51:53 +00:00
open($cfgfile,">","$rootimg_dir/etc/sysconfig/network");
2008-02-12 19:10:33 +00:00
print $cfgfile "NETWORKING=yes\n";
close($cfgfile);
2009-09-24 18:51:53 +00:00
open($cfgfile,">","$rootimg_dir/etc/resolv.conf");
2008-05-07 19:20:47 +00:00
print $cfgfile "#Dummy resolv.conf to make boot cleaner";
close($cfgfile);
2011-07-15 11:14:59 +00:00
# Create the ifcfg-x file for diskless node. But keep the ONBOOT=no
# to skip the break of nfs-based boot
if ($prinic) {
open($cfgfile,">","$rootimg_dir/etc/sysconfig/network-scripts/ifcfg-$prinic");
print $cfgfile "ONBOOT=no\nBOOTPROTO=dhcp\nDEVICE=$prinic\n";
close($cfgfile);
}
2008-02-12 19:10:33 +00:00
foreach (split /,/,$othernics) {
if (/^$/) { next; }
2009-09-24 18:51:53 +00:00
open($cfgfile,">","$rootimg_dir/etc/sysconfig/network-scripts/ifcfg-$_");
2008-02-12 19:10:33 +00:00
print $cfgfile "ONBOOT=yes\nBOOTPROTO=dhcp\nDEVICE=$_\n";
close($cfgfile);
}
2010-06-29 16:02:16 +00:00
2011-09-21 06:47:20 +00:00
# securetty not needed on s390x
if ($arch ne "s390x") {
open($cfgfile,">>","$rootimg_dir/etc/securetty");
print $cfgfile "ttyS0\n";
print $cfgfile "ttyS1\n";
close($cfgfile);
}
2010-06-29 16:02:16 +00:00
2008-05-07 14:51:12 +00:00
my @passwd;
2009-09-24 18:51:53 +00:00
open($cfgfile,"<","$rootimg_dir/etc/passwd");
2008-05-07 14:51:12 +00:00
@passwd = <$cfgfile>;
close($cfgfile);
2009-09-24 18:51:53 +00:00
open($cfgfile,">","$rootimg_dir/etc/passwd");
2008-05-07 14:51:12 +00:00
foreach (@passwd) {
if (/^root:/) {
s/^root:\*/root:x/
}
print $cfgfile $_;
}
close($cfgfile);
2009-09-24 18:51:53 +00:00
foreach (<$rootimg_dir/etc/skel/.*>) {
2008-05-07 15:27:10 +00:00
if (basename($_) eq '.' or basename($_) eq '..') {
next;
}
2009-09-24 18:51:53 +00:00
copy $_,"$rootimg_dir/root/";
2008-05-07 15:27:10 +00:00
}
2009-09-24 18:51:53 +00:00
unless ( -r <$rootimg_dir/etc/rc3.d/S??network>) {
symlink "/etc/init.d/network","$rootimg_dir/etc/rc3.d/S10network";
2008-06-07 16:38:08 +00:00
}
2010-06-29 16:02:16 +00:00
2011-09-21 06:47:20 +00:00
# gettyset is not found on s390x
if ($arch ne "s390x") {
if (!&using_systemd($osver)) {
open($cfgfile,">","$rootimg_dir/etc/init.d/gettyset");
print $cfgfile "#!/bin/bash\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 " if [ -x /sbin/initctl ]; then\n"; # Upstart style
print $cfgfile " initctl emit --no-wait fedora.serial-console-available \$COTTY \$COSPEED\n";
print $cfgfile " else\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 " fi\n";
print $cfgfile "done\n";
close($cfgfile);
chmod(0755,"$rootimg_dir/etc/init.d/gettyset");
system("cd $rootimg_dir/etc/rc3.d; ln -sf ../init.d/gettyset S60gettyset");
}
2010-06-29 16:02:16 +00:00
2011-09-21 06:47:20 +00:00
copy("$installroot/postscripts/xcatpostinit", "$rootimg_dir/etc/init.d/xcatpostinit");
chmod(0755, "$rootimg_dir/etc/init.d/xcatpostinit");
system("cd $rootimg_dir/etc/rc3.d; ln -sf ../init.d/xcatpostinit S61xcatpostinit");
}
2010-09-06 07:04:26 +00:00
}
2009-10-06 20:21:11 +00:00
2010-08-12 09:06:12 +00:00
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 ()
{
# Get 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 for initrd hack
2010-08-23 08:00:51 +00:00
my $dd_dir = mkdtemp("/tmp/ddtmpXXXXXXX");
2010-08-12 09:06:12 +00:00
mkpath "$dd_dir/mnt";
mkpath "$dd_dir/mods";
my @dd_drivers = (); #dirver name
# Loading drivers from each Driver Disk
foreach my $dd (@dd_list) {
my $rc = system ("mount -o loop $dd $dd_dir/mnt");
if ($rc) {
print "mount the Driver Disk $dd failed.\n";
next;
}
if (! (-f "$dd_dir/mnt/rhdd" || -f "$dd_dir/mnt/modinfo"
|| -f "$dd_dir/mnt/modules.dep" || -f "$dd_dir/mnt/modules.cgz")) {
print "The Driver Disk $dd has not correct format.\n";
system ("umount -f $dd_dir/mnt");
next;
}
# Load the modinfo
open($modinfo, "<", "$dd_dir/mnt/modinfo");
my @modinfo_lines = <$modinfo>;
my $mod_ver = shift @modinfo_lines;
chomp($mod_ver);
if ($mod_ver !~ /^Version 0/) {
print "The Driver Disk $dd has unknown version.\n";
system ("umount -f $dd_dir/mnt");
next;
}
foreach my $line (@modinfo_lines) {
if ($line !~ /^Version/ && $line =~ /^(\w+)/) {
chomp($line);
if ($line =~ /^\s*$/) { next; }
$line =~ s/$/\.ko/;
push @dd_drivers, $line;
}
}
close($modinfo);
# Copy the firmware
if (-d "$dd_dir/mnt/firmware") {
system ("cp -rf $dd_dir/mnt/firmware $rootimg_dir/lib/firmware");
}
# Load the modules.cgz
system ("cd $dd_dir/mods; gunzip -c $dd_dir/mnt/modules.cgz |cpio -id");
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
my @drivers = `find $dd_dir/mods/$kernelver/$arch/ -type f`;
foreach my $d (@drivers) {
chomp($d);
$driver_name = $d;
$driver_name =~ s/.*\///;
$real_path = "";
find (\&get_path, <$rootimg_dir/lib/modules/$kernelver/*>);
if ($real_path eq "") {
system ("cp $d $rootimg_dir/lib/modules/$kernelver/kernel/drivers/driverdisk");
} else {
system ("cp $d $real_path");
}
}
rmtree "$dd_dir/mods/*";
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;
}
2011-06-24 16:22:15 +00:00
sub usage {
2012-03-27 20:59:36 +00:00
print 'Usage: genimage [ -i <nodebootif> ] [ -n <nodenetdrivers> ] [-r <otherifaces>] -o <osver> -p <profile> -k <kernelver> [--permission <permission>] [--interactive]'."\n";
2011-06-24 16:22:15 +00:00
print " --permission only works with statelite mode\n";
print "Examples:\n";
print " genimage -i eth0 -n tg3 -o centos5.1 -p compute \n";
2012-03-27 20:59:36 +00:00
print " genimage -i eth0 -r eth1,eth2 -n tg3,bnx2 -o centos5.1 -p compute --interactive\n";
2011-06-24 16:22:15 +00:00
print " genimage -i eth0 -n igb,e1000e,e1000,bnx2,tg3 -o centos5.4 -p nfsroot\n";
print " genimage -i eth0 -n igb,e1000e,e1000,bnx2,tg3 -o centos5.4 -p nfsroot --permission 777\n";
return 0;
}
2010-08-12 09:06:12 +00:00