From 16993eb11329b0059a70ad6db304e9da2262a224 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 20 Apr 2009 13:04:01 +0000
Subject: [PATCH]  add xdshcoll to be used by xdsh and sinv,  the change to
 xcoll is not compatible with the needs of sinv or xdsh, need actual node name
 not nodegroup

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3223 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-client/sbin/xdshcoll | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 xCAT-client/sbin/xdshcoll

diff --git a/xCAT-client/sbin/xdshcoll b/xCAT-client/sbin/xdshcoll
new file mode 100755
index 000000000..4699e7f58
--- /dev/null
+++ b/xCAT-client/sbin/xdshcoll
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
+use Data::Dumper;
+my %output;
+while (<STDIN>) {
+    my $node;
+    my $output;
+    if (/:/) {
+        ($node,$output) = split /:/,$_,2;
+    } else {
+        $node= "UNKNOWN";
+        $output = $_;
+    }
+    $output =~ s/^ //;
+    $output{$node}.=$output;
+}
+my %collated;
+foreach (keys %output) {
+    $collated{$output{$_}}->{$_}=1;
+}
+foreach (keys %collated) {
+    my $nodes = join(',',sort (keys %{$collated{$_}}));
+    print "====================================\n";
+    print "$nodes\n";
+    print "====================================\n";
+    print $_;
+    print "\n";
+}