172445Sassar/* 2233294Sstas * Copyright (c) 2000 - 2002 Kungliga Tekniska H��gskolan 3233294Sstas * (Royal Institute of Technology, Stockholm, Sweden). 4233294Sstas * All rights reserved. 572445Sassar * 6233294Sstas * Redistribution and use in source and binary forms, with or without 7233294Sstas * modification, are permitted provided that the following conditions 8233294Sstas * are met: 972445Sassar * 10233294Sstas * 1. Redistributions of source code must retain the above copyright 11233294Sstas * notice, this list of conditions and the following disclaimer. 1272445Sassar * 13233294Sstas * 2. Redistributions in binary form must reproduce the above copyright 14233294Sstas * notice, this list of conditions and the following disclaimer in the 15233294Sstas * documentation and/or other materials provided with the distribution. 1672445Sassar * 1772445Sassar * 3. Neither the name of KTH nor the names of its contributors may be 1872445Sassar * used to endorse or promote products derived from this software without 1972445Sassar * specific prior written permission. 2072445Sassar * 2172445Sassar * THIS SOFTWARE IS PROVIDED BY KTH AND ITS CONTRIBUTORS ``AS IS'' AND ANY 2272445Sassar * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 2372445Sassar * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 2472445Sassar * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL KTH OR ITS CONTRIBUTORS BE 2572445Sassar * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 2672445Sassar * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 2772445Sassar * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR 2872445Sassar * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 2972445Sassar * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR 3072445Sassar * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF 3172445Sassar * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ 3272445Sassar 3372445Sassar#include "krb5_locl.h" 3472445Sassar#include <err.h> 35102644Snectar#include <getarg.h> 3672445Sassar 3772445Sassar/* print all addresses that we find */ 3872445Sassar 3972445Sassarstatic void 4072445Sassarprint_addresses (krb5_context context, const krb5_addresses *addrs) 4172445Sassar{ 4272445Sassar int i; 4372445Sassar char buf[256]; 4472445Sassar size_t len; 45233294Sstas 4672445Sassar for (i = 0; i < addrs->len; ++i) { 4772445Sassar krb5_print_address (&addrs->val[i], buf, sizeof(buf), &len); 4872445Sassar printf ("%s\n", buf); 4972445Sassar } 5072445Sassar} 5172445Sassar 52102644Snectarstatic int version_flag = 0; 53102644Snectarstatic int help_flag = 0; 54102644Snectar 55102644Snectarstatic struct getargs args[] = { 56102644Snectar {"version", 0, arg_flag, &version_flag, 57102644Snectar "print version", NULL }, 58102644Snectar {"help", 0, arg_flag, &help_flag, 59102644Snectar NULL, NULL } 60102644Snectar}; 61102644Snectar 62102644Snectarstatic void 63102644Snectarusage (int ret) 64102644Snectar{ 65102644Snectar arg_printusage (args, 66102644Snectar sizeof(args)/sizeof(*args), 67102644Snectar NULL, 68102644Snectar ""); 69102644Snectar exit (ret); 70102644Snectar} 71102644Snectar 7272445Sassarint 7372445Sassarmain(int argc, char **argv) 7472445Sassar{ 7572445Sassar krb5_context context; 7672445Sassar krb5_error_code ret; 7772445Sassar krb5_addresses addrs; 78178825Sdfr int optidx = 0; 7972445Sassar 80102644Snectar setprogname (argv[0]); 81102644Snectar 82178825Sdfr if(getarg(args, sizeof(args) / sizeof(args[0]), argc, argv, &optidx)) 83102644Snectar usage(1); 84233294Sstas 85102644Snectar if (help_flag) 86102644Snectar usage (0); 87102644Snectar 88102644Snectar if(version_flag){ 89102644Snectar print_version(NULL); 90102644Snectar exit(0); 91102644Snectar } 92102644Snectar 9372445Sassar ret = krb5_init_context(&context); 9472445Sassar if (ret) 9572445Sassar errx (1, "krb5_init_context failed: %d", ret); 9672445Sassar 9772445Sassar ret = krb5_get_all_client_addrs (context, &addrs); 9872445Sassar if (ret) 9972445Sassar krb5_err (context, 1, ret, "krb5_get_all_client_addrs"); 10072445Sassar printf ("client addresses\n"); 10172445Sassar print_addresses (context, &addrs); 10272445Sassar krb5_free_addresses (context, &addrs); 10372445Sassar 10472445Sassar ret = krb5_get_all_server_addrs (context, &addrs); 10572445Sassar if (ret) 10672445Sassar krb5_err (context, 1, ret, "krb5_get_all_server_addrs"); 10772445Sassar printf ("server addresses\n"); 10872445Sassar print_addresses (context, &addrs); 10972445Sassar krb5_free_addresses (context, &addrs); 11072445Sassar return 0; 11172445Sassar} 112