put the name of the database in a variable

diff --git a/server/qrtn.dc b/server/qrtn.dc
index ebf3aac93f8741c356600e5e539444e2833b4538..3f64b8196a6ce9e32cc1fcb0fd23c3e00bfa13a1 100644 (file)
--- a/server/qrtn.dc
+++ b/server/qrtn.dc
@@ -35,6 +35,7 @@ int ingres_errno = 0;
 int mr_errcode = 0;
 EXEC SQL BEGIN DECLARE SECTION; 
 int query_timeout = 30;
+char *database = "moira";
 EXEC SQL END DECLARE SECTION;
 extern char *whoami;
 extern FILE *journal;
@@ -129,7 +130,7 @@ int mr_open_database()
 
     /* open the database */
 #ifsql INGRES
-    EXEC SQL CONNECT moira;
+    EXEC SQL CONNECT :database;
     if(ingres_errno) 
       return (ingres_errno);
     EXEC SQL set lockmode session where level = table, timeout = :query_timeout;