1  /*
 2   * Copyright (c) 1997-2004 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  
36  RCSID("$Id$");
37  
38  int
39  kt_remove(struct remove_options *opt, int argc, char **argv)
40  {
41      krb5_error_code ret = 0;
42      krb5_keytab_entry entry;
43      krb5_keytab keytab;
44      krb5_principal principal = NULL;
45      krb5_enctype enctype = 0;
46  
47      if(opt->principal_string) {
48  	ret = krb5_parse_name(context, opt->principal_string, &principal);
49  	if(ret) {
50  	    krb5_warn(context, ret, "%s", opt->principal_string);
51  	    return 1;
52  	}
53      }
54      if(opt->enctype_string) {
55  	ret = krb5_string_to_enctype(context, opt->enctype_string, &enctype);
56  	if(ret) {
57  	    int t;
58  	    if(sscanf(opt->enctype_string, "%d", &t) == 1)
59  		enctype = t;
60  	    else {
61  		krb5_warn(context, ret, "%s", opt->enctype_string);
62  		if(principal)
63  		    krb5_free_principal(context, principal);
64  		return 1;
65  	    }
66  	}
67      }
68      if (!principal && !enctype && !opt->kvno_integer) {
69  	krb5_warnx(context,
70  		   "You must give at least one of "
71  		   "principal, enctype or kvno.");
72  	ret = EINVAL;
73  	goto out;
74      }
75  
76      if((keytab = ktutil_open_keytab()) == NULL) {
77  	ret = 1;
78  	goto out;
79      }
80  
81      entry.principal = principal;
82      entry.keyblock.keytype = enctype;
83      entry.vno = opt->kvno_integer;
84      ret = krb5_kt_remove_entry(context, keytab, &entry);
85      krb5_kt_close(context, keytab);
86      if(ret)
87  	krb5_warn(context, ret, "remove");
88   out:
89      if(principal)
90  	krb5_free_principal(context, principal);
91      return ret != 0;
92  }
93