xref: /freebsd/crypto/heimdal/lib/krb5/test_kuserok.c (revision c19800e8cd5640693f36f2040db4ab5e8d738146)
1c19800e8SDoug Rabson /*
2c19800e8SDoug Rabson  * Copyright (c) 2005 Kungliga Tekniska H�gskolan
3c19800e8SDoug Rabson  * (Royal Institute of Technology, Stockholm, Sweden).
4c19800e8SDoug Rabson  * All rights reserved.
5c19800e8SDoug Rabson  *
6c19800e8SDoug Rabson  * Redistribution and use in source and binary forms, with or without
7c19800e8SDoug Rabson  * modification, are permitted provided that the following conditions
8c19800e8SDoug Rabson  * are met:
9c19800e8SDoug Rabson  *
10c19800e8SDoug Rabson  * 1. Redistributions of source code must retain the above copyright
11c19800e8SDoug Rabson  *    notice, this list of conditions and the following disclaimer.
12c19800e8SDoug Rabson  *
13c19800e8SDoug Rabson  * 2. Redistributions in binary form must reproduce the above copyright
14c19800e8SDoug Rabson  *    notice, this list of conditions and the following disclaimer in the
15c19800e8SDoug Rabson  *    documentation and/or other materials provided with the distribution.
16c19800e8SDoug Rabson  *
17c19800e8SDoug Rabson  * 3. Neither the name of KTH nor the names of its contributors may be
18c19800e8SDoug Rabson  *    used to endorse or promote products derived from this software without
19c19800e8SDoug Rabson  *    specific prior written permission.
20c19800e8SDoug Rabson  *
21c19800e8SDoug Rabson  * THIS SOFTWARE IS PROVIDED BY KTH AND ITS CONTRIBUTORS ``AS IS'' AND ANY
22c19800e8SDoug Rabson  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23c19800e8SDoug Rabson  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
24c19800e8SDoug Rabson  * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL KTH OR ITS CONTRIBUTORS BE
25c19800e8SDoug Rabson  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
26c19800e8SDoug Rabson  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
27c19800e8SDoug Rabson  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
28c19800e8SDoug Rabson  * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
29c19800e8SDoug Rabson  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
30c19800e8SDoug Rabson  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
31c19800e8SDoug Rabson  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */
32c19800e8SDoug Rabson 
33c19800e8SDoug Rabson #include "krb5_locl.h"
34c19800e8SDoug Rabson #include <getarg.h>
35c19800e8SDoug Rabson #include <err.h>
36c19800e8SDoug Rabson 
37c19800e8SDoug Rabson RCSID("$Id: test_kuserok.c 15033 2005-04-30 15:15:38Z lha $");
38c19800e8SDoug Rabson 
39c19800e8SDoug Rabson static int version_flag = 0;
40c19800e8SDoug Rabson static int help_flag	= 0;
41c19800e8SDoug Rabson 
42c19800e8SDoug Rabson static struct getargs args[] = {
43c19800e8SDoug Rabson     {"version",	0,	arg_flag,	&version_flag,
44c19800e8SDoug Rabson      "print version", NULL },
45c19800e8SDoug Rabson     {"help",	0,	arg_flag,	&help_flag,
46c19800e8SDoug Rabson      NULL, NULL }
47c19800e8SDoug Rabson };
48c19800e8SDoug Rabson 
49c19800e8SDoug Rabson static void
50c19800e8SDoug Rabson usage (int ret)
51c19800e8SDoug Rabson {
52c19800e8SDoug Rabson     arg_printusage (args,
53c19800e8SDoug Rabson 		    sizeof(args)/sizeof(*args),
54c19800e8SDoug Rabson 		    NULL,
55c19800e8SDoug Rabson 		    "principal luser");
56c19800e8SDoug Rabson     exit (ret);
57c19800e8SDoug Rabson }
58c19800e8SDoug Rabson 
59c19800e8SDoug Rabson int
60c19800e8SDoug Rabson main(int argc, char **argv)
61c19800e8SDoug Rabson {
62c19800e8SDoug Rabson     krb5_context context;
63c19800e8SDoug Rabson     krb5_error_code ret;
64c19800e8SDoug Rabson     krb5_principal principal;
65c19800e8SDoug Rabson     char *p;
66c19800e8SDoug Rabson     int o = 0;
67c19800e8SDoug Rabson 
68c19800e8SDoug Rabson     setprogname(argv[0]);
69c19800e8SDoug Rabson 
70c19800e8SDoug Rabson     if(getarg(args, sizeof(args) / sizeof(args[0]), argc, argv, &o))
71c19800e8SDoug Rabson 	usage(1);
72c19800e8SDoug Rabson 
73c19800e8SDoug Rabson     if (help_flag)
74c19800e8SDoug Rabson 	usage (0);
75c19800e8SDoug Rabson 
76c19800e8SDoug Rabson     if(version_flag){
77c19800e8SDoug Rabson 	print_version(NULL);
78c19800e8SDoug Rabson 	exit(0);
79c19800e8SDoug Rabson     }
80c19800e8SDoug Rabson 
81c19800e8SDoug Rabson     argc -= o;
82c19800e8SDoug Rabson     argv += o;
83c19800e8SDoug Rabson 
84c19800e8SDoug Rabson     ret = krb5_init_context(&context);
85c19800e8SDoug Rabson     if (ret)
86c19800e8SDoug Rabson 	errx (1, "krb5_init_context failed: %d", ret);
87c19800e8SDoug Rabson 
88c19800e8SDoug Rabson     if (argc != 2)
89c19800e8SDoug Rabson 	usage(1);
90c19800e8SDoug Rabson 
91c19800e8SDoug Rabson     ret = krb5_parse_name(context, argv[0], &principal);
92c19800e8SDoug Rabson     if (ret)
93c19800e8SDoug Rabson 	krb5_err(context, 1, ret, "krb5_parse_name");
94c19800e8SDoug Rabson 
95c19800e8SDoug Rabson     ret = krb5_unparse_name(context, principal, &p);
96c19800e8SDoug Rabson     if (ret)
97c19800e8SDoug Rabson 	krb5_err(context, 1, ret, "krb5_unparse_name");
98c19800e8SDoug Rabson 
99c19800e8SDoug Rabson     ret = krb5_kuserok(context, principal, argv[1]);
100c19800e8SDoug Rabson 
101c19800e8SDoug Rabson     krb5_free_context(context);
102c19800e8SDoug Rabson 
103c19800e8SDoug Rabson     printf("%s is %sallowed to login as %s\n", p, ret ? "" : "NOT ", argv[1]);
104c19800e8SDoug Rabson 
105c19800e8SDoug Rabson     return 0;
106c19800e8SDoug Rabson }
107