155682Smarkm/*
2233294Sstas * Copyright (c) 1997-2004 Kungliga Tekniska H��gskolan
3233294Sstas * (Royal Institute of Technology, Stockholm, Sweden).
4233294Sstas * All rights reserved.
555682Smarkm *
6233294Sstas * Redistribution and use in source and binary forms, with or without
7233294Sstas * modification, are permitted provided that the following conditions
8233294Sstas * are met:
955682Smarkm *
10233294Sstas * 1. Redistributions of source code must retain the above copyright
11233294Sstas *    notice, this list of conditions and the following disclaimer.
1255682Smarkm *
13233294Sstas * 2. Redistributions in binary form must reproduce the above copyright
14233294Sstas *    notice, this list of conditions and the following disclaimer in the
15233294Sstas *    documentation and/or other materials provided with the distribution.
1655682Smarkm *
17233294Sstas * 3. Neither the name of the Institute nor the names of its contributors
18233294Sstas *    may be used to endorse or promote products derived from this software
19233294Sstas *    without specific prior written permission.
2055682Smarkm *
21233294Sstas * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22233294Sstas * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23233294Sstas * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24233294Sstas * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25233294Sstas * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26233294Sstas * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27233294Sstas * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28233294Sstas * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29233294Sstas * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30233294Sstas * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31233294Sstas * SUCH DAMAGE.
3255682Smarkm */
3355682Smarkm
3455682Smarkm#include "ktutil_locl.h"
3555682Smarkm
36233294SstasRCSID("$Id$");
3755682Smarkm
3855682Smarkmint
39178825Sdfrkt_remove(struct remove_options *opt, int argc, char **argv)
4055682Smarkm{
4178527Sassar    krb5_error_code ret = 0;
4255682Smarkm    krb5_keytab_entry entry;
4378527Sassar    krb5_keytab keytab;
4455682Smarkm    krb5_principal principal = NULL;
4555682Smarkm    krb5_enctype enctype = 0;
46178825Sdfr
47178825Sdfr    if(opt->principal_string) {
48178825Sdfr	ret = krb5_parse_name(context, opt->principal_string, &principal);
4955682Smarkm	if(ret) {
50178825Sdfr	    krb5_warn(context, ret, "%s", opt->principal_string);
5178527Sassar	    return 1;
5255682Smarkm	}
5355682Smarkm    }
54178825Sdfr    if(opt->enctype_string) {
55178825Sdfr	ret = krb5_string_to_enctype(context, opt->enctype_string, &enctype);
5655682Smarkm	if(ret) {
5755682Smarkm	    int t;
58178825Sdfr	    if(sscanf(opt->enctype_string, "%d", &t) == 1)
5955682Smarkm		enctype = t;
6055682Smarkm	    else {
61178825Sdfr		krb5_warn(context, ret, "%s", opt->enctype_string);
6255682Smarkm		if(principal)
6355682Smarkm		    krb5_free_principal(context, principal);
6478527Sassar		return 1;
6555682Smarkm	    }
6655682Smarkm	}
6755682Smarkm    }
68178825Sdfr    if (!principal && !enctype && !opt->kvno_integer) {
69233294Sstas	krb5_warnx(context,
7055682Smarkm		   "You must give at least one of "
7155682Smarkm		   "principal, enctype or kvno.");
72178825Sdfr	ret = EINVAL;
73178825Sdfr	goto out;
7455682Smarkm    }
7578527Sassar
76178825Sdfr    if((keytab = ktutil_open_keytab()) == NULL) {
77178825Sdfr	ret = 1;
78178825Sdfr	goto out;
79178825Sdfr    }
8078527Sassar
8155682Smarkm    entry.principal = principal;
8255682Smarkm    entry.keyblock.keytype = enctype;
83178825Sdfr    entry.vno = opt->kvno_integer;
8455682Smarkm    ret = krb5_kt_remove_entry(context, keytab, &entry);
8578527Sassar    krb5_kt_close(context, keytab);
8655682Smarkm    if(ret)
8755682Smarkm	krb5_warn(context, ret, "remove");
88178825Sdfr out:
8955682Smarkm    if(principal)
9055682Smarkm	krb5_free_principal(context, principal);
91178825Sdfr    return ret != 0;
9255682Smarkm}
9355682Smarkm
94