Bugfix for Tape Handling

Get config file from command line

diff --git a/hadaq/hadaq.tcl b/hadaq/hadaq.tcl
index 19d6470164d89c7bd7686a63ba31490bb53f72f7..fdf7f4bbdfcfbaf4dad45355eecb2d11db5a0a39 100644 (file)
--- 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)"