linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change samenv.psi.ch to linse-c.psi.ch

Browse Source
This commit is contained in:
l_samenv
2025-02-24 16:31:58 +01:00
parent 58113622bd
commit ee3e8d38d8
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tcl/drivers/zcalib.tcl
View File

@ -4,7 +4,7 @@
# #
# makenv calib -driver zcalib # makenv calib -driver zcalib
# #
# see also: http://samenv.psi.ch:8080/sample_environment/83 # see also: http://linse-c.psi.ch:8080/sample_environment/83
namespace eval zcalib { namespace eval zcalib {
variable buf variable buf

2
tcl/seainit.tcl
View File

@ -130,7 +130,7 @@ if {$instrument eq "seaman"} {
source stdsct.tcl source stdsct.tcl
source seacom.tcl source seacom.tcl
source remob.tcl source remob.tcl
stdConfig::make -name seaman -driver seaclient -port samenv:3001 -permanent 1 stdConfig::make -name seaman -driver seaclient -port linse-c:3001 -permanent 1
startAutodeviceCron startAutodeviceCron
if {[silent 0 result instconfig stickrot] == 1} { if {[silent 0 result instconfig stickrot] == 1} {
# enable stickrot: # enable stickrot:

4
tcl/startup/helium.tcl
View File

@ -15,9 +15,9 @@ proc helium_register {ctrl node {vessel none}} {
} }
$ctrl updatescript $node "helium_update $p $instrument $label" $ctrl updatescript $node "helium_update $p $instrument $label"
if {[sicsdescriptor $p] eq "notfound"} { if {[sicsdescriptor $p] eq "notfound"} {
stdConfig::make -name $p -driver seaclient -port samenv:8640 -permanent 2 stdConfig::make -name $p -driver seaclient -port linse-c:8640 -permanent 2
catch {seaclient_list makeitem $p} catch {seaclient_list makeitem $p}
# stdConfig::make -name $p -driver seaclient -port samenv:8640 -permanent 0 # stdConfig::make -name $p -driver seaclient -port linse-c:8640 -permanent 0
} }
} }
} }