22 lines
559 B
Tcl
22 lines
559 B
Tcl
# $Revision: 1.2 $
|
|
# $Date: 2006-12-03 22:46:43 $
|
|
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
# Last revision by: $Author: ffr $
|
|
|
|
source hipadaba_support.tcl
|
|
#-------------------------------------------------------------------------
|
|
# Install the SICS Hipadaba
|
|
#-------------------------------------------------------------------------
|
|
InstallHdb
|
|
source hipadaba_configuration.tcl
|
|
|
|
# PROTOTYPE for hlist -xml command
|
|
proc xhlist {opt args} {
|
|
set fh [open InstXML.xml];
|
|
set InstXML [read $fh];
|
|
close $fh;
|
|
clientput $InstXML "value"
|
|
}
|
|
publish xhlist spy
|
|
|