Commit 5d076122 authored by koennecke's avatar koennecke
Browse files

Updated testtransfer to represent current SINQ instrumnet status

parent 07b41096
......@@ -6,7 +6,7 @@
# Mark Koennecke, December 2015
set instlist [list amor boa dmc eiger focus hrpt mars \
set instlist [list amor boa dmc eiger focus hrpt camea \
morpheus narziss orion poldi rita2 sans sans2 tasp zebra]
......@@ -21,7 +21,11 @@ proc execCommand {command} {
proc testTransfer {inst} {
set year [clock format [clock seconds] -format "%Y"]
set tmpfile /tmp/gaga.dat
execCommand "ssh ${inst}@${inst} cat data/${year}/DataNumber > $tmpfile"
if {[string compare $inst camea] != 0} {
execCommand "ssh ${inst}@${inst} cat data/${year}/DataNumber > $tmpfile"
} else {
execCommand "ssh ${inst}@rita2 cat data/${year}/DataNumber > $tmpfile"
set f [open $tmpfile r]
set num [string trim [gets $f]]
set hun [expr $num /1000]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment