correction to authentication fix

[moira.git] / server / qrtn.qc

diff --git a/server/qrtn.qc b/server/qrtn.qc
index b0c99e0ff8854e08316d5423dfbdf2ac7a2b3247..3adc38c99af39fa14fa61b4887fef2039859a07e 100644 (file)
--- a/server/qrtn.qc
+++ b/server/qrtn.qc
@@ -798,7 +798,7 @@ set_next_object_id(object, table)
  * owns.  Sets the kerberos ID and user ID.
  */
 
-set_krb_mapping(name, login, ok, kid, uid)
+int set_krb_mapping(name, login, ok, kid, uid)
 char *name;
 char *login;
 int ok;
@@ -815,11 +815,12 @@ int *uid;
 ##  repeat retrieve (u_id = krbmap.#users_id, k_id = krbmap.#string_id)
 ##     where krbmap.string_id = strings.string_id and strings.string = @krbname
 ##  inquire_equel (rowcount = "rowcount")
+    if (ingres_errno) return(mr_errcode);
     
     if (rowcount == 1) {
        *kid = -k_id;
        *uid = u_id;
-       return;
+       return(MR_SUCCESS);
     }
 
     if (name_to_id(name, "STRINGS", &k_id) == MR_SUCCESS)
@@ -827,7 +828,7 @@ int *uid;
 
     if (!ok) {
        *uid = *kid;
-       return;
+       return(MR_SUCCESS);
     }
 
     if (name_to_id(login, "USERS", uid) != MR_SUCCESS)
@@ -835,6 +836,8 @@ int *uid;
 
     if (*kid == 0)
       *kid = *uid;
+    if (ingres_errno) return(mr_errcode);
+    return(MR_SUCCESS);
 ##}