From ffb980d21be93d959f4dca640ef4a5739d4a22e7 Mon Sep 17 00:00:00 2001
From: phamt <phamt@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sat, 21 Jan 2012 12:54:05 +0000
Subject: [PATCH] Capitalized user IDs.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11396 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/zvm.pm | 32 ++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/lib/xcat/plugins/zvm.pm b/xCAT-server/lib/xcat/plugins/zvm.pm
index cdc0bc3d6..d33a47a34 100644
--- a/xCAT-server/lib/xcat/plugins/zvm.pm
+++ b/xCAT-server/lib/xcat/plugins/zvm.pm
@@ -521,6 +521,8 @@ sub removeVM {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 
 	# Power off userID
 	my $out = `ssh $hcp "$::DIR/stopvs $userId"`;
@@ -608,6 +610,8 @@ sub changeVM {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 
 	# Output string
 	my $out;
@@ -1238,7 +1242,9 @@ sub powerVM {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
-
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
+	
 	# Output string
 	my $out;
 
@@ -1339,6 +1345,8 @@ sub scanVM {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 	
 	# Exit if node is not a HCP
 	if ( !( $hcp =~ m/$node./i ) ) {
@@ -1524,6 +1532,8 @@ sub inventoryVM {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 
 	# Output string
 	my $str = "";
@@ -1657,6 +1667,8 @@ sub listVM {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 
 	my $out;
 
@@ -1764,6 +1776,8 @@ sub makeVM {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 
 	# Get user entry file (if any)
 	my $userEntry = $args->[0];
@@ -1941,6 +1955,8 @@ sub cloneVM {
 
 	# Get node userID
 	my $sourceId = $propVals->{'userid'};
+	# Capitalize userID
+	$sourceId =~ tr/a-z/A-Z/;
 
 	foreach (@nodes) {
 		xCAT::zvmUtils->printLn( $callback, "$_: Cloning $sourceNode" );
@@ -1972,6 +1988,8 @@ sub cloneVM {
 
 		# Get node userID
 		my $tgtId = $propVals->{'userid'};
+		# Capitalize userID
+		$tgtId =~ tr/a-z/A-Z/;
 
 		# Exit if missing target HCP
 		if ( !$tgtHcp ) {
@@ -2331,6 +2349,8 @@ sub clone {
 
 	# Get node userID
 	my $sourceId = $propVals->{'userid'};
+	# Capitalize userID
+	$sourceId =~ tr/a-z/A-Z/;
 
 	# Get source disks
 	my @srcDisks    = @$srcDisksRef;
@@ -2359,6 +2379,8 @@ sub clone {
 		xCAT::zvmUtils->printLn( $callback, "$tgtNode: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$tgtUserId =~ tr/a-z/A-Z/;
 
 	# Exit if source node HCP is not the same as target node HCP
 	if ( !( $srcHcp eq $hcp ) ) {
@@ -3062,6 +3084,8 @@ sub nodeSet {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 
 	# Get install directory and domain from site table
 	my $siteTab        = xCAT::Table->new('site');
@@ -3861,6 +3885,8 @@ sub getMacs {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 
 	# Get MAC address in 'mac' table
 	@propNames = ('mac');
@@ -3962,6 +3988,8 @@ sub netBoot {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 
 	# Get IPL
 	my @ipl = split( '=', $args->[0] );
@@ -4028,6 +4056,8 @@ sub updateNode {
 		xCAT::zvmUtils->printLn( $callback, "$node: (Error) Missing node ID" );
 		return;
 	}
+	# Capitalize userID
+	$userId =~ tr/a-z/A-Z/;
 
 	# Get install directory
 	my $siteTab        = xCAT::Table->new('site');