Attachment 296061 Details for Bug 349381 – Patch: add support for option user to fence agent egenera

[patch] Patch: add support for option user to fence agent egenera

egenera-user.patch (text/plain), 2.27 KB, created by Marek Grac on 2008-02-27 13:36:28 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marek Grac

Created: 2008-02-27 13:36:28 UTC

Size: 2.27 KB

patch

obsolete

>? fence-egenera.patch
>Index: fence_egenera.pl
>===================================================================
>RCS file: /cvs/cluster/cluster/fence/agents/egenera/fence_egenera.pl,v
>retrieving revision 1.2.2.3
>diff -u -r1.2.2.3 fence_egenera.pl
>--- fence_egenera.pl	8 Aug 2007 16:26:36 -0000	1.2.2.3
>+++ fence_egenera.pl	27 Feb 2008 13:34:55 -0000
>@@ -45,6 +45,7 @@
> 	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 @@
> 
> 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 @@
> 	$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 @@
> } 
> 
> $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 @@
> 		{
> 			$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 @@
> 
> 	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 @@
> 		}
> 
> 		# 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(): $!";
> 
>@@ -331,7 +338,7 @@
> 
> 			# 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(): $!";

Actions: View | Diff

Attachments on bug 349381: 296061