From 6c8f3298fa3c5799589a3b93aca546067b7ac0ec Mon Sep 17 00:00:00 2001 From: phamt Date: Thu, 14 Feb 2013 15:17:15 +0000 Subject: [PATCH] Fixed device address to be lower case because autoyast is case-sensitive. git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@15175 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- xCAT-server/lib/xcat/plugins/zvm.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/xCAT-server/lib/xcat/plugins/zvm.pm b/xCAT-server/lib/xcat/plugins/zvm.pm index 9e4c933e0..9ef8947cd 100644 --- a/xCAT-server/lib/xcat/plugins/zvm.pm +++ b/xCAT-server/lib/xcat/plugins/zvm.pm @@ -685,9 +685,9 @@ sub removeVM { @luns = split("\n", `ssh $::SUDOER\@$hcp "$::SUDO cat $::ZFCPPOOL/$_" | egrep -i $node`); foreach (@luns) { - # Update entry: status,wwpn,lun,size,owner,channel,tag + # Update entry: status,wwpn,lun,size,range,owner,channel,tag my @info = split(',', $_); - $update = "free,$info[1],$info[2],$info[3],,,"; + $update = "free,$info[1],$info[2],$info[3],$info[4],,"; $expression = "'s#" . $_ . "#" .$update . "#i'"; $out = `ssh $::SUDOER\@$hcp "$::SUDO sed --in-place -e $expression $::ZFCPPOOL/$pool.conf"`; } @@ -4869,7 +4869,7 @@ sub nodeSet { @tmp = split(',', $_); my $wwpn = $tmp[1]; my $lun = $tmp[2]; - my $device = $tmp[6]; + my $device = lc($tmp[6]); my $tag = $tmp[7]; # If multiple WWPNs or device channels are specified (multipathing), just take the 1st one @@ -5086,7 +5086,7 @@ END @tmp = split(',', $_); my $wwpn = $tmp[1]; my $lun = $tmp[2]; - my $device = $tmp[6]; + my $device = lc($tmp[6]); my $tag = $tmp[7]; # If multiple WWPNs or device channels are specified (multipathing), just take the 1st one