Update of /home/cvsd/slony1/slony1-engine/tools/altperl
In directory main.slony.info:/tmp/cvs-serv12157

Modified Files:
	slonik_move_set.pl 
Log Message:
Per bug #37, add in a WAIT FOR EVENT in between the LOCK SET and
MOVE SET requests.

http://www.slony.info/bugzilla/show_bug.cgi?id=37


Index: slonik_move_set.pl
===================================================================
RCS file: /home/cvsd/slony1/slony1-engine/tools/altperl/slonik_move_set.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** slonik_move_set.pl	14 Feb 2008 16:41:35 -0000	1.3
--- slonik_move_set.pl	25 Feb 2008 17:42:19 -0000	1.4
***************
*** 57,60 ****
--- 57,62 ----
  $slonik .= "  echo 'Locking down set $set on node $node1';\n";
  $slonik .= "  lock set (id = $set, origin = $node1);\n";
+ $slonik .= "  sync (id = $node1);\n";
+ $slonik .= "  wait for event (origin = $node1, confirmed = $node2);\n";
  $slonik .= "  echo 'Locked down - moving it';\n";
  $slonik .= "  move set (id = $set, old origin = $node1, new origin = $node2);\n";