tests/gssapi.c

   1 /* gssapi.c --- Test the GSSAPI mechanism.
   2  * Copyright (C) 2002, 2003, 2004, 2005  Simon Josefsson
   3  *
   4  * This file is part of GNU SASL.
   5  *
   6  * GNU SASL is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * GNU SASL is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with GNU SASL; if not, write to the Free Software Foundation,
  18  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  19  *
  20  */
  21
  22 #ifdef HAVE_CONFIG_H
  23 # include "config.h"
  24 #endif
  25
  26 #include <stdio.h>
  27 #include <stdarg.h>
  28 #include <stdlib.h>
  29 #include <string.h>
  30
  31 #include "utils.h"
  32
  33 #define SERVICE "host"
  34 #define HOST "latte.josefsson.org"
  35 #define GSSAPI_USER "jas"
  36
  37 static const char *USERNAME[] = {
  38   "foo", "BABABA", "jas", "hepp", "@"
  39 };
  40 size_t i;
  41
  42 static int
  43 callback (Gsasl * ctx, Gsasl_session * sctx, Gsasl_property prop)
  44 {
  45   int rc = GSASL_NO_CALLBACK;
  46
  47   printf ("Callback for property %d\n", prop);
  48
  49   switch (prop)
  50     {
  51     case GSASL_AUTHID:
  52       gsasl_property_set (sctx, GSASL_AUTHID, USERNAME[i]);
  53       rc = GSASL_OK;
  54       break;
  55
  56     case GSASL_SERVICE:
  57       gsasl_property_set (sctx, prop, SERVICE);
  58       rc = GSASL_OK;
  59       break;
  60
  61     case GSASL_HOSTNAME:
  62       gsasl_property_set (sctx, prop, HOST);
  63       rc = GSASL_OK;
  64       break;
  65
  66     case GSASL_VALIDATE_GSSAPI:
  67       {
  68         const char *client_name =
  69           gsasl_property_fast (sctx, GSASL_GSSAPI_DISPLAY_NAME);
  70         const char *authzid = gsasl_property_fast (sctx, GSASL_AUTHZID);
  71
  72         printf ("GSSAPI user: %s\n", client_name);
  73         printf ("Authorization ID: %s\n", authzid);
  74
  75         if (strcmp (client_name, GSSAPI_USER) == 0 &&
  76             strcmp (authzid, USERNAME[i]) == 0)
  77           rc = GSASL_OK;
  78         else
  79           rc = GSASL_AUTHENTICATION_ERROR;
  80       }
  81       break;
  82
  83     default:
  84       fail ("Unknown callback property %d\n", prop);
  85       break;
  86     }
  87
  88   return rc;
  89 }
  90
  91 void
  92 doit (void)
  93 {
  94   Gsasl *ctx = NULL;
  95   Gsasl_session *server = NULL, *client = NULL;
  96   char *s1 = NULL, *s2 = NULL;
  97   int rc, res1, res2;
  98
  99   rc = gsasl_init (&ctx);
 100   if (rc != GSASL_OK)
 101     {
 102       fail ("gsasl_init() failed (%d):\n%s\n", rc, gsasl_strerror (rc));
 103       return;
 104     }
 105
 106   gsasl_callback_set (ctx, callback);
 107
 108   for (i = 0; i < 5; i++)
 109     {
 110       rc = gsasl_server_start (ctx, "GSSAPI", &server);
 111       if (rc != GSASL_OK)
 112         {
 113           fail ("gsasl_init() failed (%d):\n%s\n", rc, gsasl_strerror (rc));
 114           return;
 115         }
 116       rc = gsasl_client_start (ctx, "GSSAPI", &client);
 117       if (rc != GSASL_OK)
 118         {
 119           fail ("gsasl_init() failed (%d):\n%s\n", rc, gsasl_strerror (rc));
 120           return;
 121         }
 122
 123       do
 124         {
 125           res1 = gsasl_step64 (server, s1, &s2);
 126           if (s1)
 127             {
 128               free (s1);
 129               s1 = NULL;
 130             }
 131           if (res1 != GSASL_OK && res1 != GSASL_NEEDS_MORE)
 132             {
 133               fail ("gsasl_step64 (1) failed (%d):\n%s\n", res1,
 134                     gsasl_strerror (res1));
 135               return;
 136             }
 137
 138           if (debug)
 139             printf ("S: %s\n", s2);
 140
 141           if (res1 == GSASL_OK && strcmp (s2, "") == 0)
 142             break;
 143
 144           res2 = gsasl_step64 (client, s2, &s1);
 145           free (s2);
 146           if (res2 != GSASL_OK && res2 != GSASL_NEEDS_MORE)
 147             {
 148               fail ("gsasl_step64 (2) failed (%d):\n%s\n", res2,
 149                     gsasl_strerror (res2));
 150               return;
 151             }
 152
 153           if (debug)
 154             printf ("C: %s\n", s1);
 155         }
 156       while (res1 != GSASL_OK || res2 != GSASL_OK);
 157
 158       if (s1)
 159         {
 160           free (s1);
 161           s1 = NULL;
 162         }
 163
 164       if (debug)
 165         printf ("\n");
 166
 167       gsasl_finish (client);
 168       gsasl_finish (server);
 169     }
 170
 171   gsasl_done (ctx);
 172 }