cluster: RHEL5 - fence_egenera: Allow fence_egenera to specify ssh login name

["Marek Grác" <marx@fedoraproject.org>]

Gitweb:        http://git.fedorahosted.org/git/cluster.git?p=cluster.git;a=commitdiff;h=1a01ef7c9d5ad540789e1c6c880d9fe0b495083e
Commit:        1a01ef7c9d5ad540789e1c6c880d9fe0b495083e
Parent:        24bf3c1779fc33259ceb6ca095e738e288cce29e
Author:        Marek 'marx' Grac <mgrac@redhat.com>
AuthorDate:    Fri Mar 6 15:14:49 2009 +0100
Committer:     Marek 'marx' Grac <mgrac@redhat.com>
CommitterDate: Fri Mar 6 15:44:14 2009 +0100

fence_egenera: Allow fence_egenera to specify ssh login name

- bz #488958 - this patch should be shipped in 5.3 (closed errata)
  but was not included
- warning: -l is not used for login name but for lpan; so -u is used
---
 fence/agents/egenera/fence_egenera.pl |   15 +++++++++++----
 1 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/fence/agents/egenera/fence_egenera.pl b/fence/agents/egenera/fence_egenera.pl
index 088c7d6..b65ad3e 100755
--- a/fence/agents/egenera/fence_egenera.pl
+++ b/fence/agents/egenera/fence_egenera.pl
@@ -45,6 +45,7 @@ sub usage
 	print "  -l <string>      lpan\n";
 	print "  -o <string>      Action: reboot (default), off, on or status\n";
 	print "  -p <string>      pserver\n";
+	print "  -u <string>      username (default=root)\n";
 	print "  -q               quiet mode\n";
 	print "  -V               version\n";
 	
@@ -78,7 +79,7 @@ sub version
 
 if (@ARGV > 0) 
 {
-	getopts("c:hl:o:p:qV") || fail_usage ;
+	getopts("c:hl:o:p:u:qV") || fail_usage ;
 
 	usage if defined $opt_h;
 	version if defined $opt_V;
@@ -89,6 +90,7 @@ if (@ARGV > 0)
 	$lpan   = $opt_l if defined $opt_l;
 	$pserv  = $opt_p if defined $opt_p;
 	$action = $opt_o if defined $opt_o;
+	$user   = $opt_u if defined $opt_u;
 } 
 else 
 {
@@ -96,6 +98,7 @@ else
 } 
 
 $action = "reboot" unless defined $action;
+$user = "root" unless defined $user;
 
 fail "failed: no cserver defined" unless defined $cserv;
 fail "failed: no lpan defined" unless defined $lpan;
@@ -161,6 +164,10 @@ sub get_options_stdin
 		{
 			$esh = $val;
 		} 
+		elsif ($name eq "user" )
+		{
+			$user = $val;
+		}
 
 		# FIXME should we do more error checking?  
 		# Excess name/vals will be eaten for now
@@ -186,7 +193,7 @@ sub _pserver_query_field
 
 	my $val;
 
-	my $cmd = "ssh $cserv $esh pserver $lpan/$pserv";
+	my $cmd = "ssh -l $user $cserv $esh pserver $lpan/$pserv";
 	my $pid = open3 (\*WTR, \*RDR,\*RDR, $cmd)
 		or die "error open3(): $!";
 
@@ -274,7 +281,7 @@ sub pserver_boot
 		}
 
 		# Is there any harm in sending this command multiple times?
-		my $cmd = "ssh $cserv $esh pserver -b $lpan/$pserv";
+		my $cmd = "ssh -l $user $cserv $esh pserver -b $lpan/$pserv";
 		my $pid = open3 (\*WTR, \*RDR,\*RDR, $cmd)
 			or die "error open3(): $!";
 
@@ -338,7 +345,7 @@ sub pserver_shutdown
 
 			# is there any harm in sending this command multiple 
 			# times?
-			my $cmd = "ssh $cserv $esh blade -s $_";
+			my $cmd = "ssh -l $user $cserv $esh blade -s $_";
                         print egen_log "shutdown: $cmd  being called, before open3\n";
 			my $pid = open3 (\*WTR, \*RDR,\*RDR, $cmd)
 				or die "error open3(): $!";