crypto/external/bsd/heimdal/dist/admin/remove.c

   1 /*      $NetBSD: remove.c,v 1.1.1.2 2014/04/24 12:45:26 pettai Exp $    */
   2
   3 /*
   4  * Copyright (c) 1997-2004 Kungliga Tekniska Högskolan
   5  * (Royal Institute of Technology, Stockholm, Sweden).
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  *
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  *
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * 3. Neither the name of the Institute nor the names of its contributors
  20  *    may be used to endorse or promote products derived from this software
  21  *    without specific prior written permission.
  22  *
  23  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
  24  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  25  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  26  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
  27  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  30  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  31  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  32  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  33  * SUCH DAMAGE.
  34  */
  35
  36 #include "ktutil_locl.h"
  37
  38 __RCSID("NetBSD");
  39
  40 int
  41 kt_remove(struct remove_options *opt, int argc, char **argv)
  42 {
  43     krb5_error_code ret = 0;
  44     krb5_keytab_entry entry;
  45     krb5_keytab keytab;
  46     krb5_principal principal = NULL;
  47     krb5_enctype enctype = 0;
  48
  49     if(opt->principal_string) {
  50         ret = krb5_parse_name(context, opt->principal_string, &principal);
  51         if(ret) {
  52             krb5_warn(context, ret, "%s", opt->principal_string);
  53             return 1;
  54         }
  55     }
  56     if(opt->enctype_string) {
  57         ret = krb5_string_to_enctype(context, opt->enctype_string, &enctype);
  58         if(ret) {
  59             int t;
  60             if(sscanf(opt->enctype_string, "%d", &t) == 1)
  61                 enctype = t;
  62             else {
  63                 krb5_warn(context, ret, "%s", opt->enctype_string);
  64                 if(principal)
  65                     krb5_free_principal(context, principal);
  66                 return 1;
  67             }
  68         }
  69     }
  70     if (!principal && !enctype && !opt->kvno_integer) {
  71         krb5_warnx(context,
  72                    "You must give at least one of "
  73                    "principal, enctype or kvno.");
  74         ret = EINVAL;
  75         goto out;
  76     }
  77
  78     if((keytab = ktutil_open_keytab()) == NULL) {
  79         ret = 1;
  80         goto out;
  81     }
  82
  83     entry.principal = principal;
  84     entry.keyblock.keytype = enctype;
  85     entry.vno = opt->kvno_integer;
  86     ret = krb5_kt_remove_entry(context, keytab, &entry);
  87     krb5_kt_close(context, keytab);
  88     if(ret)
  89         krb5_warn(context, ret, "remove");
  90  out:
  91     if(principal)
  92         krb5_free_principal(context, principal);
  93     return ret != 0;
  94 }
  95