59ab923725
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1409 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
83 lines
2.0 KiB
Perl
83 lines
2.0 KiB
Perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
package xCAT_plugin::copycds;
|
|
use Storable qw(dclone);
|
|
use xCAT::Table;
|
|
use Data::Dumper;
|
|
use Getopt::Long;
|
|
Getopt::Long::Configure("bundling");
|
|
Getopt::Long::Configure("pass_through");
|
|
|
|
my $processed = 0;
|
|
my $callback;
|
|
|
|
sub handled_commands {
|
|
return {
|
|
copycds => "copycds",
|
|
}
|
|
}
|
|
|
|
my $identified;
|
|
|
|
sub take_answer {
|
|
#TODO: Intelligently filter and decide things
|
|
my $resp = shift;
|
|
$callback->($resp);
|
|
$identified=1;
|
|
}
|
|
|
|
sub process_request {
|
|
my $request = shift;
|
|
$callback = shift;
|
|
my $doreq = shift;
|
|
my $distname = undef;
|
|
my $arch = undef;
|
|
$identified=0;
|
|
$::CDMOUNTPATH="/mnt/xcat";
|
|
|
|
@ARGV = @{$request->{arg}};
|
|
GetOptions(
|
|
'n|name|osver=s' => \$distname,
|
|
'a|arch=s' => \$arch
|
|
);
|
|
if ($arch and $arch =~ /i.86/) {
|
|
$arch = x86;
|
|
}
|
|
my @args = @ARGV; #copy ARGV
|
|
unless ($#args >= 0) {
|
|
$callback->({error=>"copycds needs at least one full path to ISO currently."});
|
|
return;
|
|
}
|
|
foreach (@args) {
|
|
unless (/^\//) { #If not an absolute path, concatenate with client specified cwd
|
|
s/^/$request->{cwd}->[0]\//;
|
|
}
|
|
unless (-r $_ and -f $_) {
|
|
$callback->({error=>"The management server was unable to find/read $_, ensure that file exists on the server at specified location"});
|
|
return;
|
|
}
|
|
mkdir "/mnt/xcat";
|
|
if (system("mount -o loop,ro $_ /mnt/xcat")) {
|
|
$callback->({error=>"copycds was unable to examine $_ as an install image"});
|
|
return;
|
|
}
|
|
my $newreq = dclone($request);
|
|
$newreq->{command}= [ 'copycd' ]; #Note the singular, it's different
|
|
$newreq->{arg} = ["-p","/mnt/xcat"];
|
|
if ($distname) {
|
|
push @{$newreq->{arg}},("-n",$distname);
|
|
}
|
|
if ($arch) {
|
|
push @{$newreq->{arg}},("-a",$arch);
|
|
}
|
|
$doreq->($newreq,\&take_answer);
|
|
$::CDMOUNTPATH="";
|
|
|
|
system("umount /mnt/xcat");
|
|
unless ($identified) {
|
|
$callback->({error=>["copycds could not identify the ISO supplied, you may wish to try -n <osver>"],errorcode=>[1]});
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|