Regenerate SCT drivers

site_ansto/instrument/bilby/config/chopper/astrium_chopper_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::astrium_chopper::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/astrium_chopper_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/astrium_chopper_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/bilby/config/motors/shutters_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::shutters::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/shutters_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/shutters_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/bilby/config/motors/tank_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::tank::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/tank_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/tank_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/beamline/he3_polanal_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::he3_polanal::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/he3_polanal_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/he3_polanal_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/agilent_33220A_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::agilent_33220A::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/agilent_33220A_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/agilent_33220A_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/hiden_xcs_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::hiden_xcs::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/hiden_xcs_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/hiden_xcs_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/huber_pilot_sct.tcl

@@ -13,9 +13,12 @@ proc ::scobj::huber_pilot::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/huber_pilot_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/huber_pilot_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/isotech_ps_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::isotech_ps::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/isotech_ps_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/isotech_ps_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/keithley_m2700_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::keithley_m2700::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/keithley_m2700_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/keithley_m2700_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/knauer_pump_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::knauer_pump::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/knauer_pump_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/knauer_pump_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/magneticField/bruker_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::bruker::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/bruker_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/bruker_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/magneticField/green_magnet_labview_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::green_magnet_labview::debug_log {tc_root debug_level debug_string}
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/green_magnet_labview_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/green_magnet_labview_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/magneticField/oxford12tlv_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::oxford12tlv::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/oxford12tlv_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/oxford12tlv_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/magneticField/tsi_smc_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::tsi_smc::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/tsi_smc_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/tsi_smc_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/mvp_valve_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::mvp_valve::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mvp_valve_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/mvp_valve_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/nhq_200_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::nhq_200::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/nhq_200_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/nhq_200_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/omron_hldc_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::omron_hldc::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/omron_hldc_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/omron_hldc_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/protekmm_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::protekmm::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/protekmm_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/protekmm_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/syringe_pump_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::syringe_pump::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/syringe_pump_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/syringe_pump_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/eurotherm_3200_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::eurotherm_3200::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/eurotherm_3200_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/eurotherm_3200_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/eurotherm_m2000_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::eurotherm_m2000::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/eurotherm_m2000_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/eurotherm_m2000_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/julabo_lh45_gen_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::julabo_lh45_gen::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/julabo_lh45_gen_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/julabo_lh45_gen_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/lakeshore_218_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::lakeshore_218::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/lakeshore_218_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/lakeshore_218_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/lakeshore_m370_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::lakeshore_m370::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/lakeshore_m370_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/lakeshore_m370_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/ls336_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::ls336::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/ls336_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/ls336_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/ls340_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::ls340::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/ls340_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/ls340_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/mercury_base_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::mercury_base::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_base_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/mercury_base_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/mercury_level_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::mercury_level::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_level_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/mercury_level_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/mercury_pres_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::mercury_pres::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_pres_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/mercury_pres_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/mercury_scpi_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::mercury_scpi::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_scpi_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/mercury_scpi_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/mercury_temp_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::mercury_temp::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_temp_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/mercury_temp_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/mercury_valve_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::mercury_valve::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/mercury_valve_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/mercury_valve_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/nprvasm2_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::nprvasm2::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/nprvasm2_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/nprvasm2_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/pfeiffer_hg_sct.tcl

@@ -13,9 +13,12 @@ proc ::scobj::pfeiffer_hg::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/pfeiffer_hg_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/pfeiffer_hg_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/srs_sr630_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::srs_sr630::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/srs_sr630_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/srs_sr630_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/watlow_mpm_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::watlow_mpm::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/watlow_mpm_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/watlow_mpm_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/watlow_mrm_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::watlow_mrm::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/watlow_mrm_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/watlow_mrm_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/watlow_mst4_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::watlow_mst4::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/watlow_mst4_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/watlow_mst4_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/west4100_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::west4100::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/west4100_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/west4100_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/environment/temperature/west_6100_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::west_6100::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/west_6100_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/west_6100_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/robots/epson_pandp_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::epson_pandp::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/epson_pandp_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/epson_pandp_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]

site_ansto/instrument/config/source/reactor_status_sct.tcl

@@ -10,9 +10,12 @@ proc ::scobj::reactor_status::debug_log {tc_root debug_level debug_string} {
   set catch_status [ catch {
     set debug_threshold [hgetpropval ${tc_root} debug_threshold]
     if {${debug_level} >= ${debug_threshold}} {
-      set fd [open "../log/reactor_status_[basename ${tc_root}].log" "a"]
+      set now [clock seconds]
-      set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
+      set ts [clock format ${now} -format "%Y%m%d"]
-      puts ${fd} "${line}"
+      set log_file_name "../log/reactor_status_[basename ${tc_root}]_${ts}.log"
+      set fd [open "${log_file_name}" "a"]
+      set ts [clock format ${now} -format "%T"]
+      puts ${fd} "${ts} ${debug_string}"
       close ${fd}
     }
   } catch_message ]