kdestroy.c revision 78527 
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 "kuser_locl.h"
35RCSID("$Id: kdestroy.c,v 1.13 2001/02/20 01:44:51 assar Exp $");
36
37static const char *cache;
38static int help_flag;
39static int version_flag;
40static int unlog_flag = 1;
41static int dest_tkt_flag = 1;
42
43struct getargs args[] = {
44    { "cache",		'c', arg_string, &cache, "cache to destroy", "cache" },
45    { "unlog",		0,   arg_negative_flag, &unlog_flag,
46      "do not destroy tokens", NULL },
47    { "delete-v4",	0,   arg_negative_flag, &dest_tkt_flag,
48      "do not destroy v4 tickets", NULL },
49    { "version", 	0,   arg_flag, &version_flag, NULL, NULL },
50    { "help",		'h', arg_flag, &help_flag, NULL, NULL}
51};
52
53int num_args = sizeof(args) / sizeof(args[0]);
54
55static void
56usage (int status)
57{
58    arg_printusage (args, num_args, NULL, "");
59    exit (status);
60}
61
62int
63main (int argc, char **argv)
64{
65    krb5_error_code ret;
66    krb5_context context;
67    krb5_ccache  ccache;
68    int optind = 0;
69    int exit_val = 0;
70
71    setprogname (argv[0]);
72
73    if(getarg(args, num_args, argc, argv, &optind))
74	usage(1);
75
76    if (help_flag)
77	usage (0);
78
79    if(version_flag){
80	print_version(NULL);
81	exit(0);
82    }
83
84    argc -= optind;
85    argv += optind;
86
87    if (argc != 0)
88	usage (1);
89
90    ret = krb5_init_context (&context);
91    if (ret)
92	errx (1, "krb5_init_context failed: %d", ret);
93
94    if(cache == NULL)
95	cache = krb5_cc_default_name(context);
96
97    ret =  krb5_cc_resolve(context,
98			   cache,
99			   &ccache);
100
101    if (ret == 0) {
102	ret = krb5_cc_destroy (context, ccache);
103	if (ret) {
104	    warnx ("krb5_cc_destroy: %s", krb5_get_err_text(context, ret));
105	    exit_val = 1;
106	}
107    } else {
108	warnx ("krb5_cc_resolve(%s): %s", cache,
109	       krb5_get_err_text(context, ret));
110	exit_val = 1;
111    }
112
113    krb5_free_context (context);
114
115#if KRB4
116    if(dest_tkt_flag && dest_tkt ())
117	exit_val = 1;
118    if (unlog_flag && k_hasafs ()) {
119	if (k_unlog ())
120	    exit_val = 1;
121    }
122#endif
123
124    return exit_val;
125}
126