From mboxrd@z Thu Jan  1 00:00:00 1970
From: jparsons@sourceware.org <jparsons@sourceware.org>
Date: 31 Jan 2007 20:22:08 -0000
Subject: [Cluster-devel] cluster/fence/agents/wti fence_wti.pl
Message-ID: <20070131202208.28660.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:	jparsons at sourceware.org	2007-01-31 20:22:08

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&r1=1.5&r2=1.6

--- 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:22:07	1.6
@@ -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";
+        }
     }
 }