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:
parent
4064656eb5
commit
bed3d41128
@ -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";
|
||||
|
@ -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>
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user