* pop_init.c Use new calling conventions for krb5_recvauth()

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@5253 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/appl/popper/ChangeLog b/src/appl/popper/ChangeLog
index 58d3f2d5678c8f3ef4608c88ccbb39a2f314d9e4..d046f3c97353c0d85a7694f41205f6a1a3c72c6b 100644 (file)
--- a/src/appl/popper/ChangeLog
+++ b/src/appl/popper/ChangeLog
@@ -1,3 +1,8 @@
+
+Mon Mar 27 07:56:26 1995 Chris Provenzano (proven@mit.edu)
+
+        * pop_init.c Use new calling conventions for krb5_recvauth().
+
 Tue Mar 14 16:54:41 1995    <tytso@rsx-11.mit.edu>
 
        * Makefile.in: Delete definitions defined in pre/config.in.

diff --git a/src/appl/popper/pop_init.c b/src/appl/popper/pop_init.c
index e84647b8eb6a74f0bb225964123229bf6a03dbe7..81e1c7adb911e723c09b2bd5798f2ddf8634ca35 100644 (file)
--- a/src/appl/popper/pop_init.c
+++ b/src/appl/popper/pop_init.c
@@ -287,6 +287,7 @@ authenticate(p, addr)
 #endif
 
 #ifdef KRB5
+    krb5_auth_context * auth_context = NULL;
     krb5_error_code retval;
     krb5_principal server;
     int sock = 0;
@@ -304,17 +305,12 @@ authenticate(p, addr)
        exit(-1);
     }
 
-    if (retval = krb5_recvauth(pop_context, (krb5_pointer)&sock,
-                              "KPOPV1.0",
-                              server,
-                              0,       /* ignore peer address */
-                              0, 0, 0, /* no fetchfrom, keyproc or arg */
-                              0,       /* default rc type */
+    if (retval = krb5_recvauth(pop_context, &auth_context, (krb5_pointer)&sock,
+                              "KPOPV1.0", server,
+                              NULL,    /* default rc type */
                               0,       /* no flags */
-                              0,       /* don't need seq number */
-                              &ext_client,
-                              0, 0     /* don't care about ticket or
-                                          authenticator */
+                              NULL,    /* default keytab */
+                              NULL     /* don't care about ticket */
                               )) {
        pop_msg(p, POP_FAILURE, "recvauth failed--%s", error_message(retval));
        pop_log(p, POP_WARNING, "%s: recvauth failed--%s",
@@ -322,6 +318,7 @@ authenticate(p, addr)
        exit(-1);
     }
     krb5_free_principal(pop_context, server);
+    krb5_auth_con_free(pop_context, auth_context);
     if (retval = krb5_unparse_name(pop_context, ext_client, &client_name)) {
        pop_msg(p, POP_FAILURE, "name not parsable--%s",
                error_message(retval));