/****************************************************************
 *								*
 *	Copyright 2001, 2012 Fidelity Information Services, Inc	*
 *								*
 *	This source code contains the intellectual property	*
 *	of its copyright holder(s), and is made available	*
 *	under a license.  If you do not know the terms of	*
 *	the license, please stop and do not read further.	*
 *								*
 ****************************************************************/

/*
 *  omi_dump_pkt.c ---
 *
 *
 *
 */
#include "mdef.h"

#include <errno.h>
#include "gtm_stdio.h"
#include "gtm_unistd.h"

#include "gtm_string.h"
#include "gtmio.h"
#include "have_crit.h"

#include "omi.h"

GBLREF char	*omi_pklog;
GBLREF int	 omi_pkdbg;
GBLREF char	*omi_oprlist[];

#ifndef lint
static char rcsid[] = "$Header:$";
#endif


void omi_dump_pkt(omi_conn *cptr)
{
    char	*ptr, *end, *chr;
    omi_vi	 vi, mlen, xlen;
    omi_li	 li, nx;
    omi_si	 si;
    int		 i, j, len, buf[5];

    if (!omi_pklog || INV_FD_P(cptr->pklog))
	return;

    if (write(cptr->pklog, cptr->bptr, cptr->blen) < 0)
	OMI_DBG((omi_debug, "gtcm_server: write(): %s\n", STRERROR(errno)));

    if (!omi_pkdbg)
	return;

    OMI_DBG((omi_debug, "gtcm_server: connection %d:", cptr->stats.id));

    ptr = cptr->bptr;
    OMI_VI_READ(&mlen, ptr);
    OMI_DBG((omi_debug, " %d bytes", mlen.value));

    if (cptr->exts & OMI_XTF_BUNCH) {
	OMI_LI_READ(&nx, ptr);
	OMI_DBG((omi_debug, " %d transactions in bunch", nx.value));
    }
    else {
	nx.value = 1;
	xlen     = mlen;
    }
    OMI_DBG((omi_debug, "\n"));

    for (i = 0; i < nx.value; i++) {
	if (cptr->exts & OMI_XTF_BUNCH)
	    OMI_VI_READ(&xlen, ptr);
	end  = ptr + xlen.value;
	ptr += 3;
	OMI_SI_READ(&si, ptr);
	ptr += 8;
	OMI_DBG((omi_debug, "    "));
	if (cptr->exts & OMI_XTF_BUNCH)
	    OMI_DBG((omi_debug, "bunch %d, ", i));
	OMI_DBG((omi_debug, "%s (%d bytes)\n", (omi_oprlist[si.value])
		 ? omi_oprlist[si.value] : "unknown", xlen.value));
	chr  = (char *)buf;
	while (ptr < end) {
	    OMI_DBG((omi_debug, "\t"));
	    if ((len = (int)(end - ptr)) > 20)
		len = 20;
	    memcpy(chr, ptr, len);
	    ptr += len;
	    for (j = len; j < 20; j++)
		chr[j] = '\0';
	    for (j = 0; j < 5; j++)
		OMI_DBG((omi_debug, "%08x ", buf[j]));
	    for (j = 0; j < 20; j++)
		if (j >= len)
		    chr[j] = ' ';
		else if (chr[j] < 32 || chr[j] > 126)
		    chr[j] = '.';
	    OMI_DBG((omi_debug, "%20s\n", chr));
	}
    }

    return;

}