From dc861870c3456f910e1093bdb4c13c9b3960f33c Mon Sep 17 00:00:00 2001
From: Michael Jennings <mej@kainx.org>
Date: Tue, 8 May 2001 05:27:26 +0000
Subject: [PATCH] A bit more before I head home.

SVN revision: 4739
---
 src/script.c | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/script.c b/src/script.c
index f85395a..f804db0 100644
--- a/src/script.c
+++ b/src/script.c
@@ -110,7 +110,7 @@ script_parse(char *s)
   char **token_list, **param_list;
   register char *pstr;
   register unsigned long i;
-  char *func_name, *params;
+  char *func_name, *params, *tmp;
   size_t len;
 
   REQUIRE(s != NULL);
@@ -146,7 +146,14 @@ script_parse(char *s)
       chomp(func_name);
     }
     if (params) {
-      chomp(params);
+      params++;
+      if ((tmp = strchr(params, ')')) != NULL) {
+        *tmp = 0;
+      } else {
+        print_error("Error in script \"%s\":  Missing closing parentheses for \"%s\".\n", s, token_list[i]);
+        return;
+      }
+      param_list = split(", \t", params);
     }
     D_SCRIPT(("Calling function %s with parameters:  %s\n", NONULL(func_name), NONULL(params)));
   }