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

Update non-templated drivers to log to ../log/ instead of /tmp/

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-16 10:42:17 +10:00
parent 1010003d6c
commit fa3154bdcd
13 changed files with 35 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/config/environment/sct_cybaman.tcl
View File

@@ -11,7 +11,7 @@ namespace eval ::scobj::cybaman {
# /envcont/setpoint
# /envcont/sensor/value
proc debug_log {args} {
set fd [open "/tmp/cybaman.log" a]
set fd [open "../log/cybaman.log" a]
puts $fd "[clock format [clock seconds] -format "%T"] $args"
close $fd
}
@@ -1122,7 +1122,7 @@ debug_log "Creating node $nodeName"
# @param IP, the IP address of the device, this can be a hostname, (eg ca1-kowari)
# @param port, the IP protocol port number of the device (62944)
proc add_cybaman {name IP port terminator {_tol 1.0}} {
set fd [open "/tmp/cybaman.log" a]
set fd [open "../log/cybaman.log" a]
if {[SplitReply [environment_simulation]]=="false"} {
puts $fd "makesctcontroller sct_cybaman std ${IP}:$port"
makesctcontroller sct_cybaman std ${IP}:$port $terminator
@@ -1133,7 +1133,7 @@ proc add_cybaman {name IP port terminator {_tol 1.0}} {
}
puts stdout "file evaluation of sct_cybaman.tcl"
set fd [open "/tmp/cybaman.log" w]
set fd [open "../log/cybaman.log" w]
puts $fd "file evaluation of sct_cybaman.tcl"
close $fd