arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add the xdsh rest api interface

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11858 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
xq2005 2012-03-15 06:54:28 +00:00
parent f67806347e
commit af24bd9b4b
1 changed files with 99 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
xCAT-server/xCAT-wsapi/xcatws.cgi
View File

@ -14,7 +14,7 @@ use Data::Dumper;
#all data input will be done from the common structure
#turn on or off the debugging output
my $DEBUGGING = 0;
my $DEBUGGING = 1;
my $VERSION = "2.7";
my $q = CGI->new;
@ -173,6 +173,33 @@ sub fetchParameter {
}
}
#extract the put data or post data into perl hash, easy for retrieve
sub extractData {
my $temphash = shift;
my $parArray = shift;
my $key;
my $value;
my $position;
#traversal all element in the array
foreach (@$parArray) {
$position = index($_, '=');
if ($position < 0) {
$key = $_;
$value = 1;
}
else {
$key = substr $_, 0, $position;
$value = substr $_, $position + 1;
}
$temphash->{$key} = $value;
if ($DEBUGGING) {
addPageContent($q->p("The parameter extract from put/post data:<br/>" . Dumper($temphash)));
}
}
}
my $userName;
my $password;
@ -771,8 +798,10 @@ sub nodesHandler {
}
}
foreach (@$entries) {
push @args, $_;
if (($subResource ne "dsh") && ($subResource ne "dcp")) {
foreach (@$entries) {
push @args, $_;
}
}
if ($subResource eq "power") {
$request->{command} = "rpower";
@ -789,6 +818,73 @@ sub nodesHandler {
elsif ($subResource eq "setboot") {
$request->{command} = "rsetboot";
}
elsif ($subResource eq "dsh") {
$request->{command} = "xdsh";
my %elements;
extractData(\%elements, $entries);
if ($elements{'devicetype'}) {
push @args, '--devicetype';
push @args, $elements{'devicetype'};
}
if ($elements{'execute'}) {
push @args, '-e';
}
if ($elements{'environment'}) {
push @args, '-E';
push @args, $elements{'environment'};
}
if ($elements{'fanout'}) {
push @args, '-f';
push @args, $elements{'fanout'};
}
if ($elements{'nolocale'}) {
push @args, '-L';
}
if ($elements{'userid'}) {
push @args, '-l';
push @args, $elements{'userid'};
}
if ($elements{'monitor'}) {
push @args, '-m';
}
if ($elements{'options'}) {
push @args, '-o';
push @args, $elements{'options'};
}
if ($elements{'showconfig'}) {
push @args, '-q';
}
if ($elements{'silent'}) {
push @args, '-Q';
}
if ($elements{'remoteshell'}) {
push @args, '-r';
push @args, $elements{'remoteshell'};
}
if ($elements{'syntax'}) {
push @args, '-S';
push @args, $elements{'syntax'};
}
if ($elements{'timeout'}) {
push @args, '-t';
push @args, $elements{'timeout'};
}
if ($elements{'envlist'}) {
push @args, '-X';
push @args, $elements{'envlist'};
}
if ($elements{'sshsetup'}) {
push @args, '-K';
push @args, $elements{'sshsetup'};
}
if ($elements{'rootimg'}) {
push @args, '-i';
push @args, $elements{'rootimg'};
}
if ($elements{'command'}) {
push @args, $elements{'command'};
}
}
}
else {
sendErrorMessage($STATUS_BAD_REQUEST, "The subResource \'$request->{subResource}\' does not exist");