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

@@ -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";
+}