Home | History | Annotate | Line # | Download | only in gssapi
      1 /*	$NetBSD: gsstool.c,v 1.2 2017/01/28 21:31:46 christos Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 2006 Kungliga Tekniska Hgskolan
      5  * (Royal Institute of Technology, Stockholm, Sweden).
      6  * All rights reserved.
      7  *
      8  * Portions Copyright (c) 2009 - 2010 Apple Inc. All rights reserved.
      9  *
     10  * Redistribution and use in source and binary forms, with or without
     11  * modification, are permitted provided that the following conditions
     12  * are met:
     13  *
     14  * 1. Redistributions of source code must retain the above copyright
     15  *    notice, this list of conditions and the following disclaimer.
     16  *
     17  * 2. Redistributions in binary form must reproduce the above copyright
     18  *    notice, this list of conditions and the following disclaimer in the
     19  *    documentation and/or other materials provided with the distribution.
     20  *
     21  * 3. Neither the name of KTH nor the names of its contributors may be
     22  *    used to endorse or promote products derived from this software without
     23  *    specific prior written permission.
     24  *
     25  * THIS SOFTWARE IS PROVIDED BY KTH AND ITS CONTRIBUTORS ``AS IS'' AND ANY
     26  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     27  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     28  * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL KTH OR ITS CONTRIBUTORS BE
     29  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     30  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     31  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
     32  * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
     33  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
     34  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
     35  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     36  */
     37 
     38 #include <config.h>
     39 #include <krb5/roken.h>
     40 
     41 #include <stdio.h>
     42 #include <gssapi/gssapi.h>
     43 #include <gssapi/gssapi_krb5.h>
     44 #include <gssapi/gssapi_spnego.h>
     45 #include <gssapi/gssapi_ntlm.h>
     46 #include <err.h>
     47 #include <krb5/getarg.h>
     48 #include <krb5/rtbl.h>
     49 #include <gss-commands.h>
     50 
     51 
     52 static int version_flag = 0;
     53 static int help_flag	= 0;
     54 
     55 static struct getargs args[] = {
     56     {"version",	0,	arg_flag,	&version_flag, "print version", NULL },
     57     {"help",	0,	arg_flag,	&help_flag,  NULL, NULL }
     58 };
     59 
     60 static void
     61 usage (int ret)
     62 {
     63     arg_printusage (args, sizeof(args)/sizeof(*args),
     64 		    NULL, "service@host");
     65     exit (ret);
     66 }
     67 
     68 #define COL_OID		"OID"
     69 #define COL_NAME	"Name"
     70 #define COL_DESC	"Description"
     71 #define COL_VALUE	"Value"
     72 #define COL_MECH	"Mech"
     73 #define COL_EXPIRE	"Expire"
     74 #define COL_SASL	"SASL"
     75 
     76 int
     77 mechanisms(void *argptr, int argc, char **argv)
     78 {
     79     OM_uint32 maj_stat, min_stat;
     80     gss_OID_set mechs;
     81     rtbl_t ct;
     82     size_t i;
     83 
     84     maj_stat = gss_indicate_mechs(&min_stat, &mechs);
     85     if (maj_stat != GSS_S_COMPLETE)
     86 	errx(1, "gss_indicate_mechs failed");
     87 
     88     printf("Supported mechanisms:\n");
     89 
     90     ct = rtbl_create();
     91     if (ct == NULL)
     92 	errx(1, "rtbl_create");
     93 
     94     rtbl_set_separator(ct, "  ");
     95     rtbl_add_column(ct, COL_OID, 0);
     96     rtbl_add_column(ct, COL_NAME, 0);
     97     rtbl_add_column(ct, COL_DESC, 0);
     98     rtbl_add_column(ct, COL_SASL, 0);
     99 
    100     for (i = 0; i < mechs->count; i++) {
    101 	gss_buffer_desc str, sasl_name, mech_name, mech_desc;
    102 
    103 	maj_stat = gss_oid_to_str(&min_stat, &mechs->elements[i], &str);
    104 	if (maj_stat != GSS_S_COMPLETE)
    105 	    errx(1, "gss_oid_to_str failed");
    106 
    107 	rtbl_add_column_entryv(ct, COL_OID, "%.*s",
    108 			       (int)str.length, (char *)str.value);
    109 	gss_release_buffer(&min_stat, &str);
    110 
    111 	(void)gss_inquire_saslname_for_mech(&min_stat,
    112 					    &mechs->elements[i],
    113 					    &sasl_name,
    114 					    &mech_name,
    115 					    &mech_desc);
    116 
    117 	rtbl_add_column_entryv(ct, COL_NAME, "%.*s",
    118 			       (int)mech_name.length, (char *)mech_name.value);
    119 	rtbl_add_column_entryv(ct, COL_DESC, "%.*s",
    120 			       (int)mech_desc.length, (char *)mech_desc.value);
    121 	rtbl_add_column_entryv(ct, COL_SASL, "%.*s",
    122 			       (int)sasl_name.length, (char *)sasl_name.value);
    123 
    124 	gss_release_buffer(&min_stat, &mech_name);
    125 	gss_release_buffer(&min_stat, &mech_desc);
    126 	gss_release_buffer(&min_stat, &sasl_name);
    127 
    128     }
    129     gss_release_oid_set(&min_stat, &mechs);
    130 
    131     rtbl_format(ct, stdout);
    132     rtbl_destroy(ct);
    133 
    134     return 0;
    135 }
    136 
    137 static void
    138 print_mech_attr(const char *mechname, gss_const_OID mech, gss_OID_set set)
    139 {
    140     gss_buffer_desc name, desc;
    141     OM_uint32 major, minor;
    142     rtbl_t ct;
    143     size_t n;
    144 
    145     ct = rtbl_create();
    146     if (ct == NULL)
    147 	errx(1, "rtbl_create");
    148 
    149     rtbl_set_separator(ct, "  ");
    150     rtbl_add_column(ct, COL_OID, 0);
    151     rtbl_add_column(ct, COL_DESC, 0);
    152     if (mech)
    153 	rtbl_add_column(ct, COL_VALUE, 0);
    154 
    155     for (n = 0; n < set->count; n++) {
    156 	major = gss_display_mech_attr(&minor, &set->elements[n], &name, &desc, NULL);
    157 	if (major)
    158 	    continue;
    159 
    160 	rtbl_add_column_entryv(ct, COL_OID, "%.*s",
    161 			       (int)name.length, (char *)name.value);
    162 	rtbl_add_column_entryv(ct, COL_DESC, "%.*s",
    163 			       (int)desc.length, (char *)desc.value);
    164 	if (mech) {
    165 	    gss_buffer_desc value;
    166 
    167 	    if (gss_mo_get(mech, &set->elements[n], &value) != 0)
    168 		value.length = 0;
    169 
    170 	    if (value.length)
    171 		rtbl_add_column_entryv(ct, COL_VALUE, "%.*s",
    172 				       (int)value.length, (char *)value.value);
    173 	    else
    174 		rtbl_add_column_entryv(ct, COL_VALUE, "<>");
    175 	    gss_release_buffer(&minor, &value);
    176 	}
    177 
    178 	gss_release_buffer(&minor, &name);
    179 	gss_release_buffer(&minor, &desc);
    180     }
    181 
    182     printf("attributes for: %s\n", mechname);
    183     rtbl_format(ct, stdout);
    184     rtbl_destroy(ct);
    185 }
    186 
    187 
    188 int
    189 attributes(struct attributes_options *opt, int argc, char **argv)
    190 {
    191     gss_OID_set mech_attr = NULL, known_mech_attrs = NULL;
    192     gss_OID mech = GSS_C_NO_OID;
    193     OM_uint32 major, minor;
    194 
    195     if (opt->mech_string) {
    196 	mech = gss_name_to_oid(opt->mech_string);
    197 	if (mech == NULL)
    198 	    errx(1, "mech %s is unknown", opt->mech_string);
    199     }
    200 
    201     major = gss_inquire_attrs_for_mech(&minor, mech, &mech_attr, &known_mech_attrs);
    202     if (major)
    203 	errx(1, "gss_inquire_attrs_for_mech");
    204 
    205     if (mech) {
    206 	print_mech_attr(opt->mech_string, mech, mech_attr);
    207     }
    208 
    209     if (opt->all_flag) {
    210 	print_mech_attr("all mechs", NULL, known_mech_attrs);
    211     }
    212 
    213     gss_release_oid_set(&minor, &mech_attr);
    214     gss_release_oid_set(&minor, &known_mech_attrs);
    215 
    216     return 0;
    217 }
    218 
    219 
    220 /*
    221  *
    222  */
    223 
    224 int
    225 help(void *opt, int argc, char **argv)
    226 {
    227     sl_slc_help(commands, argc, argv);
    228     return 0;
    229 }
    230 
    231 int
    232 main(int argc, char **argv)
    233 {
    234     int exit_status = 0, ret, optidx = 0;
    235 
    236     setprogname(argv[0]);
    237 
    238     if(getarg(args, sizeof(args) / sizeof(args[0]), argc, argv, &optidx))
    239 	usage(1);
    240 
    241     if (help_flag)
    242 	usage (0);
    243 
    244     if(version_flag){
    245 	print_version(NULL);
    246 	exit(0);
    247     }
    248 
    249     argc -= optidx;
    250     argv += optidx;
    251 
    252     if (argc != 0) {
    253 	ret = sl_command(commands, argc, argv);
    254 	if(ret == -1)
    255 	    sl_did_you_mean(commands, argv[0]);
    256 	else if (ret == -2)
    257 	    ret = 0;
    258 	if(ret != 0)
    259 	    exit_status = 1;
    260     } else {
    261 	sl_slc_help(commands, argc, argv);
    262 	exit_status = 1;
    263     }
    264 
    265     return exit_status;
    266 }
    267