Markus Zolliker
ae53f2e519
tcl/seainit.tcl and tcvl/graphinit.tcl are kept for a short time new files: sea_init.tcl. graph_init.tcl
54 lines
1.4 KiB
Tcl
54 lines
1.4 KiB
Tcl
#---------------------------------------------------------------------------
|
|
# graph server initialization script
|
|
#---------------------------------------------------------------------------
|
|
|
|
set home $::env(HOME)
|
|
if {[catch {set instrument $::env(Instrument)}]} {
|
|
set instrument [file tail $home]
|
|
}
|
|
if {[catch {set serverport $::env(SEA_GRAPH_PORT)}]} {
|
|
set serverport 8741
|
|
}
|
|
|
|
if {"$home" == "/home/$instrument"} {
|
|
set logbase $home/sea/
|
|
} else {
|
|
set logbase $home/sea/$instrument/
|
|
}
|
|
|
|
set connect_sea_to_sics 0
|
|
cd /sq_sw/linse/ins/$instrument/sea/tcl
|
|
|
|
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
|
|
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
|