From 10382e439ca6594af3860551e8ae10b7928af35e Mon Sep 17 00:00:00 2001
From: l_samenv <l_samenv@samenv.psi.ch>
Date: Wed, 24 May 2023 12:58:02 +0200
Subject: [PATCH] fix seaman after sea is no longer in monitconfig

---
 tcl/seamancom.tcl | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/tcl/seamancom.tcl b/tcl/seamancom.tcl
index 715f78d..67561c5 100644
--- 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