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; $distname =~ s/[0-9\.]+$//; 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!; } 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"; } system("mksquashfs $temppath ../rootimg.sfs $flags"); chmod(0644,"../rootimg.sfs"); } chdir($oldpath); }