xcat-core/xCAT-client/bin/xcoll

#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; }
use lib "$::XCATROOT/lib/perl";

#use Data::Dumper;
use xCAT::Client;
use Getopt::Long;
use strict;
my %output;

my $option;
my $printcount;
my $individual;

GetOptions("n" => \$option,
    "i" => \$individual,
    "c" => \$printcount);

while (<STDIN>) {
    my $node;
    my $output;
    if (/:/) {
        ($node, $output) = split /:/, $_, 2;
    } else {
        $node   = "UNKNOWN";
        $output = $_;
    }
    $output =~ s/^ //;
    $output{$node} .= $output;
}
my %collated;
unless ($individual) {
    foreach (keys %output) {
        $collated{ $output{$_} }->{$_} = 1;
    }
}

my $nodes;

sub fillerup {
    my $response = shift;
    if ($response->{data}->[0]) {
        $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 = {
        noderange => [$nodes],
        command   => ['rnoderange'],
    };
    unless ($option) {
        xCAT::Client::submit_request($cmdref, \&fillerup);
    }
    print "====================================\n";
    print "$nodes\n";
    print "====================================\n";
    if ($printcount) {
        print "Node count = " . scalar(keys %{ $collated{$output} }) . " \n";
        print "====================================\n";
    }
    print $output;
    print "\n";
}