#---------------------------------------------------------------------------
# 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