[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]

[Cluster-devel] cluster/fence/agents/scsi fence_scsi.pl



CVSROOT:	/cvs/cluster
Module name:	cluster
Changes by:	rohara 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;
 
 }
 


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]