remove.c revision 55682 
1/*
2 * Copyright (c) 1997 - 2000 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.1 2000/01/02 04:41:02 assar Exp $");
37
38int
39kt_remove(int argc, char **argv)
40{
41    krb5_error_code ret;
42    krb5_keytab_entry entry;
43    char *principal_string = NULL;
44    krb5_principal principal = NULL;
45    int kvno = 0;
46    char *keytype_string = NULL;
47    krb5_enctype enctype = 0;
48    int help_flag = 0;
49    struct getargs args[] = {
50	{ "principal", 'p', arg_string, NULL, "principal to remove" },
51	{ "kvno", 'V', arg_integer, NULL, "key version to remove" },
52	{ "enctype", 'e', arg_string, NULL, "enctype to remove" },
53	{ "help", 'h', arg_flag, NULL }
54    };
55    int num_args = sizeof(args) / sizeof(args[0]);
56    int optind = 0;
57    int i = 0;
58    args[i++].value = &principal_string;
59    args[i++].value = &kvno;
60    args[i++].value = &keytype_string;
61    args[i++].value = &help_flag;
62    if(getarg(args, num_args, argc, argv, &optind)) {
63	arg_printusage(args, num_args, "ktutil remove", "");
64	return 0;
65    }
66    if(help_flag) {
67	arg_printusage(args, num_args, "ktutil remove", "");
68	return 0;
69    }
70    if(principal_string) {
71	ret = krb5_parse_name(context, principal_string, &principal);
72	if(ret) {
73	    krb5_warn(context, ret, "%s", principal_string);
74	    return 0;
75	}
76    }
77    if(keytype_string) {
78	ret = krb5_string_to_enctype(context, keytype_string, &enctype);
79	if(ret) {
80	    int t;
81	    if(sscanf(keytype_string, "%d", &t) == 1)
82		enctype = t;
83	    else {
84		krb5_warn(context, ret, "%s", keytype_string);
85		if(principal)
86		    krb5_free_principal(context, principal);
87		return 0;
88	    }
89	}
90    }
91    if (!principal && !enctype && !kvno) {
92	krb5_warnx(context,
93		   "You must give at least one of "
94		   "principal, enctype or kvno.");
95	return 0;
96    }
97    entry.principal = principal;
98    entry.keyblock.keytype = enctype;
99    entry.vno = kvno;
100    ret = krb5_kt_remove_entry(context, keytab, &entry);
101    if(ret)
102	krb5_warn(context, ret, "remove");
103    if(principal)
104	krb5_free_principal(context, principal);
105    return 0;
106}
107
108