remove.c revision 78527 
1/*
2 * Copyright (c) 1997 - 2001 Kungliga Tekniska H�gskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 *
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 *
13 * 2. Redistributions in binary form must reproduce the above copyright
14 *    notice, this list of conditions and the following disclaimer in the
15 *    documentation and/or other materials provided with the distribution.
16 *
17 * 3. Neither the name of the Institute nor the names of its contributors
18 *    may be used to endorse or promote products derived from this software
19 *    without specific prior written permission.
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * SUCH DAMAGE.
32 */
33
34#include "ktutil_locl.h"
35
36RCSID("$Id: remove.c,v 1.2 2001/05/10 15:44:58 assar Exp $");
37
38int
39kt_remove(int argc, char **argv)
40{
41    krb5_error_code ret = 0;
42    krb5_keytab_entry entry;
43    krb5_keytab keytab;
44    char *principal_string = NULL;
45    krb5_principal principal = NULL;
46    int kvno = 0;
47    char *keytype_string = NULL;
48    krb5_enctype enctype = 0;
49    int help_flag = 0;
50    struct getargs args[] = {
51	{ "principal", 'p', arg_string, NULL, "principal to remove" },
52	{ "kvno", 'V', arg_integer, NULL, "key version to remove" },
53	{ "enctype", 'e', arg_string, NULL, "enctype to remove" },
54	{ "help", 'h', arg_flag, NULL }
55    };
56    int num_args = sizeof(args) / sizeof(args[0]);
57    int optind = 0;
58    int i = 0;
59    args[i++].value = &principal_string;
60    args[i++].value = &kvno;
61    args[i++].value = &keytype_string;
62    args[i++].value = &help_flag;
63    if(getarg(args, num_args, argc, argv, &optind)) {
64	arg_printusage(args, num_args, "ktutil remove", "");
65	return 1;
66    }
67    if(help_flag) {
68	arg_printusage(args, num_args, "ktutil remove", "");
69	return 0;
70    }
71    if(principal_string) {
72	ret = krb5_parse_name(context, principal_string, &principal);
73	if(ret) {
74	    krb5_warn(context, ret, "%s", principal_string);
75	    return 1;
76	}
77    }
78    if(keytype_string) {
79	ret = krb5_string_to_enctype(context, keytype_string, &enctype);
80	if(ret) {
81	    int t;
82	    if(sscanf(keytype_string, "%d", &t) == 1)
83		enctype = t;
84	    else {
85		krb5_warn(context, ret, "%s", keytype_string);
86		if(principal)
87		    krb5_free_principal(context, principal);
88		return 1;
89	    }
90	}
91    }
92    if (!principal && !enctype && !kvno) {
93	krb5_warnx(context,
94		   "You must give at least one of "
95		   "principal, enctype or kvno.");
96	return 1;
97    }
98
99    if (keytab_string == NULL) {
100	ret = krb5_kt_default_modify_name (context, keytab_buf,
101					   sizeof(keytab_buf));
102	if (ret) {
103	    krb5_warn(context, ret, "krb5_kt_default_modify_name");
104	    return 1;
105	}
106	keytab_string = keytab_buf;
107    }
108    ret = krb5_kt_resolve(context, keytab_string, &keytab);
109    if (ret) {
110	krb5_warn(context, ret, "resolving keytab %s", keytab_string);
111	return 1;
112    }
113
114    if (verbose_flag)
115	fprintf (stderr, "Using keytab %s\n", keytab_string);
116
117    entry.principal = principal;
118    entry.keyblock.keytype = enctype;
119    entry.vno = kvno;
120    ret = krb5_kt_remove_entry(context, keytab, &entry);
121    krb5_kt_close(context, keytab);
122    if(ret)
123	krb5_warn(context, ret, "remove");
124    if(principal)
125	krb5_free_principal(context, principal);
126    return 0;
127}
128
129