2f7cd346a8
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@610 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
105 lines
3.6 KiB
Perl
105 lines
3.6 KiB
Perl
package xCAT_plugin::packimage;
|
|
use xCAT::Table;
|
|
use Getopt::Long;
|
|
use File::Path;
|
|
use Cwd;
|
|
use File::Temp;
|
|
Getopt::Long::Configure("bundling");
|
|
Getopt::Long::Configure("pass_through");
|
|
|
|
sub handled_commands {
|
|
return {
|
|
packimage => "packimage",
|
|
}
|
|
}
|
|
|
|
sub process_request {
|
|
my $sitetab = xCAT::Table->new('site');
|
|
my $request = shift;
|
|
my $callback = shift;
|
|
my $doreq = shift;
|
|
my $ent = $sitetab->getAttribs({key=>'installdir'},['value']);
|
|
my $installroot = "/install";
|
|
|
|
if ($ent and $ent->{value}) {
|
|
$installroot = $ent->{value};
|
|
}
|
|
@ARGV = @{$request->{arg}};
|
|
my $osver;
|
|
my $arch;
|
|
my $profile;
|
|
my $method='cpio';
|
|
GetOptions(
|
|
"profile|p=s" => \$profile,
|
|
"arch|a=s" => \$arch,
|
|
"osver|o=s" => \$osver,
|
|
"method|m=s" => \$method
|
|
);
|
|
my $distname = $osver;
|
|
until (-r "$::XCATROOT/share/xcat/netboot/$distname/" or not $distname) {
|
|
chop($distname);
|
|
}
|
|
unless ($distname) {
|
|
$callback->({error=>["Unable to find $::XCATROOT/share/xcat/netboot directory for $osver"],errorcode=>[1]});
|
|
return;
|
|
}
|
|
unless ($installroot) {
|
|
$callback->({error=>["No installdir defined in site table"],errorcode=>[1]});
|
|
return;
|
|
}
|
|
my $oldpath=cwd();
|
|
my $exlistloc;
|
|
if (-r "$::XCATROOT/share/xcat/netboot/$distname/$profile.$osver.$arch.exlist") {
|
|
$exlistloc = "$::XCATROOT/share/xcat/netboot/$distname/$profile.$osver.$arch.exlist";
|
|
} elsif (-r "$::XCATROOT/share/xcat/netboot/$distname/$profile.$arch.exlist") {
|
|
$exlistloc = "$::XCATROOT/share/xcat/netboot/$distname/$profile.$arch.exlist";
|
|
} elsif (-r "$::XCATROOT/share/xcat/netboot/$distname/$profile.$osver.exlist") {
|
|
$exlistloc = "$::XCATROOT/share/xcat/netboot/$distname/$profile.$osver.exlist";
|
|
} elsif (-r "$::XCATROOT/share/xcat/netboot/$distname/$profile.exlist") {
|
|
$exlistloc = "$::XCATROOT/share/xcat/netboot/$distname/$profile.exlist";
|
|
} else {
|
|
$callback->({error=>["Unable to finde file exclusion list under $::XCATROOT/share/xcat/netboot/$distname/ for $profile/$arch/$osver"],errorcode=>[1]});
|
|
next;
|
|
}
|
|
my $exlist;
|
|
open($exlist,"<",$exlistloc);
|
|
my $excludestr = "find . ";
|
|
while (<$exlist>) {
|
|
chomp $_;
|
|
$excludestr .= "'!' -wholename '".$_."' -a ";
|
|
}
|
|
close($exlist);
|
|
$callback->({data=>["Packing contents of $installroot/netboot/$osver/$arch/$profile/rootimg"]});
|
|
my $temppath;
|
|
if ($method =~ /cpio/) {
|
|
$excludestr =~ s!-a \z!|cpio -H newc -o | gzip -c - > ../rootimg.gz!;
|
|
} elsif ($method =~ /squashfs/) {
|
|
$temppath = mkdtemp("/tmp/packimage.$$.XXXXXXXX");
|
|
$excludestr =~ s!-a \z!|cpio -dump $temppath!;
|
|
} else {
|
|
$callback->({error=>["Invalid method '$method' requested"],errorcode=>[1]});
|
|
}
|
|
|
|
if (! -d "$installroot/netboot/$osver/$arch/$profile/rootimg") {
|
|
$callback->({error=>["$installroot/netboot/$osver/$arch/$profile/rootimg does not exist, run genimage -o $osver -p $profile on a server with matching architecture"]});
|
|
return;
|
|
}
|
|
chdir("$installroot/netboot/$osver/$arch/$profile/rootimg");
|
|
system($excludestr);
|
|
if ($method =~ /squashfs/) {
|
|
my $flags;
|
|
if ($arch =~ /x86/) {
|
|
$flags="-le";
|
|
} elsif ($arch =~ /ppc/) {
|
|
$flags="-be";
|
|
}
|
|
my $rc = system("mksquashfs $temppath ../rootimg.sfs $flags");
|
|
if ($rc) {
|
|
$callback->({error=>["mksquashfs could not be run successfully"],errorcode=>[1]});
|
|
return;
|
|
}
|
|
chmod(0644,"../rootimg.sfs");
|
|
}
|
|
chdir($oldpath);
|
|
}
|