Oracle and Solaris/POSIX changes

[moira.git] / regtape / sign.dc

diff --git a/regtape/sign.dc b/regtape/sign.dc
index 887a937097bbbecd1204b23e5b625a915120593d..1e5f3d63ef14156d89e15ff4f05d7286dcaab856 100644 (file)
--- a/regtape/sign.dc
+++ b/regtape/sign.dc
@@ -4,7 +4,7 @@
  */
 
 #include <stdio.h>
-#include <strings.h>
+#include <string.h>
 #include <ctype.h>
 #include <sys/time.h>
 #include <moira.h>
@@ -27,7 +27,7 @@ char **argv;
      SigInfo si;
      int found, status, i, wait;
      EXEC SQL BEGIN DECLARE SECTION;
-     char login[10], mid[32], rawsig[256];
+     char login[10], mid[32], rawsig[256], *db="moira";
      int id, timestamp, sms;
      EXEC SQL END DECLARE SECTION;
 
@@ -56,9 +56,9 @@ char **argv;
           com_err(program, status + krb_err_base, " in krb_get_pw_in_tkt");
      }
 
-     EXEC SQL CONNECT moira;
+     EXEC SQL CONNECT :db IDENTIFIED BY :db;
      if (sqlca.sqlcode != 0) {
-        com_err(program, 0, "ingres error %d", sqlca.sqlcode);
+        com_err(program, 0, "dbms error %d", sqlca.sqlcode);
         exit(1);
      }
 
@@ -78,12 +78,12 @@ char **argv;
        SELECT users_id, login, clearid
        FROM users WHERE signature = '';
      if (sqlca.sqlcode != 0) {
-        com_err(program, 0, "ingres error %d", sqlca.sqlcode);
+        com_err(program, 0, "dbms error %d", sqlca.sqlcode);
         exit(1);
      }
      EXEC SQL OPEN c;
      if (sqlca.sqlcode != 0) {
-        com_err(program, 0, "ingres error %d", sqlca.sqlcode);
+        com_err(program, 0, "dbms error %d", sqlca.sqlcode);
         exit(1);
      }
      while (1) {
@@ -102,7 +102,7 @@ char **argv;
      si.rawsig = (unsigned char *) &rawsig[0];
 
      while (sq_get_data(sq, &data)) {
-        p = index(data, ':');
+        p = strchr(data, ':');
         if (!p) {
             com_err(program, 0, " malformatted data");
             continue;
@@ -127,11 +127,11 @@ char **argv;
         }
 
         timestamp = si.timestamp;
-        EXEC SQL REPEATED UPDATE users 
+        EXEC SQL UPDATE users 
           SET signature = :rawsig, sigwho = :sms, sigdate = :timestamp
           WHERE users_id = :id;
         if (sqlca.sqlcode != 0) {
-            com_err(program, 0, "ingres error %d", sqlca.sqlcode);
+            com_err(program, 0, "dbms error %d", sqlca.sqlcode);
             exit(1);
         }
         EXEC SQL COMMIT WORK;