From: hades <hades>
Date: Wed, 1 Sep 1999 12:34:59 +0000 (+0000)
Subject: Bugfix for Tape Handling
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=a3f2279d9ff626076ae3efdcf0090858e5871506;p=daqdata.git

Bugfix for Tape Handling
Get config file from command line
---

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)"