diff --git a/site_ansto/instrument/config/environment/magneticField/sct_lakeshore_460.tcl b/site_ansto/instrument/config/environment/magneticField/sct_lakeshore_460.tcl index 8e444bb9..f861dfd9 100644 --- a/site_ansto/instrument/config/environment/magneticField/sct_lakeshore_460.tcl +++ b/site_ansto/instrument/config/environment/magneticField/sct_lakeshore_460.tcl @@ -465,7 +465,7 @@ proc add_ls460 {name IP port terminator {_tol 5.0}} { close $fd } -puts stdout "file evaluation of sct_lakeshore_ls460.tcl" +clientput "file evaluation of sct_lakeshore_ls460.tcl" set fd [open "../log/ls460.log" w] puts $fd "file evaluation of sct_lakeshore_ls460.tcl" close $fd diff --git a/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl b/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl index 4bb844f4..009bf32f 100644 --- a/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl +++ b/site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl @@ -756,7 +756,7 @@ proc add_ips120 {name IP port {_tol 5.0}} { close $fd } -puts stdout "file evaluation of sct_oxford_ips.tcl" +clientput "file evaluation of sct_oxford_ips.tcl" set fd [open "../log/ips120.log" w] puts $fd "file evaluation of sct_oxford_ips.tcl" close $fd diff --git a/site_ansto/instrument/config/environment/sct_autolab.tcl b/site_ansto/instrument/config/environment/sct_autolab.tcl index 3c61d662..0cc20017 100755 --- a/site_ansto/instrument/config/environment/sct_autolab.tcl +++ b/site_ansto/instrument/config/environment/sct_autolab.tcl @@ -413,7 +413,7 @@ proc add_autolab {name IP port } { close $fd } -puts stdout "file evaluation of sct_autolab.tcl" +clientput "file evaluation of sct_autolab.tcl" set fd [open "../log/autolab.log" w] puts $fd "file evaluation of sct_autolab.tcl" close $fd diff --git a/site_ansto/instrument/config/environment/sct_cybaman.tcl b/site_ansto/instrument/config/environment/sct_cybaman.tcl index 263d11f1..fa56ad7a 100644 --- a/site_ansto/instrument/config/environment/sct_cybaman.tcl +++ b/site_ansto/instrument/config/environment/sct_cybaman.tcl @@ -1132,7 +1132,7 @@ proc add_cybaman {name IP port terminator {_tol 1.0}} { close $fd } -puts stdout "file evaluation of sct_cybaman.tcl" +clientput "file evaluation of sct_cybaman.tcl" set fd [open "../log/cybaman.log" w] puts $fd "file evaluation of sct_cybaman.tcl" close $fd diff --git a/site_ansto/instrument/config/environment/sct_keithley_2700.tcl b/site_ansto/instrument/config/environment/sct_keithley_2700.tcl index c15377eb..5c6e6397 100644 --- a/site_ansto/instrument/config/environment/sct_keithley_2700.tcl +++ b/site_ansto/instrument/config/environment/sct_keithley_2700.tcl @@ -675,7 +675,7 @@ proc add_k2700 {name IP port terminator {_tol 1.0} {CID 1} {CTYPE V} } { close $fd } -puts stdout "file evaluation of sct_keithley_2700.tcl" +clientput "file evaluation of sct_keithley_2700.tcl" set fd [open "../log/k2700.log" w] puts $fd "file evaluation of sct_keithley_2700.tcl" close $fd @@ -699,7 +699,7 @@ if {[ catch { } } } message ]} { - puts "ERROR: $message" + clientput "ERROR: $message" } namespace import ::scobj::k2700::* diff --git a/site_ansto/instrument/config/environment/sct_mvp.tcl b/site_ansto/instrument/config/environment/sct_mvp.tcl index 9e5d7144..36e12f43 100755 --- a/site_ansto/instrument/config/environment/sct_mvp.tcl +++ b/site_ansto/instrument/config/environment/sct_mvp.tcl @@ -518,7 +518,7 @@ proc add_mvp {name IP port dev} { close $fd } -puts stdout "file evaluation of sct_mvp.tcl" +clientput "file evaluation of sct_mvp.tcl" set fd [open "../log/mvp.log" w] puts $fd "file evaluation of sct_mvp.tcl" close $fd diff --git a/site_ansto/instrument/config/environment/sct_syr.tcl b/site_ansto/instrument/config/environment/sct_syr.tcl index 326487b1..ceda135b 100755 --- a/site_ansto/instrument/config/environment/sct_syr.tcl +++ b/site_ansto/instrument/config/environment/sct_syr.tcl @@ -619,7 +619,7 @@ proc add_syr {name IP port} { close $fd } -puts stdout "file evaluation of sct_syr.tcl" +clientput "file evaluation of sct_syr.tcl" set fd [open "../log/syr.log" w] puts $fd "file evaluation of sct_syr.tcl" close $fd diff --git a/site_ansto/instrument/config/environment/temperature/sct_eurotherm_2000.tcl b/site_ansto/instrument/config/environment/temperature/sct_eurotherm_2000.tcl index 1935df09..8b18c8fd 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_eurotherm_2000.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_eurotherm_2000.tcl @@ -361,7 +361,7 @@ proc add_et2000 {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} { close $fd } -puts stdout "file evaluation of sct_eurotherm_2000.tcl" +clientput "file evaluation of sct_eurotherm_2000.tcl" set fd [open "../log/et2000.log" w] puts $fd "file evaluation of sct_eurotherm_2000.tcl" close $fd @@ -384,7 +384,7 @@ if {[ catch { } } } message ]} { - puts "ERROR: $message" + clientput "ERROR: $message" } namespace import ::scobj::et2000::* diff --git a/site_ansto/instrument/config/environment/temperature/sct_oxford_itc.tcl b/site_ansto/instrument/config/environment/temperature/sct_oxford_itc.tcl index 88bf3c96..3e35ce10 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_oxford_itc.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_oxford_itc.tcl @@ -537,7 +537,7 @@ proc add_itc500 {name IP port {_tol 5.0} {addr "@1"} } { close $fd } -puts stdout "file evaluation of sct_oxford_500.tcl" +clientput "file evaluation of sct_oxford_500.tcl" set fd [open "../log/itc500.log" w] puts $fd "file evaluation of sct_oxford_500.tcl" close $fd @@ -547,7 +547,7 @@ namespace import ::scobj::itc500::* #add_itc500 itc500 137.157.201.213 502 5 #add_itc500 itc500 localhost 30509 5 if { [ info exists ::config_dict ] && [ dict get $::config_dict mercury_itc500 enabled ] } { - puts "ADD MERCURY ITC500 MODE" + clientput "ADD MERCURY ITC500 MODE" set IP [dict get $::config_dict mercury_itc500 ip] set PORT [dict get $::config_dict mercury_itc500 port] set NAME [dict get $::config_dict mercury_itc500 name] diff --git a/site_ansto/instrument/config/environment/temperature/sct_qlink.tcl b/site_ansto/instrument/config/environment/temperature/sct_qlink.tcl index c38ef3e2..1d1c3bec 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_qlink.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_qlink.tcl @@ -125,7 +125,7 @@ proc add_qlink {name IP port {_tol 5.0}} { close $fd } -puts stdout "file evaluation of sct_qlink.tcl" +clientput "file evaluation of sct_qlink.tcl" set fd [open "../log/qlink.log" w] puts $fd "file evaluation of sct_qlink.tcl" close $fd diff --git a/site_ansto/instrument/config/environment/temperature/sct_rvasm2.tcl b/site_ansto/instrument/config/environment/temperature/sct_rvasm2.tcl index d56ad619..e0b46e18 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_rvasm2.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_rvasm2.tcl @@ -1083,7 +1083,7 @@ mk_sct_newport_rva sct_${name} environment $name $_tol close $fd } -puts stdout "file evaluation of sct_newport_rva.tcl" +clientput "file evaluation of sct_newport_rva.tcl" set fd [open "../log/newport_rva.log" w] puts $fd "file evaluation of sct_newport_rva.tcl" close $fd diff --git a/site_ansto/instrument/config/environment/temperature/sct_watlow_pm.tcl b/site_ansto/instrument/config/environment/temperature/sct_watlow_pm.tcl index 8083d825..38a76359 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_watlow_pm.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_watlow_pm.tcl @@ -535,7 +535,7 @@ proc add_watlow_pm {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} { close $fd } -puts stdout "file evaluation of sct_watlow_pm.tcl" +clientput "file evaluation of sct_watlow_pm.tcl" set fd [open "../log/watlow_pm.log" w] puts $fd "file evaluation of sct_watlow_pm.tcl" close $fd @@ -558,7 +558,7 @@ if {[ catch { } } } message ]} { - puts "ERROR: $message" + clientput "ERROR: $message" } namespace import ::scobj::watlow_pm::* diff --git a/site_ansto/instrument/config/environment/temperature/sct_watlow_rm.tcl b/site_ansto/instrument/config/environment/temperature/sct_watlow_rm.tcl index c754325a..55f571d4 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_watlow_rm.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_watlow_rm.tcl @@ -565,7 +565,7 @@ proc add_watlow_rm {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} { close $fd } -puts stdout "file evaluation of sct_watlow_rm.tcl" +clientput "file evaluation of sct_watlow_rm.tcl" set fd [open "../log/watlow_rm.log" w] puts $fd "file evaluation of sct_watlow_rm.tcl" close $fd @@ -588,7 +588,7 @@ if {[ catch { } } } message ]} { - puts "ERROR: $message" + clientput "ERROR: $message" } namespace import ::scobj::watlow_rm::* diff --git a/site_ansto/instrument/config/environment/temperature/sct_watlow_st4.tcl b/site_ansto/instrument/config/environment/temperature/sct_watlow_st4.tcl index 0cbd1851..452bf46b 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_watlow_st4.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_watlow_st4.tcl @@ -776,7 +776,7 @@ proc add_watlow_st {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} { close $fd } -puts stdout "file evaluation of sct_watlow_st4.tcl" +clientput "file evaluation of sct_watlow_st4.tcl" set fd [open "../log/watlow_st.log" w] puts $fd "file evaluation of sct_watlow_st4.tcl" close $fd @@ -799,7 +799,7 @@ if {[ catch { } } } message ]} { - puts "ERROR: $message" + clientput "ERROR: $message" } namespace import ::scobj::watlow_st::* diff --git a/site_ansto/instrument/config/robots/sct_pickandplace.tcl b/site_ansto/instrument/config/robots/sct_pickandplace.tcl index 5e59c3c6..b7d300bb 100644 --- a/site_ansto/instrument/config/robots/sct_pickandplace.tcl +++ b/site_ansto/instrument/config/robots/sct_pickandplace.tcl @@ -482,7 +482,7 @@ proc add_robot {name IP port } { close $fd } -puts stdout "file evaluation of sct_pickandplace.tcl" +clientput "file evaluation of sct_pickandplace.tcl" set fd [open "../log/robot_pp.log" w] puts $fd "file evaluation of sct_pickandplace.tcl" close $fd