Removed old tape labeling

diff --git a/hadaq/hadaq.tcl b/hadaq/hadaq.tcl
index 05b602a3f1b7e3a4bdde20c86b5b479e3dcd0b36..8f0fbfc1b791b12adedce371448ac238453e36a3 100644 (file)
--- a/hadaq/hadaq.tcl
+++ b/hadaq/hadaq.tcl
@@ -231,15 +231,6 @@ proc startRunCmd {} {
                writeRunInfo
 #              distrFile slowctrl.tcl
                worker addopts $evtbuildWorker -o $runInfo(output) -d $runInfo(outputType)
-               if {$runInfo(outputType) == "tape"} {
-                       set tapeInfo(hdr1) [format "%-12s     ULTRIX00010001000100 98342 99366 000000DECULTRIX0000       " [string toupper $runInfo(name)]]
-                       set tapeInfo(hdr2) "F0819208192                     M             00                            "
-                       set f [open /tmp/ansitape.tmp w]
-                       puts -nonewline $f "$tapeInfo(vol)HDR1$tapeInfo(hdr1)HDR2$tapeInfo(hdr2)"
-                       close $f
-                       set tapeInfo(vol) {}
-                       exec sh -c "dd if=/tmp/ansitape.tmp bs=80 of=$runInfo(output) >/dev/null 2>&1"
-               }
                group start run
        }
        updateRunButtons
@@ -251,13 +242,6 @@ proc stopRunCmd {} {
 
        if {[stopRunDlg] == "ok"} {
                group stop run
-               if {$runInfo(outputType) == "tape"} {
-                       set f [open /tmp/ansitape.tmp w]
-                       puts -nonewline $f "EOF1$tapeInfo(hdr1)EOF2tapeInfo(hdr2)"
-                       close $f
-                       set tapeInfo(vol) {}
-                       exec sh -c "dd if=/tmp/ansitape.tmp bs=80 of=$runInfo(output) >/dev/null 2>&1"
-               }
        }
        updateRunButtons
 }