Add -n switch to xcoll to show output as nodenames instead of groupnames.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8643 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
andywray 2011-01-13 19:50:50 +00:00
parent 4064656eb5
commit bed3d41128
2 changed files with 17 additions and 2 deletions

View File

@ -4,8 +4,14 @@ BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/o
use lib "$::XCATROOT/lib/perl";
use Data::Dumper;
use xCAT::Client;
use Getopt:Long;
use strict;
my %output;
my $option;
GetOptions("n"=>\$option);
while (<STDIN>) {
my $node;
my $output;
@ -36,7 +42,9 @@ foreach my $output (keys %collated) {
noderange => [$nodes],
command => ['rnoderange'],
};
xCAT::Client::submit_request($cmdref,\&fillerup);
unless ($option) {
xCAT::Client::submit_request($cmdref,\&fillerup);
}
print "====================================\n";
print "$nodes\n";
print "====================================\n";

View File

@ -4,7 +4,7 @@ B<xcoll> - Formats and consolidates the output of the B<psh>, B<rinv> commands.
=head1 B<SYNOPSIS>
B<xcoll>
B<xcoll> [B<-n>]
=head1 B<DESCRIPTION>
@ -44,6 +44,13 @@ is identical:
.
.
=head1 B<OPTIONS>
=over 3
=item B<-n>
Display output as nodenames instead of groupnames.
=head1 B<EXAMPLES>