1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1996,2008 Oracle. All rights reserved. 4# 5# $Id: recdscript.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# Recovery txn prepare script 8# Usage: recdscript op dir envcmd dbfile cmd 9# op: primary txn operation 10# dir: test directory 11# envcmd: command to open env 12# dbfile: name of database file 13# gidf: name of global id file 14# cmd: db command to execute 15 16source ./include.tcl 17source $test_path/test.tcl 18 19set usage "recdscript op dir envcmd dbfile gidfile cmd" 20 21# Verify usage 22if { $argc != 6 } { 23 puts stderr "FAIL:[timestamp] Usage: $usage" 24 exit 25} 26 27# Initialize arguments 28set op [ lindex $argv 0 ] 29set dir [ lindex $argv 1 ] 30set envcmd [ lindex $argv 2 ] 31set dbfile [ lindex $argv 3 ] 32set gidfile [ lindex $argv 4 ] 33set cmd [ lindex $argv 5 ] 34 35op_recover_prep $op $dir $envcmd $dbfile $gidfile $cmd 36flush stdout 37