restore.tcl

来自「网络数据管理协议的开发」· TCL 代码 · 共 42 行

#                               -*- Mode: Tcl -*- 
# dump.tcl
# 
# Description     : Starts a dump.
# 
# Copyright (c) 1996,1997 PDC, Network Appliance. All Rights Reserved.
#
# $Id: restore.tcl,v 1.4 1997/02/01 09:50:21 tim Exp $
# 

if ![info exists env(SYSTEM_SCRIPT)] {
    source system.tcl
} else {
    source $env(SYSTEM_SCRIPT)
}

connect_open 1
eval $auth_cmd

tape_open $tape_device
tape_mtio rew

# Use the following to test selective file restore and
# verify file recovered messages are generated to files
# not found on the tape.
#add_nlist bogus1 $dest_dir/bogus1
#add_nlist etc/bogus2 $dest_dir/etc/bogus2
#add_nlist hosts $dest_dir/hosts
#add_nlist ./skel $dest_dir/./skel

# Use the following to test zero length name which may be used
# to specify the backup root directory.
#add_nlist  "" $dest_dir

# Use the following to test using / to specify the backup root directory.
#add_nlist / $dest_dir/

# Use the following to test using . to specify the backup root directory.
add_nlist . $dest_dir/.

data_start_recover dump