1*c19800e8SDoug Rabson /* 2*c19800e8SDoug Rabson * Copyright (c) 2006 Kungliga Tekniska H�gskolan 3*c19800e8SDoug Rabson * (Royal Institute of Technology, Stockholm, Sweden). 4*c19800e8SDoug Rabson * All rights reserved. 5*c19800e8SDoug Rabson * 6*c19800e8SDoug Rabson * Redistribution and use in source and binary forms, with or without 7*c19800e8SDoug Rabson * modification, are permitted provided that the following conditions 8*c19800e8SDoug Rabson * are met: 9*c19800e8SDoug Rabson * 10*c19800e8SDoug Rabson * 1. Redistributions of source code must retain the above copyright 11*c19800e8SDoug Rabson * notice, this list of conditions and the following disclaimer. 12*c19800e8SDoug Rabson * 13*c19800e8SDoug Rabson * 2. Redistributions in binary form must reproduce the above copyright 14*c19800e8SDoug Rabson * notice, this list of conditions and the following disclaimer in the 15*c19800e8SDoug Rabson * documentation and/or other materials provided with the distribution. 16*c19800e8SDoug Rabson * 17*c19800e8SDoug Rabson * 3. Neither the name of KTH nor the names of its contributors may be 18*c19800e8SDoug Rabson * used to endorse or promote products derived from this software without 19*c19800e8SDoug Rabson * specific prior written permission. 20*c19800e8SDoug Rabson * 21*c19800e8SDoug Rabson * THIS SOFTWARE IS PROVIDED BY KTH AND ITS CONTRIBUTORS ``AS IS'' AND ANY 22*c19800e8SDoug Rabson * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23*c19800e8SDoug Rabson * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 24*c19800e8SDoug Rabson * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL KTH OR ITS CONTRIBUTORS BE 25*c19800e8SDoug Rabson * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 26*c19800e8SDoug Rabson * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 27*c19800e8SDoug Rabson * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR 28*c19800e8SDoug Rabson * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 29*c19800e8SDoug Rabson * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR 30*c19800e8SDoug Rabson * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF 31*c19800e8SDoug Rabson * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 32*c19800e8SDoug Rabson */ 33*c19800e8SDoug Rabson 34*c19800e8SDoug Rabson #include "krb5/gsskrb5_locl.h" 35*c19800e8SDoug Rabson #include <err.h> 36*c19800e8SDoug Rabson #include "test_common.h" 37*c19800e8SDoug Rabson 38*c19800e8SDoug Rabson RCSID("$Id: test_common.c 20075 2007-01-31 06:05:19Z lha $"); 39*c19800e8SDoug Rabson 40*c19800e8SDoug Rabson char * 41*c19800e8SDoug Rabson gssapi_err(OM_uint32 maj_stat, OM_uint32 min_stat, gss_OID mech) 42*c19800e8SDoug Rabson { 43*c19800e8SDoug Rabson OM_uint32 disp_min_stat, disp_maj_stat; 44*c19800e8SDoug Rabson gss_buffer_desc maj_error_message; 45*c19800e8SDoug Rabson gss_buffer_desc min_error_message; 46*c19800e8SDoug Rabson OM_uint32 msg_ctx = 0; 47*c19800e8SDoug Rabson 48*c19800e8SDoug Rabson char *ret = NULL; 49*c19800e8SDoug Rabson 50*c19800e8SDoug Rabson maj_error_message.length = 0; 51*c19800e8SDoug Rabson maj_error_message.value = NULL; 52*c19800e8SDoug Rabson min_error_message.length = 0; 53*c19800e8SDoug Rabson min_error_message.value = NULL; 54*c19800e8SDoug Rabson 55*c19800e8SDoug Rabson disp_maj_stat = gss_display_status(&disp_min_stat, maj_stat, 56*c19800e8SDoug Rabson GSS_C_GSS_CODE, 57*c19800e8SDoug Rabson mech, &msg_ctx, &maj_error_message); 58*c19800e8SDoug Rabson disp_maj_stat = gss_display_status(&disp_min_stat, min_stat, 59*c19800e8SDoug Rabson GSS_C_MECH_CODE, 60*c19800e8SDoug Rabson mech, &msg_ctx, &min_error_message); 61*c19800e8SDoug Rabson asprintf(&ret, "gss-code: %lu %.*s\nmech-code: %lu %.*s", 62*c19800e8SDoug Rabson (unsigned long)maj_stat, 63*c19800e8SDoug Rabson (int)maj_error_message.length, 64*c19800e8SDoug Rabson (char *)maj_error_message.value, 65*c19800e8SDoug Rabson (unsigned long)min_stat, 66*c19800e8SDoug Rabson (int)min_error_message.length, 67*c19800e8SDoug Rabson (char *)min_error_message.value); 68*c19800e8SDoug Rabson 69*c19800e8SDoug Rabson gss_release_buffer(&disp_min_stat, &maj_error_message); 70*c19800e8SDoug Rabson gss_release_buffer(&disp_min_stat, &min_error_message); 71*c19800e8SDoug Rabson 72*c19800e8SDoug Rabson return ret; 73*c19800e8SDoug Rabson } 74*c19800e8SDoug Rabson 75