#!/tvbin/tivosh
# Written by Andrew Tridgell

lappend auto_path $tcl_library/tv

source $tcl_library/tv/Inc.itcl
tvsource $tcl_library/tv/EndPoint.itcl
tvsource $tcl_library/tv/Ident.itcl
tvsource $tcl_library/tv/SwSystem.itcl
tvsource $tcl_library/tv/Database.itcl
tvsource $tcl_library/tv/SvrResp.itcl
tvsource $tcl_library/tv/mfslib.tcl
tvsource $tcl_library/tv/LogMgr.itcl
tvsource $tcl_library/tv/Setup.itcl
tvsource $tcl_library/tv/DataSet.itcl

namespace import Inc::*

set file [lindex $argv 0]
set id [lindex $argv 1]

set db [dbopen]
dbload $db $file
if { [llength $id] > 0 } {
   dumpobj /Server/$id
}

