change init files to be more generic

tcl/seainit.tcl and tcvl/graphinit.tcl are kept for a short time
new files: sea_init.tcl. graph_init.tcl

tcl/graph_init.tcl

@@ -0,0 +1,53 @@
+#---------------------------------------------------------------------------
+# 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