58 lines
1.6 KiB
Tcl
58 lines
1.6 KiB
Tcl
#---------------------------------------------------------------------------
|
|
# graph server initialization script
|
|
#---------------------------------------------------------------------------
|
|
|
|
set home $::env(HOME)
|
|
set hostname [lindex [split [info hostname] .] 0]
|
|
if {[catch {set instrument $::env(Instrument)}]} {
|
|
set instrument $hostname
|
|
}
|
|
if {[catch {set serverport $::env(SEA_GRAPH_PORT)}]} {
|
|
set serverport 8741
|
|
}
|
|
|
|
if {"$home" == "/home/$instrument" || "$home" == "/home/linse"} {
|
|
set logbase $home/sea/
|
|
} else {
|
|
set logbase $home/sea/$instrument/
|
|
}
|
|
|
|
set connect_sea_to_sics 0
|
|
if {![catch {set sea_root $::env(SEA_ROOT)}]} {
|
|
cd $sea_root
|
|
}
|
|
|
|
ServerOption LogFileDir $logbase/log2
|
|
#LogFileDir is the directory where the command log is going
|
|
|
|
ServerOption LoggerDir $logbase/logger
|
|
#where the logger files should be written
|
|
|
|
ServerOption LogReaderPath :$logbase/logger:$env(HOME)/sicslogger
|
|
#where the logger files chould be read from
|
|
|
|
set statusfile $logbase/status/graphstatus.tcl
|
|
clientput ins=$instrument,home=$home,logbase=$logbase,statusfile=$statusfile
|
|
ServerOption statusfile $statusfile
|
|
|
|
ServerOption ServerPort $serverport
|
|
# the port number the server is going to listen at. The client MUST know
|
|
# this number in order to connect.
|
|
|
|
#interrupt port not needed for SEA, but required for SICS, add 100
|
|
incr serverport 100
|
|
ServerOption InterruptPort $serverport
|
|
|
|
SicsUser lnsmanager lnsSICSlns 1
|
|
SicsUser seamanager seager 1
|
|
SicsUser seauser seaser 2
|
|
SicsUser Spy 007 3
|
|
|
|
VarMake Instrument Text Internal
|
|
Instrument $instrument
|
|
|
|
commandlog auto
|
|
commandlog compact 1
|
|
|
|
restore $statusfile
|