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

hierarchy support for command lsslp

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1124 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao 2008-04-18 19:20:14 +00:00
parent ebf6b955be
commit 5f26178a59
1 changed files with 42 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
xCAT-server-2.0/lib/xcat/plugins/lsslp.pm
View File

@ -128,7 +128,6 @@ sub send_msg {
#################################################
elsif ( exists( $request->{callback} )) {
my $callback = $request->{callback};
$output{errorcode} = $ecode;
$output{data} = \@_;
$callback->( \%output );
@ -159,7 +158,7 @@ sub parse_args {
# Responds with usage statement
#############################################
local *usage = sub {
my @msg = ( $_[0],
my @msg = ( $_[0],
"lsslp -h|--help",
"lsslp -v]--version",
"lsslp [-V|--verbose][-b ip[,ip..]][-w][-r|-x|-z][-s $types]",
@ -171,7 +170,7 @@ sub parse_args {
" -V verbose output.",
" -w writes output to xCat database.",
" -x xml formatted output.",
" -z stanza formatted output." );
" -z stanza formatted output.");
send_msg( $request, 1, @msg );
};
#############################################
@ -207,7 +206,7 @@ sub parse_args {
# Option -v for version
#############################################
if ( exists( $opt{v} )) {
send_msg( $request, 0, \@VERSION );
send_msg( $request, 0, @VERSION );
return(1);
}
#############################################
@ -1289,6 +1288,45 @@ sub child_response {
#############################################################################
# pre-process request from xCat daemon, send the request to the service nodes
# as well.
#############################################################################
sub preprocess_request
{
my $req = shift;
my $cb = shift;
if ($req->{_xcatdest}) { return [$req]; } #exit if preprocessed
###########################################
# Parse command-line options
###########################################
my %request;
$request{arg} = $req->{arg};
$request{callback} = $cb;
if ( parse_args( \%request )) {
return(1);
}
# find all the service nodes for xCAT cluster
# build an individual request for each service node
my $nrtab=xCAT::Table->new("noderes", -create =>0);
my @all=$nrtab->getAllNodeAttribs(['servicenode']);
my %sv_hash=();
foreach (@all) {
if ($_->{servicenode}) {$sv_hash{$_->{servicenode}}=1;}
}
# build each request for each service node
my @requests=();
foreach my $sn (keys (%sv_hash)) {
my $reqcopy = {%$req};
$reqcopy->{'_xcatdest'} = $sn;
push @requests, $reqcopy;
}
return \@requests;
}
##########################################################################
# Process request from xCat daemon
##########################################################################
@ -1304,12 +1342,6 @@ sub process_request {
$request{arg} = $req->{arg};
$request{callback} = $callback;
###########################################
# Parse command-line options
###########################################
if ( parse_args( \%request )) {
return(1);
}
###########################################
# Send remote command
###########################################