From 1639bf3bcac0fb1dc6ba5c37ec11b56c71e4d52b Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 18 Jun 2008 13:10:13 +0000
Subject: [PATCH] Allow "-" in node names

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1685 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/share/xcat/cons/hmc | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/xCAT-server/share/xcat/cons/hmc b/xCAT-server/share/xcat/cons/hmc
index 9381611d9..4a4cac3e8 100644
--- a/xCAT-server/share/xcat/cons/hmc
+++ b/xCAT-server/share/xcat/cons/hmc
@@ -107,19 +107,10 @@ sub parse_args {
         usage( "No node specified" );
         return(1);
     }
-    $node = shift @ARGV;
-
-    #######################################
-    # Check for multiple nodes specified 
-    #######################################
-    my @nodes = split /-|,| /, $node;
-    if ( scalar(@nodes) > 1 ) {
-        usage( "multiple nodes specified" );
-        return(1);
-    }
     #######################################
     # Check for extra argument
     #######################################
+    $node = shift @ARGV;
     if ( defined( $ARGV[0] )) {
         usage( "Invalid Argument: $ARGV[0]" );
         return(1);
@@ -211,7 +202,7 @@ sub invoke_cmd {
     my $mtms   = "$vpd->{mtm}*$vpd->{serial}";
     my $host   = $att->{hcp};
     my $lparid = $att->{id};
-    my $type   = "lpar";
+    $type      = "lpar";
 
     my %request = (
         ppcretry => 1,
@@ -227,8 +218,8 @@ sub invoke_cmd {
     # Connect to the remote server
     #################################
     my @exp = xCAT::PPCcli::connect( \%request, $hwtype, $host );
-    if ( ref(@exp[0]) ne "Expect" ) {
-        return( @exp[0] );
+    if ( ref($exp[0]) ne "Expect" ) {
+        return( $exp[0] );
     }
     #################################
     # Open console connection