37 lines
886 B
Tcl
37 lines
886 B
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 1996,2008 Oracle. All rights reserved.
|
|
#
|
|
# $Id: recdscript.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $
|
|
#
|
|
# Recovery txn prepare script
|
|
# Usage: recdscript op dir envcmd dbfile cmd
|
|
# op: primary txn operation
|
|
# dir: test directory
|
|
# envcmd: command to open env
|
|
# dbfile: name of database file
|
|
# gidf: name of global id file
|
|
# cmd: db command to execute
|
|
|
|
source ./include.tcl
|
|
source $test_path/test.tcl
|
|
|
|
set usage "recdscript op dir envcmd dbfile gidfile cmd"
|
|
|
|
# Verify usage
|
|
if { $argc != 6 } {
|
|
puts stderr "FAIL:[timestamp] Usage: $usage"
|
|
exit
|
|
}
|
|
|
|
# Initialize arguments
|
|
set op [ lindex $argv 0 ]
|
|
set dir [ lindex $argv 1 ]
|
|
set envcmd [ lindex $argv 2 ]
|
|
set dbfile [ lindex $argv 3 ]
|
|
set gidfile [ lindex $argv 4 ]
|
|
set cmd [ lindex $argv 5 ]
|
|
|
|
op_recover_prep $op $dir $envcmd $dbfile $gidfile $cmd
|
|
flush stdout
|