arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Changed regexp to look for "hmc" instead of rcons.hmc

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@60 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2007-11-19 18:43:11 +00:00
parent 1390ee8751
commit d842974390
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
xCAT-server-2.0/usr/share/xcat/cons/hmc
View File

@ -4,8 +4,6 @@
use strict;
use Getopt::Long;
use xCAT::Table;
use Expect;
use xCAT::PPCcli;
use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
@ -40,7 +38,7 @@ sub parse_args {
local *usage = sub {
my $cmd = __FILE__;
$cmd =~ s/(.*)(rcons.[\w]{3})/$2/;
$cmd =~ s/.*([\w]{3}$)/$1/;
if ( defined( $_[0] )) {
print STDERR "$_[0]\n";
@ -148,7 +146,7 @@ sub invoke_cmd {
# Get node power type
##################################
my $hwtype = __FILE__;
$hwtype =~ s/(.*)([\w]{3})/$2/;
$hwtype =~ s/.*([\w]{3})$/$1/;
#################################
# Get node type
@ -240,3 +238,4 @@ if ( $result ne "0" ) {
}
exit(0);