[Cluster-devel] cluster/fence/agents/wti fence_wti.pl

[jparsons@sourceware.org <jparsons@sourceware.org>]

CVSROOT:	/cvs/cluster
Module name:	cluster
Branch: 	RHEL5
Changes by:	jparsons at sourceware.org	2007-01-31 20:20:48

Modified files:
	fence/agents/wti: fence_wti.pl 

Log message:
	fix for bz205457

Patches:
http://sourceware.org/cgi-bin/cvsweb.cgi/cluster/fence/agents/wti/fence_wti.pl.diff?cvsroot=cluster&only_with_tag=RHEL5&r1=1.5&r2=1.5.2.1

--- cluster/fence/agents/wti/fence_wti.pl	2006/08/16 19:10:46	1.5
+++ cluster/fence/agents/wti/fence_wti.pl	2007/01/31 20:20:48	1.5.2.1
@@ -186,6 +186,7 @@
 # at this point, failing to turn the machine back on shouldn't be a failure
 
 if (($opt_o eq "on") || ($opt_o eq "reboot")) {
+  sleep 5;
   $t->print("/on $opt_n");
   ($line, $match) = $t->waitfor('/\(Y\/N\)|(TPS|IPS|RPC|NPS|NBB)\>/');
 
@@ -352,5 +353,9 @@
 
         # FIXME should we do more error checking?  
         # Excess name/vals will be eaten for now
+        else
+        {
+           fail "parse error: unknown option \"$opt\"\n";
+        }
     }
 }