fix seaman after sea is no longer in monitconfig

2023-05-24 12:58:02 +02:00
parent 6e1d946f21
commit 10382e439c
1 changed files with 2 additions and 6 deletions
--- a/tcl/seamancom.tcl
+++ b/tcl/seamancom.tcl
@ -390,8 +390,6 @@ proc samenv args {
 }

 namespace eval inst_select {
-  variable home HOME
-  variable instrument ""

 clientput "REORDER web_ports"

@ -400,8 +398,6 @@ clientput "REORDER web_ports"
  }

  proc instrument {instr} {
-    variable instrument
-    set instrument $instr
  }

  proc seaweb {instr port {host ""}} {
@ -409,12 +405,12 @@ clientput "REORDER web_ports"
  }

  proc sea {mode sea graph web} {
-    variable instrument
-    seaweb $instrument $web
  }

  proc schedule_cron args {}
  proc writeServer args {}
+
+  set mrc stdout
  source ../../monitconfig

  web_ports makeitem test TEST