From a3f2279d9ff626076ae3efdcf0090858e5871506 Mon Sep 17 00:00:00 2001
From: hades <hades>
Date: Wed, 1 Sep 1999 12:34:59 +0000
Subject: [PATCH] Bugfix for Tape Handling Get config file from command line

---
 hadaq/hadaq.tcl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/hadaq/hadaq.tcl b/hadaq/hadaq.tcl
index 19d6470..fdf7f4b 100644
--- a/hadaq/hadaq.tcl
+++ b/hadaq/hadaq.tcl
@@ -1,6 +1,7 @@
-#!/usr/local/bin/dpwish -f
+#!./daq_xmanage
+
 source cmds.tcl
-source ht98.tcl
+source [lindex $argv 0]
 
 set runInfo(name) {}
 set runInfo(user) {}
@@ -231,7 +232,7 @@ proc startRunCmd {} {
 #		distrFile slowctrl.tcl
 		worker addopts $evtbuildWorker -o $runInfo(output) -d $runInfo(outputType)
 		if {$runInfo(outputType) == "tape"} {
-			set tapeInfo(hdr1) [format "%-11s         ULTRIX00010001000100 98342 99366 000000DECULTRIX0000       " $runInfo(name)]
+			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)"
-- 
2.43.0