static const char rcsId[] =
-       "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/ca/client/caParam.c,v 1.27 2003-02-12 17:11:49 sailer Exp $";
+       "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/ca/client/caParam.c,v 1.28 2003-07-01 16:05:49 hadaq Exp $";
 #define _POSIX_C_SOURCE 199509L
 
 #if HAVE_CONFIG_H
 int conSetupParam(Param *my, const char *setup)
 {
        struct utsname bufferS, *buffer = &bufferS;
+       int i = 0;
        int retVal = 0;
        int row = 0;
        int status = ECA_NORMAL;
                }
                my->basedir = malloc(PARAM_MAX_VALUE_LEN);
                uname(buffer);
+               while (buffer->nodename[i]) {
+                       if (!isalnum(buffer->nodename[i])) {
+                               buffer->nodename[i] = '_';
+                       }
+                       i++;
+               }
                if (Param_getString
                        (my, buffer->nodename, "basedir", &row, my->basedir)
                        || (row != 1)) {
 
 static const char rcsId[] =
-       "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/file/fileParam.c,v 1.24 2003-02-12 17:09:08 sailer Exp $";
+       "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/file/fileParam.c,v 1.25 2003-07-01 16:05:49 hadaq Exp $";
 #define _POSIX_C_SOURCE 199509L
 
 #if HAVE_CONFIG_H
        FILE *f;
        char buf[2 * (PARAM_MAX_NAME_LEN + 1)];
        int row = 0;
+       int i = 0;
        struct utsname bufferS, *buffer = &bufferS;
 
        my->strerror = NULL;
        if (retVal == 0) {
                my->basedir = malloc(PARAM_MAX_VALUE_LEN);
                uname(buffer);
+               while (buffer->nodename[i]) {
+                       if (!isalnum(buffer->nodename[i])) {
+                               buffer->nodename[i] = '_';
+                       }
+                       i++;
+               }
                if (Param_getString
                        (my, buffer->nodename, "basedir", &row, my->basedir)
                        || (row != 1)) {
        char buf[2 * (PARAM_MAX_NAME_LEN + 1)];
        char *tmp;
        int row = 0;
+       int i = 0;
        struct utsname bufferS, *buffer = &bufferS;
 
        my->strerror = NULL;
        if (retVal == 0) {
                my->basedir = malloc(PARAM_MAX_VALUE_LEN);
                uname(buffer);
+               while (buffer->nodename[i]) {
+                       if (!isalnum(buffer->nodename[i])) {
+                               buffer->nodename[i] = '_';
+                       }
+                       i++;
+               }
                if (Param_getString
                        (my, buffer->nodename, "basedir", &row, my->basedir)
                        || (row != 1)) {
 
 static const char rcsId[] =
-       "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/tcl/tclParam.c,v 1.29 2003-02-12 17:05:06 sailer Exp $";
+       "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/tcl/tclParam.c,v 1.30 2003-07-01 16:05:49 hadaq Exp $";
 #define _POSIX_C_SOURCE 199509L
 
 #if HAVE_CONFIG_H
        char *storageFile;
        int code;
        int row = 0;
+       int i = 0;
        struct utsname bufferS, *buffer = &bufferS;
 
        my->strerror = NULL;
        if (retVal == 0) {
                my->basedir = malloc(PARAM_MAX_VALUE_LEN);
                uname(buffer);
+               while (buffer->nodename[i]) {
+                       if (!isalnum(buffer->nodename[i])) {
+                               buffer->nodename[i] = '_';
+                       }
+                       i++;
+               }
                if (Param_getString
                        (my, buffer->nodename, "basedir", &row, my->basedir)
                        || (row != 1)) {
        char *storageFile;
        int code;
        int row = 0;
+       int i = 0;
        struct utsname bufferS, *buffer = &bufferS;
 
        my->strerror = NULL;
        if (retVal == 0) {
                my->basedir = malloc(PARAM_MAX_VALUE_LEN);
                uname(buffer);
+               while (buffer->nodename[i]) {
+                       if (!isalnum(buffer->nodename[i])) {
+                               buffer->nodename[i] = '_';
+                       }
+                       i++;
+               }
                if (Param_getString
                        (my, buffer->nodename, "basedir", &row, my->basedir)
                        || (row != 1)) {