Tapehandling quick repair

diff --git a/hadaq/ansiTape.c b/hadaq/ansiTape.c
index f88780b21e3782859c8b2a4408ea9a35222e1392..e3ed213af92306eb97049539a473e536aaff2263 100644 (file)
--- a/hadaq/ansiTape.c
+++ b/hadaq/ansiTape.c
@@ -58,7 +58,7 @@ AnsiTape *openAnsiTape(const char* filename) {
        }
 
        mtoper->mt_op = MTBSF;
-       mtoper->mt_count = 3;
+       mtoper->mt_count = 2;
        stat = ioctl(tape, MTIOCTOP, mtoper);
        if (stat == -1) {
 

diff --git a/hadaq/evtbuild.c b/hadaq/evtbuild.c
index aede6c75707d8bb5ffd1b527c486529084d3f27a..50eba6a748d317455d34502fb79fa477c542be59 100644 (file)
--- a/hadaq/evtbuild.c
+++ b/hadaq/evtbuild.c
@@ -1,4 +1,4 @@
-static char rcsId[] = "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/hadaq/evtbuild.c,v 6.22 2000-11-10 18:00:34 hades Exp $";
+static char rcsId[] = "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/hadaq/evtbuild.c,v 6.23 2000-11-19 17:41:03 hades Exp $";
 
 #define _POSIX_C_SOURCE 199309L
 
@@ -413,13 +413,10 @@ int main(int argc, char *argv[])
        deleteEvt(evt);
 
        if (outFile != NULL) {
-               if (strcmp(theArgs->outDev, "tape") == 0) {
-                       if (-1 == closeAnsiTape(outTape)) {
-                               msglog(LOG_ERR, "%s, %d: %s\n", __FILE__, __LINE__, strerror(errno));
-                               exit(EXIT_FAILURE);
-                       }
-               } else if (-1 == fclose(outFile)) {
-                       msglog(LOG_NOTICE, "%s, line %d:\n", __FILE__, __LINE__, strerror(errno));
+               fclose(outFile);
+       } else if (outTape != NULL) {
+               if (-1 == closeAnsiTape(outTape)) {
+                       msglog(LOG_ERR, "%s, %d: %s\n", __FILE__, __LINE__, strerror(errno));
                }
        }
        for (i = 0; i < theArgs->nrOfMsgs; i++) {

diff --git a/hadaq/param.tcl b/hadaq/param.tcl
index a514db1c0e77acf091b717c5e4cd032bd8a7c422..0481bf7c3e569f3fabe88f75ed9b3b99db8e7e69 100644 (file)
--- a/hadaq/param.tcl
+++ b/hadaq/param.tcl
@@ -2,17 +2,19 @@ set evtbuild(file) ./daq_evtbuild
 set evtbuild(stndln) 0
 set evtbuild(priority) -2
 set evtbuild(nrofmsgs) 1
+set evtbuild(outdev) file
+set evtbuild(outpath) /share/scratch5
 set netmem(file) ./daq_netmem
 set netmem(stndln) 0
 set netmem(priority) -1
-set netmem(inpath0) ATM:0:150
+set netmem(inpath0) ATM:0:60
 set netmem(nrofmsgs) 1
 set netmem(verb) debug
 set memnet(file) ./daq_memnet
 set memnet(stndln) 0
 set memnet(priority) -1
-set memnet(outpath) ATM:0:150
-set memnet(bandwidth) 1000
+set memnet(outpath) ATM:0:60
+set memnet(bandwidth) 0
 set readout(file) ./daq_readout
 #set readout(wmark) 0
 set readout(stndln) 0