From f142d70b8d661420679bc896ee45ebb4c8d1feda Mon Sep 17 00:00:00 2001
From: hades <hades>
Date: Mon, 20 Nov 2000 10:09:26 +0000
Subject: [PATCH] Removed old tape labeling

---
 hadaq/hadaq.tcl | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/hadaq/hadaq.tcl b/hadaq/hadaq.tcl
index 05b602a..8f0fbfc 100644
--- 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
 }
-- 
2.43.0