diff --git a/xCAT-client/bin/xcoll b/xCAT-client/bin/xcoll index ef5a47a90..4169edd06 100755 --- a/xCAT-client/bin/xcoll +++ b/xCAT-client/bin/xcoll @@ -10,8 +10,10 @@ my %output; my $option; my $printcount; +my $individual; GetOptions("n"=>\$option, + "i"=>\$individual, "c"=>\$printcount); while () { @@ -27,8 +29,10 @@ while () { $output{$node}.=$output; } my %collated; -foreach (keys %output) { - $collated{$output{$_}}->{$_}=1; +unless ($individual) { + foreach (keys %output) { + $collated{$output{$_}}->{$_}=1; + } } my $nodes; @@ -38,6 +42,16 @@ sub fillerup { $nodes = $response->{data}->[0]; } } +if ($individual) { + foreach my $node (keys %output) { + print "====================================\n"; + print "$node\n"; + print "====================================\n"; + print $output{$node}; + print "\n"; + } + exit(0); +} foreach my $output (keys %collated) { $nodes = join(',',sort (keys %{$collated{$output}})); my $cmdref = {