config.tcl

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

#                               -*- Mode: Tcl -*- 
# config.tcl
# 
# Description     : NDMP config request message tests.
# 
# Copyright (c) 1996,1997 PDC, Network Appliance. All Rights Reserved.
#
# $Id: config.tcl,v 1.5 1998/02/09 06:40:09 tim Exp $
# 

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

connect_open 3

config_get_auth_attr none
config_get_auth_attr text
config_get_auth_attr md5

eval $auth_cmd

config_get_host_info
config_get_connection_type
config_get_butype_info
config_get_fs_info
config_get_tape_info
config_get_scsi_info
config_get_server_info

connect_close