Bugfix in treatment of non-alnum-characters in hostnames.

	-- Bnejmain Sailer

diff --git a/allParam/ora/oraParam.pc b/allParam/ora/oraParam.pc
index 1b227cac98e1fc66977180eebbc3d54740f411c4..a400385158ef569a3b9426f77c3be7df1341d220 100644 (file)
--- a/allParam/ora/oraParam.pc
+++ b/allParam/ora/oraParam.pc
@@ -1,4 +1,4 @@
-static const char rcsId[] = "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/ora/oraParam.pc,v 1.33 2003-04-08 12:40:36 sailer Exp $";
+static const char rcsId[] = "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/ora/oraParam.pc,v 1.34 2003-07-01 16:09:29 hadaq Exp $";
 #define _POSIX_C_SOURCE 199509L
 
 #if HAVE_CONFIG_H
@@ -36,6 +36,7 @@ typedef struct OraParamS {
 int conSetupParam(Param *my, const char *setup)
 {
        int row = 0;
+       int i = 0;
        struct utsname bufferS, *buffer = &bufferS;
        EXEC SQL BEGIN DECLARE SECTION;
        const char* un;
@@ -72,6 +73,12 @@ int conSetupParam(Param *my, const char *setup)
 
        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)) {
                if(Param_getString(my, "glob", "basedir", &row, my->basedir) || (row != 1)) {
                        strcpy(my->basedir, "");