mirror of
https://github.com/berkeleydb/libdb.git
synced 2024-11-16 17:16:25 +00:00
34 lines
830 B
Tcl
34 lines
830 B
Tcl
|
# See the file LICENSE for redistribution information.
|
||
|
|
#
|
||
|
|
# Copyright (c) 2010, 2011 Oracle and/or its affiliates. All rights reserved.
|
||
|
|
#
|
||
|
|
# $Id$
|
||
|
|
|
||
|
|
source ./include.tcl
|
||
|
|
source $test_path/test.tcl
|
||
|
|
source $test_path/testutils.tcl
|
||
|
|
source $test_path/reputils.tcl
|
||
|
|
|
||
|
|
set dirC [lindex $argv 0]
|
||
|
|
set portC [lindex $argv 1]
|
||
|
|
set rv [lindex $argv 2]
|
||
|
|
|
||
|
|
proc in_sync_state { d } {
|
||
|
|
global util_path
|
||
|
|
set stat [exec $util_path/db_stat -N -r -R A -h $d]
|
||
|
|
puts "stat is $stat"
|
||
|
|
set in_page [is_substr $stat "SYNC_PAGE"]
|
||
|
|
puts "value is $in_page"
|
||
|
|
return $in_page
|
||
|
|
}
|
||
|
|
|
||
|
|
puts "Start site C"
|
||
|
|
set envC [berkdb env -create -errpfx C -home $dirC -txn -rep -thread \
|
||
|
|
-recover -verbose [list rep $rv]]
|
||
|
|
$envC repmgr -local [list localhost $portC] -start elect
|
||
|
|
|
||
|
|
puts "Wait until it gets into SYNC_PAGES state"
|
||
|
|
while {![in_sync_state $dirC]} {
|
||
|
|
tclsleep 1
|
||
|
|
}
|