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

Modified Files:
      Tag: REL_2_0_STABLE
	slonik_move_set.pl 
Log Message:
Bug #98 - need WAIT ON parameter in slonik code generated by slonik_move_set
altperl script.

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


Index: slonik_move_set.pl
===================================================================
RCS file: /home/cvsd/slony1/slony1-engine/tools/altperl/slonik_move_set.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -d -r1.4.2.1 -r1.4.2.2
*** slonik_move_set.pl	17 Aug 2009 17:09:59 -0000	1.4.2.1
--- slonik_move_set.pl	21 Oct 2009 13:32:59 -0000	1.4.2.2
***************
*** 58,62 ****
  $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";
--- 58,62 ----
  $slonik .= "  lock set (id = $set, origin = $node1);\n";
  $slonik .= "  sync (id = $node1);\n";
! $slonik .= "  wait for event (origin = $node1, confirmed = $node2, wait on = $node2);\n";
  $slonik .= "  echo 'Locked down - moving it';\n";
  $slonik .= "  move set (id = $set, old origin = $node1, new origin = $node2);\n";