From mboxrd@z Thu Jan  1 00:00:00 1970
From: rohara@sourceware.org <rohara@sourceware.org>
Date: 12 Jul 2006 20:34:18 -0000
Subject: [Cluster-devel] cluster/fence/agents/scsi fence_scsi.pl
Message-ID: <20060712203418.31840.qmail@sourceware.org>
List-Id: <cluster-devel.redhat.com>
To: cluster-devel.redhat.com
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit

CVSROOT:	/cvs/cluster
Module name:	cluster
Changes by:	rohara at sourceware.org	2006-07-12 20:34:18

Modified files:
	fence/agents/scsi: fence_scsi.pl 

Log message:
	fence_scsi agent should use "self" rather than try to determine node node.

Patches:
http://sourceware.org/cgi-bin/cvsweb.cgi/cluster/fence/agents/scsi/fence_scsi.pl.diff?cvsroot=cluster&r1=1.4&r2=1.5

--- cluster/fence/agents/scsi/fence_scsi.pl	2006/07/10 18:53:58	1.4
+++ cluster/fence/agents/scsi/fence_scsi.pl	2006/07/12 20:34:17	1.5
@@ -103,10 +103,14 @@
 	elsif ($name eq "agent")
 	{
 	}
-	elsif ($name eq "nodename")
+	elsif ($name eq "node")
 	{
 	    $opt_n = $val;
 	}
+	elsif ($name eq "self")
+	{
+	    $opt_s = $val;
+	}
 	elsif ($name eq "verbose")
 	{
 	    $opt_v = $val;
@@ -170,9 +174,9 @@
 
 sub fence_node
 {
-    my $name = (POSIX::uname())[1];
+    # my $name = (POSIX::uname())[1];
 
-    my $host_key = get_key($name);
+    my $host_key = get_key($opt_s);
     my $node_key = get_key($opt_n);
     
     my $cmd;
@@ -222,12 +226,14 @@
 
     fail_usage "Unkown parameter." if (@ARGV > 0);
     fail_usage "No '-n' flag specified." unless defined $opt_n;
+    fail_usage "No '-s' flag specified." unless defined $opt_s;
 
 } else {
 
     get_options_stdin();
 
     fail "failed: missing 'node'" unless defined $opt_n;
+    fail "failed: missing 'self'" unless defined $opt_s;
 
 }