freebsd-nq/usr.sbin/i4b/isdndebug/main.c
1999-08-28 01:35:59 +00:00

626 lines
18 KiB
C

/*
* Copyright (c) 1997, 1999 Hellmuth Michaelis. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
*---------------------------------------------------------------------------
*
* main.c - i4b set debug options
* ------------------------------
*
* $FreeBSD$
*
* last edit-date: [Fri Jul 30 08:14:34 1999]
*
*---------------------------------------------------------------------------*/
#include <stdio.h>
#include <signal.h>
#include <errno.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <ctype.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <sys/ioctl.h>
#include <sys/types.h>
#include <sys/time.h>
#include <machine/i4b_debug.h>
#include <machine/i4b_ioctl.h>
char *bin_str(unsigned long val, int length);
static void usage ( void );
void printl1(unsigned long val);
void printl2(unsigned long val);
void printl3(unsigned long val);
void printl4(unsigned long val);
static int isdnfd;
#define I4BCTLDEVICE "/dev/i4bctl"
int opt_get = 0;
int opt_layer = -1;
int opt_set = 0;
int opt_setval;
int opt_reset = 0;
int opt_max = 0;
int opt_err = 0;
int opt_zero = 0;
int opt_unit = 0;
int opt_hscx = 0;
int opt_rhscx = 0;
int opt_lapd = 0;
int opt_rlapd = 0;
/*---------------------------------------------------------------------------*
* usage display and exit
*---------------------------------------------------------------------------*/
static void
usage(void)
{
fprintf(stderr, "\n");
fprintf(stderr, "isdndebug - i4b set debug level, version %d.%d.%d, compiled %s %s\n", VERSION, REL, STEP, __DATE__, __TIME__);
fprintf(stderr, "usage: isdndebug -e -g -h -l <layer> -m -q -r -s <value> -u <unit> -z -H -Q\n");
fprintf(stderr, " -e set error only debugging output\n");
fprintf(stderr, " -g get current debugging values\n");
fprintf(stderr, " -h get HSCX event counters\n");
fprintf(stderr, " -l layer specify layer (1...4)\n");
fprintf(stderr, " -m set maximum debugging output\n");
fprintf(stderr, " -q get Q.921 statistics\n");
fprintf(stderr, " -r reset values(s) to compiled in default\n");
fprintf(stderr, " -s value set new debugging value for layer\n");
fprintf(stderr, " -u unit unit number for -h, -q, -H and -Q commands\n");
fprintf(stderr, " -z set zero (=no) debugging output\n");
fprintf(stderr, " -H reset HSCX event counters to zero\n");
fprintf(stderr, " -Q reset Q.921 statistics\n");
fprintf(stderr, "\n");
exit(1);
}
/*---------------------------------------------------------------------------*
* program entry
*---------------------------------------------------------------------------*/
int
main(int argc, char **argv)
{
int c;
ctl_debug_t cdbg;
int ret;
while ((c = getopt(argc, argv, "eghl:mqrs:u:zHQ")) != -1)
{
switch(c)
{
case 'e':
opt_err = 1;
break;
case 'g':
opt_get = 1;
break;
case 'h':
opt_hscx = 1;
break;
case 'q':
opt_lapd = 1;
break;
case 'r':
opt_reset = 1;
break;
case 'm':
opt_max = 1;
break;
case 'l':
opt_layer = atoi(optarg);
if(opt_layer < 1 || opt_layer > 4)
usage();
break;
case 's':
if((sscanf(optarg, "%i", &opt_setval)) != 1)
usage();
opt_set = 1;
break;
case 'u':
opt_unit = atoi(optarg);
if(opt_unit < 0 || opt_unit > 9)
usage();
break;
case 'z':
opt_zero = 1;
break;
case 'H':
opt_rhscx = 1;
break;
case 'Q':
opt_rlapd = 1;
break;
case '?':
default:
usage();
break;
}
}
if(opt_get == 0 && opt_set == 0 && opt_reset == 0 && opt_max == 0 &&
opt_err == 0 && opt_zero == 0 && opt_hscx == 0 && opt_rhscx == 0 &&
opt_lapd == 0 && opt_rlapd == 0)
{
usage();
}
if((opt_get + opt_set + opt_reset + opt_max + opt_err + opt_zero +
opt_hscx + opt_rhscx + opt_lapd + opt_rlapd) > 1)
{
usage();
}
if((isdnfd = open(I4BCTLDEVICE, O_RDWR)) < 0)
{
fprintf(stderr, "i4bctl: cannot open %s: %s\n", I4BCTLDEVICE, strerror(errno));
exit(1);
}
if(opt_hscx)
{
hscxstat_t hst;
hst.unit = opt_unit;
hst.chan = 0;
if((ret = ioctl(isdnfd, I4B_CTL_GET_HSCXSTAT, &hst)) < 0)
{
fprintf(stderr, "ioctl I4B_CTL_GET_HSCXSTAT failed: %s", strerror(errno));
exit(1);
}
printf("\nHSCX events: VFR RDO CRC RAB XDU RFO\n");
printf("unit %d chan %d: %6d %6d %6d %6d %6d %6d\n",
hst.unit, hst.chan,
hst.vfr, hst.rdo, hst.crc, hst.rab, hst.xdu, hst.rfo);
hst.unit = opt_unit;
hst.chan = 1;
if((ret = ioctl(isdnfd, I4B_CTL_GET_HSCXSTAT, &hst)) < 0)
{
fprintf(stderr, "ioctl I4B_CTL_GET_HSCXSTAT failed: %s", strerror(errno));
exit(1);
}
printf("unit %d chan %d: %6d %6d %6d %6d %6d %6d\n",
hst.unit, hst.chan,
hst.vfr, hst.rdo, hst.crc, hst.rab, hst.xdu, hst.rfo);
exit(0);
}
if(opt_rhscx)
{
hscxstat_t hst;
hst.unit = opt_unit;
hst.chan = 0;
if((ret = ioctl(isdnfd, I4B_CTL_CLR_HSCXSTAT, &hst)) < 0)
{
fprintf(stderr, "ioctl I4B_CTL_CLR_HSCXSTAT failed: %s", strerror(errno));
exit(1);
}
printf("HSCX event counters unit %d chan %d reset to zero!\n",
hst.unit, hst.chan);
hst.unit = opt_unit;
hst.chan = 1;
if((ret = ioctl(isdnfd, I4B_CTL_CLR_HSCXSTAT, &hst)) < 0)
{
fprintf(stderr, "ioctl I4B_CTL_CLR_HSCXSTAT failed: %s", strerror(errno));
exit(1);
}
printf("HSCX event counters unit %d chan %d reset to zero!\n",
hst.unit, hst.chan);
exit(0);
}
if(opt_lapd)
{
l2stat_t l2s;
l2s.unit = opt_unit;
if((ret = ioctl(isdnfd, I4B_CTL_GET_LAPDSTAT, &l2s)) < 0)
{
fprintf(stderr, "ioctl I4B_CTL_GET_LAPDSTAT failed: %s", strerror(errno));
exit(1);
}
printf("unit %d Q.921 statistics: receive transmit\n", opt_unit);
printf("---------------------------------------------\n");
printf("# of I-frames %12lu %12lu\n", l2s.lapdstat.rx_i, l2s.lapdstat.tx_i);
printf("# of RR-frames %12lu %12lu\n", l2s.lapdstat.rx_rr, l2s.lapdstat.tx_rr);
printf("# of RNR-frames %12lu %12lu\n", l2s.lapdstat.rx_rnr, l2s.lapdstat.tx_rnr);
printf("# of REJ-frames %12lu %12lu\n", l2s.lapdstat.rx_rej, l2s.lapdstat.tx_rej);
printf("# of SABME-frames %12lu %12lu\n", l2s.lapdstat.rx_sabme, l2s.lapdstat.tx_sabme);
printf("# of DM-frames %12lu %12lu\n", l2s.lapdstat.rx_dm, l2s.lapdstat.tx_dm);
printf("# of DISC-frames %12lu %12lu\n", l2s.lapdstat.rx_disc, l2s.lapdstat.tx_disc);
printf("# of UA-frames %12lu %12lu\n", l2s.lapdstat.rx_ua, l2s.lapdstat.tx_ua);
printf("# of FRMR-frames %12lu %12lu\n", l2s.lapdstat.rx_frmr, l2s.lapdstat.tx_frmr);
printf("# of TEI-frames %12lu %12lu\n", l2s.lapdstat.rx_tei, l2s.lapdstat.tx_tei);
printf("# of UI-frames %12lu \n", l2s.lapdstat.rx_ui);
printf("# of XID-frames %12lu \n", l2s.lapdstat.rx_xid);
printf(" errors\n");
printf("---------------------------------------------\n");
printf("# of frames with incorrect length%12lu\n", l2s.lapdstat.err_rx_len);
printf("# of frames with bad frame type %12lu\n", l2s.lapdstat.err_rx_badf);
printf("# of bad S frames %12lu\n", l2s.lapdstat.err_rx_bads);
printf("# of bad U frames %12lu\n", l2s.lapdstat.err_rx_badu);
printf("# of bad UI frames %12lu\n", l2s.lapdstat.err_rx_badui);
exit(0);
}
if(opt_rlapd)
{
int unit;
unit = opt_unit;
if((ret = ioctl(isdnfd, I4B_CTL_CLR_LAPDSTAT, &unit)) < 0)
{
fprintf(stderr, "ioctl I4B_CTL_CLR_LAPDSTAT failed: %s", strerror(errno));
exit(1);
}
printf("Q.921 statistics counters unit %d reset to zero!\n", unit);
exit(0);
}
if((ret = ioctl(isdnfd, I4B_CTL_GET_DEBUG, &cdbg)) < 0)
{
fprintf(stderr, "ioctl I4B_CTL_GET_DEBUG failed: %s", strerror(errno));
exit(1);
}
if(opt_get)
{
switch(opt_layer)
{
case -1:
printl1(cdbg.l1);
printl2(cdbg.l2);
printl3(cdbg.l3);
printl4(cdbg.l4);
break;
case 1:
printl1(cdbg.l1);
break;
case 2:
printl2(cdbg.l2);
break;
case 3:
printl3(cdbg.l3);
break;
case 4:
printl4(cdbg.l4);
break;
}
printf("\n");
return(0);
}
else if(opt_set)
{
switch(opt_layer)
{
case -1:
usage();
break;
case 1:
cdbg.l1 = opt_setval;
break;
case 2:
cdbg.l2 = opt_setval;
break;
case 3:
cdbg.l3 = opt_setval;
break;
case 4:
cdbg.l4 = opt_setval;
break;
}
}
else if(opt_reset)
{
switch(opt_layer)
{
case -1:
cdbg.l1 = L1_DEBUG_DEFAULT;
cdbg.l2 = L2_DEBUG_DEFAULT;
cdbg.l3 = L3_DEBUG_DEFAULT;
cdbg.l4 = L4_DEBUG_DEFAULT;
break;
case 1:
cdbg.l1 = L1_DEBUG_DEFAULT;
break;
case 2:
cdbg.l2 = L2_DEBUG_DEFAULT;
break;
case 3:
cdbg.l3 = L3_DEBUG_DEFAULT;
break;
case 4:
cdbg.l4 = L4_DEBUG_DEFAULT;
break;
}
}
else if(opt_max)
{
switch(opt_layer)
{
case -1:
cdbg.l1 = L1_DEBUG_MAX;
cdbg.l2 = L2_DEBUG_MAX;
cdbg.l3 = L3_DEBUG_MAX;
cdbg.l4 = L4_DEBUG_MAX;
break;
case 1:
cdbg.l1 = L1_DEBUG_MAX;
break;
case 2:
cdbg.l2 = L2_DEBUG_MAX;
break;
case 3:
cdbg.l3 = L3_DEBUG_MAX;
break;
case 4:
cdbg.l4 = L4_DEBUG_MAX;
break;
}
}
else if(opt_err)
{
switch(opt_layer)
{
case -1:
cdbg.l1 = L1_DEBUG_ERR;
cdbg.l2 = L2_DEBUG_ERR;
cdbg.l3 = L3_DEBUG_ERR;
cdbg.l4 = L4_DEBUG_ERR;
break;
case 1:
cdbg.l1 = L1_DEBUG_ERR;
break;
case 2:
cdbg.l2 = L2_DEBUG_ERR;
break;
case 3:
cdbg.l3 = L3_DEBUG_ERR;
break;
case 4:
cdbg.l4 = L4_DEBUG_ERR;
break;
}
}
else if(opt_zero)
{
switch(opt_layer)
{
case -1:
cdbg.l1 = 0;
cdbg.l2 = 0;
cdbg.l3 = 0;
cdbg.l4 = 0;
break;
case 1:
cdbg.l1 = 0;
break;
case 2:
cdbg.l2 = 0;
break;
case 3:
cdbg.l3 = 0;
break;
case 4:
cdbg.l4 = 0;
break;
}
}
else
{
exit(1);
}
if((ret = ioctl(isdnfd, I4B_CTL_SET_DEBUG, &cdbg)) < 0)
{
fprintf(stderr, "ioctl I4B_CTL_SET_DEBUG failed: %s", strerror(errno));
exit(1);
}
return(0);
}
/*---------------------------------------------------------------------------*
* return ptr to string of 1's and 0's for value
*---------------------------------------------------------------------------*/
char *
bin_str(unsigned long val, int length)
{
static char buffer[80];
int i = 0;
if (length > 32)
length = 32;
val = val << (32 - length);
while (length--)
{
if (val & 0x80000000)
buffer[i++] = '1';
else
buffer[i++] = '0';
if ((length % 4) == 0 && length)
buffer[i++] = '.';
val = val << 1;
}
return (buffer);
}
/*---------------------------------------------------------------------------*
* print l1 info
*---------------------------------------------------------------------------*/
void
printl1(unsigned long val)
{
printf("\nLayer 1: %s = 0x%lX\n", bin_str(val, 32), val);
printf(" || |||| |||| ||||\n"),
printf(" || |||| |||| |||+- general error messages\n");
printf(" || |||| |||| ||+-- PH primitives exchanged\n");
printf(" || |||| |||| |+--- B channel actions\n");
printf(" || |||| |||| +---- HSCX error messages\n");
printf(" || |||| |||+------ HSCX IRQ messages\n");
printf(" || |||| ||+------- ISAC error messages\n");
printf(" || |||| |+-------- ISAC messages\n");
printf(" || |||| +--------- ISAC setup messages\n");
printf(" || |||+----------- FSM general messages\n");
printf(" || ||+------------ FSM error messages\n");
printf(" || |+------------- timer general messages\n");
printf(" || +-------------- timer error messages\n");
printf(" |+---------------- HSCX data xfer errors msgs\n");
printf(" +----------------- ISAC CICO messages\n");
printf(" ++++-++++-++++-++++-++------------------ unassigned\n");
}
/*---------------------------------------------------------------------------*
* print l2 info
*---------------------------------------------------------------------------*/
void
printl2(unsigned long val)
{
printf("\nLayer 2: %s = 0x%lX\n", bin_str(val, 32), val);
printf(" || |||| |||| ||||\n"),
printf(" || |||| |||| |||+- general error messages\n");
printf(" || |||| |||| ||+-- DL primitives exchanged\n");
printf(" || |||| |||| |+--- U frame messages\n");
printf(" || |||| |||| +---- U frame error messages\n");
printf(" || |||| |||+------ S frame messages\n");
printf(" || |||| ||+------- S frame error messages\n");
printf(" || |||| |+-------- I frame messages\n");
printf(" || |||| +--------- I frame error messages\n");
printf(" || |||+----------- FSM general messages\n");
printf(" || ||+------------ FSM error messages\n");
printf(" || |+------------- timer general messages\n");
printf(" || +-------------- timer error messages\n");
printf(" |+---------------- TEI general messages\n");
printf(" +----------------- TEI error messages\n");
printf(" ++++-++++-++++-++++-++------------------ unassigned\n");
}
/*---------------------------------------------------------------------------*
* print l3 info
*---------------------------------------------------------------------------*/
void
printl3(unsigned long val)
{
printf("\nLayer 3: %s = 0x%lX\n", bin_str(val, 32), val);
printf(" ||| |||| ||||\n"),
printf(" ||| |||| |||+- general error messages\n");
printf(" ||| |||| ||+-- general messages\n");
printf(" ||| |||| |+--- FSM messages\n");
printf(" ||| |||| +---- FSM error messages\n");
printf(" ||| |||+------ timer messages\n");
printf(" ||| ||+------- timer error messages\n");
printf(" ||| |+-------- protocol messages\n");
printf(" ||| +--------- protocol error messages\n");
printf(" ||+----------- facility messages\n");
printf(" |+------------ facility error messages\n");
printf(" +------------- Q.931 messages exchanged\n");
printf(" ++++-++++-++++-++++-++++-++------------- unassigned\n");
}
/*---------------------------------------------------------------------------*
* print l4 info
*---------------------------------------------------------------------------*/
void
printl4(unsigned long val)
{
printf("\nLayer 4: %s = 0x%lX\n", bin_str(val, 32), val);
printf(" ||| |||| ||||\n"),
printf(" ||| |||| |||+- general error messages\n");
printf(" ||| |||| ||+-- general messages\n");
printf(" ||| |||| |+--- B-ch timeout messages\n");
printf(" ||| |||| +---- network driver dial state\n");
printf(" ||| |||+------ ipr driver debug messages\n");
printf(" ||| ||+------- rbch driver debug messages\n");
printf(" ||| |+-------- isp driver debug messages\n");
printf(" ||| +--------- tel driver debug messages\n");
printf(" ||+----------- tina driver debug messages\n");
printf(" |+------------ tina driver messages\n");
printf(" +------------- tina driver error messages\n");
printf(" ++++-++++-++++-++++-++++-+-------------- unassigned\n");
}
/* EOF */