/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright (c) 1991, 1999 by Sun Microsystems, Inc.
 * All rights reserved.
 */

#ident  "%Z%%M% %I%     %E% SMI"        /* SunOS        */

#include <sys/types.h>
#include <sys/errno.h>
#include <setjmp.h>
#include <string.h>

#include <netinet/in.h>
#include <rpc/types.h>
#include <rpc/rpc.h>
#include <rpc/xdr.h>
#include <rpc/auth.h>
#include <rpc/clnt.h>
#include <rpc/rpc_msg.h>
#include <rpcsvc/bootparam_prot.h>
#include "snoop.h"

extern char *dlc_header;
extern jmp_buf xdr_err;

static void show_address(char *);
static char *sum_address(void);

static char *procnames_short[] = {
        "Null",         /*  0 */
        "WHOAMI?",      /*  1 */
        "GETFILE",      /*  2 */
};

static char *procnames_long[] = {
        "Null procedure",       /*  0 */
        "Who am I?",            /*  1 */
        "Get file name",        /*  2 */
};

#define MAXPROC 2

void
interpret_bparam(flags, type, xid, vers, proc, data, len)
        int flags, type, xid, vers, proc;
        char *data;
        int len;
{
        char *line;
        char buff[MAX_PATH_LEN + 1];
        char buff2[MAX_MACHINE_NAME + 1];

        if (proc < 0 || proc > MAXPROC)
                return;

        if (flags & F_SUM) {
                if (setjmp(xdr_err)) {
                        return;
                }

                line = get_sum_line();

                if (type == CALL) {
                        (void) sprintf(line,
                                "BPARAM C %s",
                                procnames_short[proc]);
                        line += strlen(line);

                        switch (proc) {
                        case BOOTPARAMPROC_WHOAMI:
                                (void) sprintf(line, " %s",
                                        sum_address());
                                break;
                        case BOOTPARAMPROC_GETFILE:
                                (void) getxdr_string(buff,
                                        MAX_MACHINE_NAME);
                                (void) sprintf(line, " %s",
                                        getxdr_string(buff,
                                        MAX_FILEID));
                                break;
                        }

                        check_retransmit(line, xid);
                } else {
                        (void) sprintf(line, "BPARAM R %s ",
                                procnames_short[proc]);
                        line += strlen(line);
                        switch (proc) {
                        case BOOTPARAMPROC_WHOAMI:
                                (void) getxdr_string(buff,
                                        MAX_MACHINE_NAME);
                                (void) getxdr_string(buff2,
                                        MAX_MACHINE_NAME);
                                (void) sprintf(line, "%s in %s",
                                        buff, buff2);
                                break;
                        case BOOTPARAMPROC_GETFILE:
                                (void) getxdr_string(buff,
                                        MAX_MACHINE_NAME);
                                (void) sum_address();
                                (void) sprintf(line, "File=%s",
                                        getxdr_string(buff,
                                                MAX_PATH_LEN));
                                break;
                        }
                }
        }

        if (flags & F_DTAIL) {
                show_header("BPARAM:  ", "Boot Parameters", len);
                show_space();
                if (setjmp(xdr_err)) {
                        return;
                }
                (void) sprintf(get_line(0, 0),
                        "Proc = %d (%s)",
                        proc, procnames_long[proc]);

                if (type == CALL) {
                        switch (proc) {
                        case BOOTPARAMPROC_WHOAMI:
                                show_address("Client address");
                                break;

                        case BOOTPARAMPROC_GETFILE:
                                (void) showxdr_string(MAX_MACHINE_NAME,
                                        "Hostname = %s");
                                (void) showxdr_string(MAX_FILEID,
                                        "File = %s");
                                break;
                        }
                } else {
                        switch (proc) {
                        case BOOTPARAMPROC_WHOAMI:
                                (void) showxdr_string(MAX_MACHINE_NAME,
                                        "Client name = %s");
                                (void) showxdr_string(MAX_MACHINE_NAME,
                                        "Domain name = %s");
                                show_address("Router addr");
                                break;

                        case BOOTPARAMPROC_GETFILE:
                                (void) showxdr_string(MAX_MACHINE_NAME,
                                        "Server name = %s");
                                show_address("Server addr");
                                (void) showxdr_string(MAX_PATH_LEN,
                                        "Server file = %s");
                                break;
                        }
                }

                show_trailer();
        }
}

static char *
sum_address()
{
        struct in_addr host;
        extern char *inet_ntoa();
        int atype;

        atype = getxdr_u_long();
        if (atype != IP_ADDR_TYPE)
                return ("?");

        host.S_un.S_un_b.s_b1 = getxdr_char();
        host.S_un.S_un_b.s_b2 = getxdr_char();
        host.S_un.S_un_b.s_b3 = getxdr_char();
        host.S_un.S_un_b.s_b4 = getxdr_char();

        return (inet_ntoa(host));
}

static void
show_address(label)
        char *label;
{
        struct in_addr host;
        extern char *inet_ntoa();
        int atype;

        atype = getxdr_u_long();
        if (atype == IP_ADDR_TYPE) {
                host.S_un.S_un_b.s_b1 = getxdr_char();
                host.S_un.S_un_b.s_b2 = getxdr_char();
                host.S_un.S_un_b.s_b3 = getxdr_char();
                host.S_un.S_un_b.s_b4 = getxdr_char();

                (void) sprintf(get_line(0, 0),
                        "%s = %s (%s)",
                        label,
                        inet_ntoa(host),
                        addrtoname(AF_INET, &host));
        } else {
                (void) sprintf(get_line(0, 0),
                "Router addr = ? (type not known)");
        }
}