155682Smarkm/* 2120945Snectar * Copyright (c) 1997 - 2000, 2003 Kungliga Tekniska H�gskolan 355682Smarkm * (Royal Institute of Technology, Stockholm, Sweden). 455682Smarkm * All rights reserved. 555682Smarkm * 655682Smarkm * Redistribution and use in source and binary forms, with or without 755682Smarkm * modification, are permitted provided that the following conditions 855682Smarkm * are met: 955682Smarkm * 1055682Smarkm * 1. Redistributions of source code must retain the above copyright 1155682Smarkm * notice, this list of conditions and the following disclaimer. 1255682Smarkm * 1355682Smarkm * 2. Redistributions in binary form must reproduce the above copyright 1455682Smarkm * notice, this list of conditions and the following disclaimer in the 1555682Smarkm * documentation and/or other materials provided with the distribution. 1655682Smarkm * 1755682Smarkm * 3. Neither the name of the Institute nor the names of its contributors 1855682Smarkm * may be used to endorse or promote products derived from this software 1955682Smarkm * without specific prior written permission. 2055682Smarkm * 2155682Smarkm * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 2255682Smarkm * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 2355682Smarkm * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 2455682Smarkm * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 2555682Smarkm * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 2655682Smarkm * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 2755682Smarkm * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 2855682Smarkm * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 2955682Smarkm * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 3055682Smarkm * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 3155682Smarkm * SUCH DAMAGE. 3255682Smarkm */ 3355682Smarkm 3455682Smarkm#include "kuser_locl.h" 35178825SdfrRCSID("$Id: kdestroy.c 20458 2007-04-19 20:41:27Z lha $"); 3655682Smarkm 3755682Smarkmstatic const char *cache; 38178825Sdfrstatic const char *credential; 3955682Smarkmstatic int help_flag; 4055682Smarkmstatic int version_flag; 4155682Smarkmstatic int unlog_flag = 1; 4255682Smarkmstatic int dest_tkt_flag = 1; 4355682Smarkm 4455682Smarkmstruct getargs args[] = { 45178825Sdfr { "credential", 0, arg_string, &credential, 46178825Sdfr "remove one credential", "principal" }, 4755682Smarkm { "cache", 'c', arg_string, &cache, "cache to destroy", "cache" }, 4855682Smarkm { "unlog", 0, arg_negative_flag, &unlog_flag, 4955682Smarkm "do not destroy tokens", NULL }, 5055682Smarkm { "delete-v4", 0, arg_negative_flag, &dest_tkt_flag, 5155682Smarkm "do not destroy v4 tickets", NULL }, 5255682Smarkm { "version", 0, arg_flag, &version_flag, NULL, NULL }, 5355682Smarkm { "help", 'h', arg_flag, &help_flag, NULL, NULL} 5455682Smarkm}; 5555682Smarkm 5655682Smarkmint num_args = sizeof(args) / sizeof(args[0]); 5755682Smarkm 5855682Smarkmstatic void 5955682Smarkmusage (int status) 6055682Smarkm{ 6155682Smarkm arg_printusage (args, num_args, NULL, ""); 6255682Smarkm exit (status); 6355682Smarkm} 6455682Smarkm 6555682Smarkmint 6655682Smarkmmain (int argc, char **argv) 6755682Smarkm{ 6855682Smarkm krb5_error_code ret; 6955682Smarkm krb5_context context; 7055682Smarkm krb5_ccache ccache; 71178825Sdfr int optidx = 0; 7255682Smarkm int exit_val = 0; 7355682Smarkm 7478527Sassar setprogname (argv[0]); 7555682Smarkm 76178825Sdfr if(getarg(args, num_args, argc, argv, &optidx)) 7755682Smarkm usage(1); 7855682Smarkm 7955682Smarkm if (help_flag) 8055682Smarkm usage (0); 8155682Smarkm 8255682Smarkm if(version_flag){ 8355682Smarkm print_version(NULL); 8455682Smarkm exit(0); 8555682Smarkm } 8655682Smarkm 87178825Sdfr argc -= optidx; 88178825Sdfr argv += optidx; 8955682Smarkm 9055682Smarkm if (argc != 0) 9155682Smarkm usage (1); 9255682Smarkm 9355682Smarkm ret = krb5_init_context (&context); 9455682Smarkm if (ret) 9572445Sassar errx (1, "krb5_init_context failed: %d", ret); 9655682Smarkm 97120945Snectar if(cache == NULL) { 9855682Smarkm cache = krb5_cc_default_name(context); 99120945Snectar if (cache == NULL) { 100120945Snectar warnx ("krb5_cc_default_name: %s", krb5_get_err_text(context, ret)); 101120945Snectar exit(1); 102120945Snectar } 103120945Snectar } 10455682Smarkm 105178825Sdfr ret = krb5_cc_resolve(context, 10655682Smarkm cache, 10755682Smarkm &ccache); 10855682Smarkm 10955682Smarkm if (ret == 0) { 110178825Sdfr if (credential) { 111178825Sdfr krb5_creds mcred; 112178825Sdfr 113178825Sdfr krb5_cc_clear_mcred(&mcred); 114178825Sdfr 115178825Sdfr ret = krb5_parse_name(context, credential, &mcred.server); 116178825Sdfr if (ret) 117178825Sdfr krb5_err(context, 1, ret, 118178825Sdfr "Can't parse principal %s", credential); 119178825Sdfr 120178825Sdfr ret = krb5_cc_remove_cred(context, ccache, 0, &mcred); 121178825Sdfr if (ret) 122178825Sdfr krb5_err(context, 1, ret, 123178825Sdfr "Failed to remove principal %s", credential); 124178825Sdfr 125178825Sdfr krb5_cc_close(context, ccache); 126178825Sdfr krb5_free_principal(context, mcred.server); 127178825Sdfr krb5_free_context(context); 128178825Sdfr return 0; 129178825Sdfr } 130178825Sdfr 13155682Smarkm ret = krb5_cc_destroy (context, ccache); 13255682Smarkm if (ret) { 13355682Smarkm warnx ("krb5_cc_destroy: %s", krb5_get_err_text(context, ret)); 13455682Smarkm exit_val = 1; 13555682Smarkm } 13655682Smarkm } else { 13755682Smarkm warnx ("krb5_cc_resolve(%s): %s", cache, 13855682Smarkm krb5_get_err_text(context, ret)); 13955682Smarkm exit_val = 1; 14055682Smarkm } 14155682Smarkm 14255682Smarkm krb5_free_context (context); 14355682Smarkm 14455682Smarkm if (unlog_flag && k_hasafs ()) { 14555682Smarkm if (k_unlog ()) 14655682Smarkm exit_val = 1; 14755682Smarkm } 14855682Smarkm 14955682Smarkm return exit_val; 15055682Smarkm} 151