/*      $NetBSD: ntpdc_ops.c,v 1.11 2020/05/25 20:47:26 christos Exp $  */

/*
* ntpdc_ops.c - subroutines which are called to perform operations by
*               ntpdc
*/

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#include <stdio.h>
#include <stddef.h>

#include "ntpdc.h"
#include "ntp_net.h"
#include "ntp_control.h"
#include "ntp_refclock.h"
#include "ntp_stdlib.h"

#include <ctype.h>
#ifdef HAVE_SYS_TIMEX_H
# include <sys/timex.h>
#endif
#if !defined(__bsdi__) && !defined(apollo)
#ifdef HAVE_NETINET_IN_H
#include <netinet/in.h>
#endif
#endif

#include <arpa/inet.h>

/*
* utility functions
*/
static  int     checkitems      (size_t, FILE *);
static  int     checkitemsize   (size_t, size_t);
static  int     check1item      (size_t, FILE *);

/*
* Declarations for command handlers in here
*/
static  void    peerlist        (struct parse *, FILE *);
static  void    peers           (struct parse *, FILE *);
static  void    doconfig        (struct parse *pcmd, FILE *fp, int mode, int refc);
static  void    dmpeers         (struct parse *, FILE *);
static  void    dopeers         (struct parse *, FILE *, int);
static  void    printpeer       (struct info_peer *, FILE *);
static  void    showpeer        (struct parse *, FILE *);
static  void    peerstats       (struct parse *, FILE *);
static  void    loopinfo        (struct parse *, FILE *);
static  void    sysinfo         (struct parse *, FILE *);
static  void    sysstats        (struct parse *, FILE *);
static  void    iostats         (struct parse *, FILE *);
static  void    memstats        (struct parse *, FILE *);
static  void    timerstats      (struct parse *, FILE *);
static  void    addpeer         (struct parse *, FILE *);
static  void    addserver       (struct parse *, FILE *);
static  void    addrefclock     (struct parse *, FILE *);
static  void    broadcast       (struct parse *, FILE *);
static  void    doconfig        (struct parse *, FILE *, int, int);
static  void    unconfig        (struct parse *, FILE *);
static  void    set             (struct parse *, FILE *);
static  void    sys_clear       (struct parse *, FILE *);
static  void    doset           (struct parse *, FILE *, int);
static  void    reslist         (struct parse *, FILE *);
static  void    new_restrict    (struct parse *, FILE *);
static  void    unrestrict      (struct parse *, FILE *);
static  void    delrestrict     (struct parse *, FILE *);
static  void    do_restrict     (struct parse *, FILE *, int);
static  void    monlist         (struct parse *, FILE *);
static  void    reset           (struct parse *, FILE *);
static  void    preset          (struct parse *, FILE *);
static  void    readkeys        (struct parse *, FILE *);
static  void    trustkey        (struct parse *, FILE *);
static  void    untrustkey      (struct parse *, FILE *);
static  void    do_trustkey     (struct parse *, FILE *, int);
static  void    authinfo        (struct parse *, FILE *);
static  void    traps           (struct parse *, FILE *);
static  void    addtrap         (struct parse *, FILE *);
static  void    clrtrap         (struct parse *, FILE *);
static  void    do_addclr_trap  (struct parse *, FILE *, int);
static  void    requestkey      (struct parse *, FILE *);
static  void    controlkey      (struct parse *, FILE *);
static  void    do_changekey    (struct parse *, FILE *, int);
static  void    ctlstats        (struct parse *, FILE *);
static  void    clockstat       (struct parse *, FILE *);
static  void    fudge           (struct parse *, FILE *);
static  void    clkbug          (struct parse *, FILE *);
static  void    kerninfo        (struct parse *, FILE *);
static  void    get_if_stats    (struct parse *, FILE *);
static  void    do_if_reload    (struct parse *, FILE *);

/*
* Commands we understand.  Ntpdc imports this.
*/
struct xcmd opcmds[] = {
       { "listpeers",  peerlist,       { OPT|IP_VERSION, NO, NO, NO },
         { "-4|-6", "", "", "" },
         "display list of peers the server knows about [IP Version]" },
       { "peers",      peers,  { OPT|IP_VERSION, NO, NO, NO },
         { "-4|-6", "", "", "" },
         "display peer summary information [IP Version]" },
       { "dmpeers",    dmpeers,        { OPT|IP_VERSION, NO, NO, NO },
         { "-4|-6", "", "", "" },
         "display peer summary info the way Dave Mills likes it (IP Version)" },
       { "showpeer",   showpeer,       { NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD},
         { "peer_address", "peer2_addr", "peer3_addr", "peer4_addr" },
         "display detailed information for one or more peers" },
       { "pstats",     peerstats,      { NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD },
         { "peer_address", "peer2_addr", "peer3_addr", "peer4_addr" },
         "display statistical information for one or more peers" },
       { "loopinfo",   loopinfo,       { OPT|NTP_STR, NO, NO, NO },
         { "oneline|multiline", "", "", "" },
         "display loop filter information" },
       { "sysinfo",    sysinfo,        { NO, NO, NO, NO },
         { "", "", "", "" },
         "display local server information" },
       { "sysstats",   sysstats,       { NO, NO, NO, NO },
         { "", "", "", "" },
         "display local server statistics" },
       { "memstats",   memstats,       { NO, NO, NO, NO },
         { "", "", "", "" },
         "display peer memory usage statistics" },
       { "iostats",    iostats,        { NO, NO, NO, NO },
         { "", "", "", "" },
         "display I/O subsystem statistics" },
       { "timerstats", timerstats,     { NO, NO, NO, NO },
         { "", "", "", "" },
         "display event timer subsystem statistics" },
       { "addpeer",    addpeer,        { NTP_ADD, OPT|NTP_STR, OPT|NTP_STR, OPT|NTP_STR },
         { "addr", "keyid", "version", "minpoll#|prefer|burst|iburst|'minpoll N'|'maxpoll N'|'keyid N'|'version N' ..." },
         "configure a new peer association" },
       { "addserver",  addserver,      { NTP_ADD, OPT|NTP_STR, OPT|NTP_STR, OPT|NTP_STR },
         { "addr", "keyid", "version", "minpoll#|prefer|burst|iburst|'minpoll N'|'maxpoll N'|'keyid N'|'version N' ..." },
         "configure a new server" },
       { "addrefclock",addrefclock,    { NTP_ADD, OPT|NTP_UINT, OPT|NTP_STR, OPT|NTP_STR },
         { "addr", "mode", "minpoll|prefer", "minpoll|prefer" },
         "configure a new server" },
       { "broadcast",  broadcast,      { NTP_ADD, OPT|NTP_STR, OPT|NTP_STR, OPT|NTP_STR },
         { "addr", "keyid", "version", "minpoll" },
         "configure broadcasting time service" },
       { "unconfig",   unconfig,       { NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD },
         { "peer_address", "peer2_addr", "peer3_addr", "peer4_addr" },
         "unconfigure existing peer assocations" },
       { "enable",     set,            { NTP_STR, OPT|NTP_STR, OPT|NTP_STR, OPT|NTP_STR },
         { "auth|bclient|monitor|pll|kernel|stats", "...", "...", "..." },
         "set a system flag (auth, bclient, monitor, pll, kernel, stats)" },
       { "disable",    sys_clear,      { NTP_STR, OPT|NTP_STR, OPT|NTP_STR, OPT|NTP_STR },
         { "auth|bclient|monitor|pll|kernel|stats", "...", "...", "..." },
         "clear a system flag (auth, bclient, monitor, pll, kernel, stats)" },
       { "reslist",    reslist,        {OPT|IP_VERSION, NO, NO, NO },
         { "-4|-6", "", "", "" },
         "display the server's restrict list" },
       { "restrict",   new_restrict,   { NTP_ADD, NTP_ADD, NTP_STR, OPT|NTP_STR },
         { "address", "mask",
           "ntpport|ignore|noserve|notrust|noquery|nomodify|nopeer|version|kod",
           "..." },
         "create restrict entry/add flags to entry" },
       { "unrestrict", unrestrict,     { NTP_ADD, NTP_ADD, NTP_STR, OPT|NTP_STR },
         { "address", "mask",
           "ntpport|ignore|noserve|notrust|noquery|nomodify|nopeer|version|kod",
           "..." },
         "remove flags from a restrict entry" },
       { "delrestrict", delrestrict,   { NTP_ADD, NTP_ADD, OPT|NTP_STR, NO },
         { "address", "mask", "ntpport", "" },
         "delete a restrict entry" },
       { "monlist",    monlist,        { OPT|NTP_INT, NO, NO, NO },
         { "version", "", "", "" },
         "display data the server's monitor routines have collected" },
       { "reset",      reset,          { NTP_STR, OPT|NTP_STR, OPT|NTP_STR, OPT|NTP_STR },
         { "io|sys|mem|timer|auth|ctl|allpeers", "...", "...", "..." },
         "reset various subsystem statistics counters" },
       { "preset",     preset,         { NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD },
         { "peer_address", "peer2_addr", "peer3_addr", "peer4_addr" },
         "reset stat counters associated with particular peer(s)" },
       { "readkeys",   readkeys,       { NO, NO, NO, NO },
         { "", "", "", "" },
         "request a reread of the keys file and re-init of system keys" },
       { "trustedkey", trustkey,       { NTP_UINT, OPT|NTP_UINT, OPT|NTP_UINT, OPT|NTP_UINT },
         { "keyid", "keyid", "keyid", "keyid" },
         "add one or more key ID's to the trusted list" },
       { "untrustedkey", untrustkey,   { NTP_UINT, OPT|NTP_UINT, OPT|NTP_UINT, OPT|NTP_UINT },
         { "keyid", "keyid", "keyid", "keyid" },
         "remove one or more key ID's from the trusted list" },
       { "authinfo",   authinfo,       { NO, NO, NO, NO },
         { "", "", "", "" },
         "display the state of the authentication code" },
       { "traps",      traps,          { NO, NO, NO, NO },
         { "", "", "", "" },
         "display the traps set in the server" },
       { "addtrap",    addtrap,        { NTP_ADD, OPT|NTP_UINT, OPT|NTP_ADD, NO },
         { "address", "port", "interface", "" },
         "configure a trap in the server" },
       { "clrtrap",    clrtrap,        { NTP_ADD, OPT|NTP_UINT, OPT|NTP_ADD, NO },
         { "address", "port", "interface", "" },
         "remove a trap (configured or otherwise) from the server" },
       { "requestkey", requestkey,     { NTP_UINT, NO, NO, NO },
         { "keyid", "", "", "" },
         "change the keyid the server uses to authenticate requests" },
       { "controlkey", controlkey,     { NTP_UINT, NO, NO, NO },
         { "keyid", "", "", "" },
         "change the keyid the server uses to authenticate control messages" },
       { "ctlstats",   ctlstats,       { NO, NO, NO, NO },
         { "", "", "", "" },
         "display packet count statistics from the control module" },
       { "clockstat",  clockstat,      { NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD },
         { "address", "address", "address", "address" },
         "display clock status information" },
       { "fudge",      fudge,          { NTP_ADD, NTP_STR, NTP_STR, NO },
         { "address", "time1|time2|val1|val2|flags", "value", "" },
         "set/change one of a clock's fudge factors" },
       { "clkbug",     clkbug,         { NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD, OPT|NTP_ADD },
         { "address", "address", "address", "address" },
         "display clock debugging information" },
       { "kerninfo",   kerninfo,       { NO, NO, NO, NO },
         { "", "", "", "" },
         "display the kernel pll/pps variables" },
       { "ifstats",    get_if_stats,   { NO, NO, NO, NO },
         { "", "", "", "" },
         "list interface statistics" },
       { "ifreload",   do_if_reload,   { NO, NO, NO, NO },
         { "", "", "", "" },
         "reload interface configuration" },
       { 0,            0,              { NO, NO, NO, NO },
         { "", "", "", "" }, "" }
};

/*
* For quick string comparisons
*/
#define STREQ(a, b)     (*(a) == *(b) && strcmp((a), (b)) == 0)

/*
* SET_SS_LEN_IF_PRESENT - used by SET_ADDR, SET_ADDRS macros
*/

#ifdef ISC_PLATFORM_HAVESALEN
#define SET_SS_LEN_IF_PRESENT(psau)                             \
       do {                                                    \
               (psau)->sa.sa_len = SOCKLEN(psau);              \
       } while (0)
#else
#define SET_SS_LEN_IF_PRESENT(psau)     do { } while (0)
#endif

/*
* SET_ADDR - setup address for v4/v6 as needed
*/
#define SET_ADDR(address, v6flag, v4addr, v6addr)               \
do {                                                            \
       ZERO(address);                                          \
       if (v6flag) {                                           \
               AF(&(address)) = AF_INET6;                      \
               SOCK_ADDR6(&(address)) = (v6addr);              \
       } else {                                                \
               AF(&(address)) = AF_INET;                       \
               NSRCADR(&(address)) = (v4addr);                 \
       }                                                       \
       SET_SS_LEN_IF_PRESENT(&(address));                      \
} while (0)


/*
* SET_ADDRS - setup source and destination addresses for
* v4/v6 as needed
*/
#define SET_ADDRS(a1, a2, info, a1prefix, a2prefix)             \
do {                                                            \
       ZERO(a1);                                               \
       ZERO(a2);                                               \
       if ((info)->v6_flag) {                                  \
               AF(&(a1)) = AF_INET6;                           \
               AF(&(a2)) = AF_INET6;                           \
               SOCK_ADDR6(&(a1)) = (info)->a1prefix##6;        \
               SOCK_ADDR6(&(a2)) = (info)->a2prefix##6;        \
       } else {                                                \
               AF(&(a1)) = AF_INET;                            \
               AF(&(a2)) = AF_INET;                            \
               NSRCADR(&(a1)) = (info)->a1prefix;              \
               NSRCADR(&(a2)) = (info)->a2prefix;              \
       }                                                       \
       SET_SS_LEN_IF_PRESENT(&(a1));                           \
       SET_SS_LEN_IF_PRESENT(&(a2));                           \
} while (0)


/*
* checkitems - utility to print a message if no items were returned
*/
static int
checkitems(
       size_t items,
       FILE *fp
       )
{
       if (items == 0) {
               (void) fprintf(fp, "No data returned in response to query\n");
               return 0;
       }
       return 1;
}


/*
* checkitemsize - utility to print a message if the item size is wrong
*/
static int
checkitemsize(
       size_t itemsize,
       size_t expected
       )
{
       if (itemsize != expected) {
               (void) fprintf(stderr,
                              "***Incorrect item size returned by remote host (%lu should be %lu)\n",
                              (u_long)itemsize, (u_long)expected);
               return 0;
       }
       return 1;
}


/*
* check1item - check to make sure we have exactly one item
*/
static int
check1item(
       size_t items,
       FILE *fp
       )
{
       if (items == 0) {
               (void) fprintf(fp, "No data returned in response to query\n");
               return 0;
       }
       if (items > 1) {
               (void) fprintf(fp, "Expected one item in response, got %lu\n",
                              (u_long)items);
               return 0;
       }
       return 1;
}


/*
* peerlist - get a short list of peers
*/
/*ARGSUSED*/
static void
peerlist(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_peer_list *plist;
       sockaddr_u paddr;
       size_t items;
       size_t itemsize;
       int res;

again:
       res = doquery(impl_ver, REQ_PEER_LIST, 0, 0, 0, (char *)NULL, &items,
                     &itemsize, (void *)&plist, 0,
                     sizeof(struct info_peer_list));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
           return;

       if (!checkitems(items, fp))
           return;

       if (!checkitemsize(itemsize, sizeof(struct info_peer_list)) &&
           !checkitemsize(itemsize, v4sizeof(struct info_peer_list)))
           return;

       while (items > 0) {
               SET_ADDR(paddr, plist->v6_flag, plist->addr, plist->addr6);
               if ((pcmd->nargs == 0) ||
                   ((pcmd->argval->ival == 6) && (plist->v6_flag != 0)) ||
                   ((pcmd->argval->ival == 4) && (plist->v6_flag == 0)))
               {
                       const char *strhost = nntohost(&paddr);
                       const char *straddr = stoa(&paddr);
                       (void) fprintf(fp, "%-12s %s",
                               modetoa(plist->hmode), strhost);
                       if (strcmp(strhost,straddr))
                               (void) fprintf(fp, " (%s)\n", straddr);
                       else
                               (void) fprintf(fp, "\n");
               }
               plist++;
               items--;
       }
}


/*
* peers - show peer summary
*/
static void
peers(
       struct parse *pcmd,
       FILE *fp
       )
{
       dopeers(pcmd, fp, 0);
}

/*
* dmpeers - show peer summary, Dave Mills style
*/
static void
dmpeers(
       struct parse *pcmd,
       FILE *fp
       )
{
       dopeers(pcmd, fp, 1);
}


/*
* peers - show peer summary
*/
/*ARGSUSED*/
static void
dopeers(
       struct parse *pcmd,
       FILE *fp,
       int dmstyle
       )
{
       struct info_peer_summary *plist;
       sockaddr_u dstadr;
       sockaddr_u srcadr;
       size_t items;
       size_t itemsize;
       int ntp_poll;
       int res;
       int c;
       l_fp tempts;

again:
       res = doquery(impl_ver, REQ_PEER_LIST_SUM, 0, 0, 0, (char *)NULL,
                     &items, &itemsize, (void *)&plist, 0,
                     sizeof(struct info_peer_summary));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
           return;

       if (!checkitems(items, fp))
           return;

       if (!checkitemsize(itemsize, sizeof(struct info_peer_summary)) &&
           !checkitemsize(itemsize, v4sizeof(struct info_peer_summary)))
               return;

       (void) fprintf(fp,
                      "     remote           local      st poll reach  delay   offset    disp\n");
       (void) fprintf(fp,
                      "=======================================================================\n");
       while (items > 0) {
               if (!dmstyle) {
                       if (plist->flags & INFO_FLAG_SYSPEER)
                           c = '*';
                       else if (plist->hmode == MODE_ACTIVE)
                           c = '+';
                       else if (plist->hmode == MODE_PASSIVE)
                           c = '-';
                       else if (plist->hmode == MODE_CLIENT)
                           c = '=';
                       else if (plist->hmode == MODE_BROADCAST)
                           c = '^';
                       else if (plist->hmode == MODE_BCLIENT)
                           c = '~';
                       else
                           c = ' ';
               } else {
                       if (plist->flags & INFO_FLAG_SYSPEER)
                           c = '*';
                       else if (plist->flags & INFO_FLAG_SHORTLIST)
                           c = '+';
                       else if (plist->flags & INFO_FLAG_SEL_CANDIDATE)
                           c = '.';
                       else
                           c = ' ';
               }
               NTOHL_FP(&(plist->offset), &tempts);
               ntp_poll = 1<<max(min3(plist->ppoll, plist->hpoll, NTP_MAXPOLL),
                                 NTP_MINPOLL);
               SET_ADDRS(dstadr, srcadr, plist, dstadr, srcadr);
               if ((pcmd->nargs == 0) ||
                   ((pcmd->argval->ival == 6) && (plist->v6_flag != 0)) ||
                   ((pcmd->argval->ival == 4) && (plist->v6_flag == 0)))
                       (void) fprintf(fp,
                           "%c%-15.15s %-15.15s %2u %4d  %3o %7.7s %9.9s %7.7s\n",
                           c, nntohost(&srcadr), stoa(&dstadr),
                           plist->stratum, ntp_poll, plist->reach,
                           fptoa(NTOHS_FP(plist->delay), 5),
                           lfptoa(&tempts, 6),
                           ufptoa(NTOHS_FP(plist->dispersion), 5));
               plist++;
               items--;
       }
}

/* Convert a refid & stratum (in host order) to a string */
static char *
refid_string(
       u_int32 refid,
       int stratum
       )
{
       if (stratum <= 1) {
               static char junk[5];
               junk[4] = 0;
               memcpy(junk, &refid, 4);
               return junk;
       }

       return numtoa(refid);
}

static void
print_pflag(
       FILE *  fp,
       u_int32 flags
       )
{
       static const char none[] = "";
       static const char comma[] = ",";
       const char *dlim;

       if (0 == flags) {
               fprintf(fp, " none\n");
               return;
       }
       dlim = none;
       if (flags & INFO_FLAG_SYSPEER) {
               fprintf(fp, " system_peer");
               dlim = comma;
       }
       if (flags & INFO_FLAG_CONFIG) {
               fprintf(fp, "%s config", dlim);
               dlim = comma;
       }
       if (flags & INFO_FLAG_REFCLOCK) {
               fprintf(fp, "%s refclock", dlim);
               dlim = comma;
       }
       if (flags & INFO_FLAG_AUTHENABLE) {
               fprintf(fp, "%s auth", dlim);
               dlim = comma;
       }
       if (flags & INFO_FLAG_PREFER) {
               fprintf(fp, "%s prefer", dlim);
               dlim = comma;
       }
       if (flags & INFO_FLAG_IBURST) {
               fprintf(fp, "%s iburst", dlim);
               dlim = comma;
       }
       if (flags & INFO_FLAG_BURST) {
               fprintf(fp, "%s burst", dlim);
               dlim = comma;
       }
       if (flags & INFO_FLAG_SEL_CANDIDATE) {
               fprintf(fp, "%s candidate", dlim);
               dlim = comma;
       }
       if (flags & INFO_FLAG_SHORTLIST) {
               fprintf(fp, "%s shortlist", dlim);
               dlim = comma;
       }
       fprintf(fp, "\n");
}
/*
* printpeer - print detail information for a peer
*/
static void
printpeer(
       register struct info_peer *pp,
       FILE *fp
       )
{
       register int i;
       l_fp tempts;
       sockaddr_u srcadr, dstadr;

       SET_ADDRS(dstadr, srcadr, pp, dstadr, srcadr);

       (void) fprintf(fp, "remote %s, local %s\n",
                      stoa(&srcadr), stoa(&dstadr));
       (void) fprintf(fp, "hmode %s, pmode %s, stratum %d, precision %d\n",
                      modetoa(pp->hmode), modetoa(pp->pmode),
                      pp->stratum, pp->precision);

       (void) fprintf(fp,
                      "leap %c%c, refid [%s], rootdistance %s, rootdispersion %s\n",
                      pp->leap & 0x2 ? '1' : '0',
                      pp->leap & 0x1 ? '1' : '0',
                      refid_string(pp->refid,
                                   (pp->flags & INFO_FLAG_REFCLOCK ? 0 : pp->stratum)),
                      fptoa(NTOHS_FP(pp->rootdelay), 5),
                      ufptoa(NTOHS_FP(pp->rootdispersion), 5));

       (void) fprintf(fp,
                      "ppoll %d, hpoll %d, keyid %lu, version %d, association %u\n",
                      pp->ppoll, pp->hpoll, (u_long)pp->keyid, pp->version, ntohs(pp->associd));

       (void) fprintf(fp,
                      "reach %03o, unreach %d, flash 0x%04x, ",
                      pp->reach, pp->unreach, pp->flash2);

       (void) fprintf(fp, "boffset %s, ttl/mode %d\n",
                      fptoa(NTOHS_FP(pp->estbdelay), 5), pp->ttl);

       (void) fprintf(fp, "timer %lds, flags", (long)ntohl(pp->timer));
       print_pflag(fp, pp->flags);

       NTOHL_FP(&pp->reftime, &tempts);
       (void) fprintf(fp, "reference time:      %s\n",
                      prettydate(&tempts));
       NTOHL_FP(&pp->org, &tempts);
       (void) fprintf(fp, "originate timestamp: %s\n",
                      prettydate(&tempts));
       NTOHL_FP(&pp->rec, &tempts);
       (void) fprintf(fp, "receive timestamp:   %s\n",
                      prettydate(&tempts));
       NTOHL_FP(&pp->xmt, &tempts);
       (void) fprintf(fp, "transmit timestamp:  %s\n",
                      prettydate(&tempts));

       (void) fprintf(fp, "filter delay: ");
       for (i = 0; i < NTP_SHIFT; i++) {
               (void) fprintf(fp, " %-8.8s",
                              fptoa(NTOHS_FP(pp->filtdelay[i]), 5));
               if (i == (NTP_SHIFT>>1)-1)
                   (void) fprintf(fp, "\n              ");
       }
       (void) fprintf(fp, "\n");

       (void) fprintf(fp, "filter offset:");
       for (i = 0; i < NTP_SHIFT; i++) {
               NTOHL_FP(&pp->filtoffset[i], &tempts);
               (void) fprintf(fp, " %-8.8s", lfptoa(&tempts, 6));
               if (i == (NTP_SHIFT>>1)-1)
                   (void) fprintf(fp, "\n              ");
       }
       (void) fprintf(fp, "\n");

       (void) fprintf(fp, "filter order: ");
       for (i = 0; i < NTP_SHIFT; i++) {
               (void) fprintf(fp, " %-8d", pp->order[i]);
               if (i == (NTP_SHIFT>>1)-1)
                   (void) fprintf(fp, "\n              ");
       }
       (void) fprintf(fp, "\n");


       NTOHL_FP(&pp->offset, &tempts);
       (void) fprintf(fp,
                      "offset %s, delay %s, error bound %s, filter error %s\n",
                      lfptoa(&tempts, 6), fptoa(NTOHS_FP(pp->delay), 5),
                      ufptoa(NTOHS_FP(pp->dispersion), 5),
                      ufptoa(NTOHS_FP(pp->selectdisp), 5));
}


/*
* showpeer - show detailed information for a peer
*/
static void
showpeer(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_peer *pp;
       /* 4 is the maximum number of peers which will fit in a packet */
       struct info_peer_list *pl, plist[min(MAXARGS, 4)];
       size_t qitemlim;
       size_t qitems;
       size_t items;
       size_t itemsize;
       int res;
       int sendsize;

again:
       if (impl_ver == IMPL_XNTPD)
               sendsize = sizeof(struct info_peer_list);
       else
               sendsize = v4sizeof(struct info_peer_list);

       qitemlim = min(pcmd->nargs, COUNTOF(plist));
       for (qitems = 0, pl = plist; qitems < qitemlim; qitems++) {
               if (IS_IPV4(&pcmd->argval[qitems].netnum)) {
                       pl->addr = NSRCADR(&pcmd->argval[qitems].netnum);
                       if (impl_ver == IMPL_XNTPD)
                               pl->v6_flag = 0;
               } else {
                       if (impl_ver == IMPL_XNTPD_OLD) {
                               fprintf(stderr,
                                   "***Server doesn't understand IPv6 addresses\n");
                               return;
                       }
                       pl->addr6 = SOCK_ADDR6(&pcmd->argval[qitems].netnum);
                       pl->v6_flag = 1;
               }
               pl->port = (u_short)s_port;
               pl->hmode = pl->flags = 0;
               pl = (void *)((char *)pl + sendsize);
       }

       res = doquery(impl_ver, REQ_PEER_INFO, 0, qitems,
                     sendsize, (char *)plist, &items,
                     &itemsize, (void *)&pp, 0, sizeof(struct info_peer));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!checkitems(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(struct info_peer)) &&
           !checkitemsize(itemsize, v4sizeof(struct info_peer)))
               return;

       while (items-- > 0) {
               printpeer(pp, fp);
               if (items > 0)
                       fprintf(fp, "\n");
               pp++;
       }
}


/*
* peerstats - return statistics for a peer
*/
static void
peerstats(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_peer_stats *pp;
       /* 4 is the maximum number of peers which will fit in a packet */
       struct info_peer_list *pl, plist[min(MAXARGS, 4)];
       sockaddr_u src, dst;
       size_t qitemlim;
       size_t qitems;
       size_t items;
       size_t itemsize;
       int res;
       size_t sendsize;

again:
       if (impl_ver == IMPL_XNTPD)
               sendsize = sizeof(struct info_peer_list);
       else
               sendsize = v4sizeof(struct info_peer_list);

       ZERO(plist);

       qitemlim = min(pcmd->nargs, COUNTOF(plist));
       for (qitems = 0, pl = plist; qitems < qitemlim; qitems++) {
               if (IS_IPV4(&pcmd->argval[qitems].netnum)) {
                       pl->addr = NSRCADR(&pcmd->argval[qitems].netnum);
                       if (impl_ver == IMPL_XNTPD)
                               pl->v6_flag = 0;
               } else {
                       if (impl_ver == IMPL_XNTPD_OLD) {
                               fprintf(stderr,
                                   "***Server doesn't understand IPv6 addresses\n");
                               return;
                       }
                       pl->addr6 = SOCK_ADDR6(&pcmd->argval[qitems].netnum);
                       pl->v6_flag = 1;
               }
               pl->port = (u_short)s_port;
               pl->hmode = plist[qitems].flags = 0;
               pl = (void *)((char *)pl + sendsize);
       }

       res = doquery(impl_ver, REQ_PEER_STATS, 0, qitems,
                     sendsize, (char *)plist, &items,
                     &itemsize, (void *)&pp, 0,
                     sizeof(struct info_peer_stats));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!checkitems(items, fp))
           return;

       if (!checkitemsize(itemsize, sizeof(struct info_peer_stats)) &&
           !checkitemsize(itemsize, v4sizeof(struct info_peer_stats)))
           return;

       while (items-- > 0) {
               ZERO_SOCK(&dst);
               ZERO_SOCK(&src);
               if (pp->v6_flag != 0) {
                       AF(&dst) = AF_INET6;
                       AF(&src) = AF_INET6;
                       SOCK_ADDR6(&dst) = pp->dstadr6;
                       SOCK_ADDR6(&src) = pp->srcadr6;
               } else {
                       AF(&dst) = AF_INET;
                       AF(&src) = AF_INET;
                       NSRCADR(&dst) = pp->dstadr;
                       NSRCADR(&src) = pp->srcadr;
               }
#ifdef ISC_PLATFORM_HAVESALEN
               src.sa.sa_len = SOCKLEN(&src);
               dst.sa.sa_len = SOCKLEN(&dst);
#endif
               fprintf(fp, "remote host:          %s\n",
                       nntohost(&src));
               fprintf(fp, "local interface:      %s\n",
                       stoa(&dst));
               fprintf(fp, "time last received:   %lus\n",
                       (u_long)ntohl(pp->timereceived));
               fprintf(fp, "time until next send: %lus\n",
                       (u_long)ntohl(pp->timetosend));
               fprintf(fp, "reachability change:  %lus\n",
                       (u_long)ntohl(pp->timereachable));
               fprintf(fp, "packets sent:         %lu\n",
                       (u_long)ntohl(pp->sent));
               fprintf(fp, "packets received:     %lu\n",
                       (u_long)ntohl(pp->processed));
               fprintf(fp, "bad authentication:   %lu\n",
                       (u_long)ntohl(pp->badauth));
               fprintf(fp, "bogus origin:         %lu\n",
                       (u_long)ntohl(pp->bogusorg));
               fprintf(fp, "duplicate:            %lu\n",
                       (u_long)ntohl(pp->oldpkt));
               fprintf(fp, "bad dispersion:       %lu\n",
                       (u_long)ntohl(pp->seldisp));
               fprintf(fp, "bad reference time:   %lu\n",
                       (u_long)ntohl(pp->selbroken));
               fprintf(fp, "candidate order:      %u\n",
                       pp->candidate);
               if (items > 0)
                       fprintf(fp, "\n");
               fprintf(fp, "flags:     ");
               print_pflag(fp, ntohs(pp->flags));
               pp++;
       }
}


/*
* loopinfo - show loop filter information
*/
static void
loopinfo(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_loop *il;
       size_t items;
       size_t itemsize;
       int oneline = 0;
       int res;
       l_fp tempts;

       if (pcmd->nargs > 0) {
               if (STREQ(pcmd->argval[0].string, "oneline"))
                   oneline = 1;
               else if (STREQ(pcmd->argval[0].string, "multiline"))
                   oneline = 0;
               else {
                       (void) fprintf(stderr, "How many lines?\n");
                       return;
               }
       }

again:
       res = doquery(impl_ver, REQ_LOOP_INFO, 0, 0, 0, (char *)NULL,
                     &items, &itemsize, (void *)&il, 0,
                     sizeof(struct info_loop));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
           return;

       if (!check1item(items, fp))
           return;

       if (!checkitemsize(itemsize, sizeof(struct info_loop)))
           return;

       if (oneline) {
               l_fp temp2ts;

               NTOHL_FP(&il->last_offset, &tempts);
               NTOHL_FP(&il->drift_comp, &temp2ts);

               (void) fprintf(fp,
                              "offset %s, frequency %s, time_const %ld, watchdog %ld\n",
                              lfptoa(&tempts, 6),
                              lfptoa(&temp2ts, 3),
                              (long)(int32)ntohl((u_long)il->compliance),
                              (u_long)ntohl((u_long)il->watchdog_timer));
       } else {
               NTOHL_FP(&il->last_offset, &tempts);
               (void) fprintf(fp, "offset:               %s s\n",
                              lfptoa(&tempts, 6));
               NTOHL_FP(&il->drift_comp, &tempts);
               (void) fprintf(fp, "frequency:            %s ppm\n",
                              lfptoa(&tempts, 3));
               (void) fprintf(fp, "poll adjust:          %ld\n",
                              (long)(int32)ntohl(il->compliance));
               (void) fprintf(fp, "watchdog timer:       %ld s\n",
                              (u_long)ntohl(il->watchdog_timer));
       }
}


/*
* sysinfo - show current system state
*/
/*ARGSUSED*/
static void
sysinfo(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_sys *is;
       sockaddr_u peeraddr;
       size_t items;
       size_t itemsize;
       int res;
       l_fp tempts;

again:
       res = doquery(impl_ver, REQ_SYS_INFO, 0, 0, 0, (char *)NULL,
                     &items, &itemsize, (void *)&is, 0,
                     sizeof(struct info_sys));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
           return;

       if (!check1item(items, fp))
           return;

       if (!checkitemsize(itemsize, sizeof(struct info_sys)) &&
           !checkitemsize(itemsize, v4sizeof(struct info_sys)))
           return;

       SET_ADDR(peeraddr, is->v6_flag, is->peer, is->peer6);

       (void) fprintf(fp, "system peer:          %s\n", nntohost(&peeraddr));
       (void) fprintf(fp, "system peer mode:     %s\n", modetoa(is->peer_mode));
       (void) fprintf(fp, "leap indicator:       %c%c\n",
                      is->leap & 0x2 ? '1' : '0',
                      is->leap & 0x1 ? '1' : '0');
       (void) fprintf(fp, "stratum:              %d\n", (int)is->stratum);
       (void) fprintf(fp, "precision:            %d\n", (int)is->precision);
       (void) fprintf(fp, "root distance:        %s s\n",
                      fptoa(NTOHS_FP(is->rootdelay), 5));
       (void) fprintf(fp, "root dispersion:      %s s\n",
                      ufptoa(NTOHS_FP(is->rootdispersion), 5));
       (void) fprintf(fp, "reference ID:         [%s]\n",
                      refid_string(is->refid, is->stratum));
       NTOHL_FP(&is->reftime, &tempts);
       (void) fprintf(fp, "reference time:       %s\n", prettydate(&tempts));

       (void) fprintf(fp, "system flags:         ");
       if ((is->flags & (INFO_FLAG_BCLIENT | INFO_FLAG_AUTHENABLE |
           INFO_FLAG_NTP | INFO_FLAG_KERNEL| INFO_FLAG_CAL |
           INFO_FLAG_PPS_SYNC | INFO_FLAG_MONITOR | INFO_FLAG_FILEGEN)) == 0) {
               (void) fprintf(fp, "none\n");
       } else {
               if (is->flags & INFO_FLAG_BCLIENT)
                   (void) fprintf(fp, "bclient ");
               if (is->flags & INFO_FLAG_AUTHENTICATE)
                   (void) fprintf(fp, "auth ");
               if (is->flags & INFO_FLAG_MONITOR)
                   (void) fprintf(fp, "monitor ");
               if (is->flags & INFO_FLAG_NTP)
                   (void) fprintf(fp, "ntp ");
               if (is->flags & INFO_FLAG_KERNEL)
                   (void) fprintf(fp, "kernel ");
               if (is->flags & INFO_FLAG_FILEGEN)
                   (void) fprintf(fp, "stats ");
               if (is->flags & INFO_FLAG_CAL)
                   (void) fprintf(fp, "calibrate ");
               if (is->flags & INFO_FLAG_PPS_SYNC)
                   (void) fprintf(fp, "pps ");
               (void) fprintf(fp, "\n");
       }
       (void) fprintf(fp, "jitter:               %s s\n",
                      fptoa(ntohl(is->frequency), 6));
       (void) fprintf(fp, "stability:            %s ppm\n",
                      ufptoa(ntohl(is->stability), 3));
       (void) fprintf(fp, "broadcastdelay:       %s s\n",
                      fptoa(NTOHS_FP(is->bdelay), 6));
       NTOHL_FP(&is->authdelay, &tempts);
       (void) fprintf(fp, "authdelay:            %s s\n", lfptoa(&tempts, 6));
}


/*
* sysstats - print system statistics
*/
/*ARGSUSED*/
static void
sysstats(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_sys_stats *ss;
       size_t items;
       size_t itemsize;
       int res;

again:
       res = doquery(impl_ver, REQ_SYS_STATS, 0, 0, 0, (char *)NULL,
                     &items, &itemsize, (void *)&ss, 0,
                     sizeof(struct info_sys_stats));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
           return;

       if (!check1item(items, fp))
           return;

       if (itemsize != sizeof(struct info_sys_stats) &&
           itemsize != sizeof(struct old_info_sys_stats)) {
               /* issue warning according to new structure size */
               checkitemsize(itemsize, sizeof(struct info_sys_stats));
               return;
       }
       fprintf(fp, "time since restart:     %lu\n",
               (u_long)ntohl(ss->timeup));
       fprintf(fp, "time since reset:       %lu\n",
               (u_long)ntohl(ss->timereset));
       fprintf(fp, "packets received:       %lu\n",
               (u_long)ntohl(ss->received));
       fprintf(fp, "packets processed:      %lu\n",
               (u_long)ntohl(ss->processed));
       fprintf(fp, "current version:        %lu\n",
               (u_long)ntohl(ss->newversionpkt));
       fprintf(fp, "previous version:       %lu\n",
               (u_long)ntohl(ss->oldversionpkt));
       fprintf(fp, "declined:               %lu\n",
               (u_long)ntohl(ss->unknownversion));
       fprintf(fp, "access denied:          %lu\n",
               (u_long)ntohl(ss->denied));
       fprintf(fp, "bad length or format:   %lu\n",
               (u_long)ntohl(ss->badlength));
       fprintf(fp, "bad authentication:     %lu\n",
               (u_long)ntohl(ss->badauth));
       if (itemsize != sizeof(struct info_sys_stats))
           return;

       fprintf(fp, "rate exceeded:          %lu\n",
              (u_long)ntohl(ss->limitrejected));
}



/*
* iostats - print I/O statistics
*/
/*ARGSUSED*/
static void
iostats(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_io_stats *io;
       size_t items;
       size_t itemsize;
       int res;

again:
       res = doquery(impl_ver, REQ_IO_STATS, 0, 0, 0, NULL, &items,
                     &itemsize, (void *)&io, 0, sizeof(*io));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!check1item(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(*io)))
               return;

       fprintf(fp, "time since reset:     %lu\n",
               (u_long)ntohl(io->timereset));
       fprintf(fp, "receive buffers:      %u\n",
               (u_int)ntohs(io->totalrecvbufs));
       fprintf(fp, "free receive buffers: %u\n",
               (u_int)ntohs(io->freerecvbufs));
       fprintf(fp, "used receive buffers: %u\n",
               (u_int)ntohs(io->fullrecvbufs));
       fprintf(fp, "low water refills:    %u\n",
               (u_int)ntohs(io->lowwater));
       fprintf(fp, "dropped packets:      %lu\n",
               (u_long)ntohl(io->dropped));
       fprintf(fp, "ignored packets:      %lu\n",
               (u_long)ntohl(io->ignored));
       fprintf(fp, "received packets:     %lu\n",
               (u_long)ntohl(io->received));
       fprintf(fp, "packets sent:         %lu\n",
               (u_long)ntohl(io->sent));
       fprintf(fp, "packets not sent:     %lu\n",
               (u_long)ntohl(io->notsent));
       fprintf(fp, "interrupts handled:   %lu\n",
               (u_long)ntohl(io->interrupts));
       fprintf(fp, "received by int:      %lu\n",
               (u_long)ntohl(io->int_received));
}


/*
* memstats - print peer memory statistics
*/
/*ARGSUSED*/
static void
memstats(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_mem_stats *mem;
       int i;
       size_t items;
       size_t itemsize;
       int res;

again:
       res = doquery(impl_ver, REQ_MEM_STATS, 0, 0, 0, NULL, &items,
                     &itemsize, (void *)&mem, 0, sizeof(*mem));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!check1item(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(*mem)))
               return;

       fprintf(fp, "time since reset:     %lu\n",
               (u_long)ntohl(mem->timereset));
       fprintf(fp, "total peer memory:    %u\n",
               (u_int)ntohs(mem->totalpeermem));
       fprintf(fp, "free peer memory:     %u\n",
               (u_int)ntohs(mem->freepeermem));
       fprintf(fp, "calls to findpeer:    %lu\n",
               (u_long)ntohl(mem->findpeer_calls));
       fprintf(fp, "new peer allocations: %lu\n",
               (u_long)ntohl(mem->allocations));
       fprintf(fp, "peer demobilizations: %lu\n",
               (u_long)ntohl(mem->demobilizations));

       fprintf(fp, "hash table counts:   ");
       for (i = 0; i < NTP_HASH_SIZE; i++) {
               fprintf(fp, "%4d", (int)mem->hashcount[i]);
               if ((i % 8) == 7 && i != (NTP_HASH_SIZE-1))
                       fprintf(fp, "\n                     ");
       }
       fprintf(fp, "\n");
}



/*
* timerstats - print timer statistics
*/
/*ARGSUSED*/
static void
timerstats(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_timer_stats *tim;
       size_t items;
       size_t itemsize;
       int res;

again:
       res = doquery(impl_ver, REQ_TIMER_STATS, 0, 0, 0, NULL, &items,
                     &itemsize, (void *)&tim, 0, sizeof(*tim));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!check1item(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(*tim)))
               return;

       fprintf(fp, "time since reset:  %lu\n",
               (u_long)ntohl(tim->timereset));
       fprintf(fp, "alarms handled:    %lu\n",
               (u_long)ntohl(tim->alarms));
       fprintf(fp, "alarm overruns:    %lu\n",
               (u_long)ntohl(tim->overflows));
       fprintf(fp, "calls to transmit: %lu\n",
               (u_long)ntohl(tim->xmtcalls));
}


/*
* addpeer - configure an active mode association
*/
static void
addpeer(
       struct parse *pcmd,
       FILE *fp
       )
{
       doconfig(pcmd, fp, MODE_ACTIVE, 0);
}


/*
* addserver - configure a client mode association
*/
static void
addserver(
       struct parse *pcmd,
       FILE *fp
       )
{
       doconfig(pcmd, fp, MODE_CLIENT, 0);
}

/*
* addrefclock - configure a reference clock association
*/
static void
addrefclock(
       struct parse *pcmd,
       FILE *fp
       )
{
       doconfig(pcmd, fp, MODE_CLIENT, 1);
}

/*
* broadcast - configure a broadcast mode association
*/
static void
broadcast(
       struct parse *pcmd,
       FILE *fp
       )
{
       doconfig(pcmd, fp, MODE_BROADCAST, 0);
}


/*
* config - configure a new peer association
*/
static void
doconfig(
       struct parse *pcmd,
       FILE *fp,
       int mode,
       int refc
       )
{
       struct conf_peer cpeer;
       size_t items;
       size_t itemsize;
       const char *dummy;
       u_long keyid;
       u_int version;
       u_char minpoll;
       u_char maxpoll;
       u_int flags;
       u_char cmode;
       int res;
       int sendsize;
       int numtyp;
       long val;

again:
       keyid = 0;
       version = 3;
       flags = 0;
       res = FALSE;
       cmode = 0;
       minpoll = NTP_MINDPOLL;
       maxpoll = NTP_MAXDPOLL;
       numtyp = 1;
       if (refc)
               numtyp = 5;

       if (impl_ver == IMPL_XNTPD)
               sendsize = sizeof(struct conf_peer);
       else
               sendsize = v4sizeof(struct conf_peer);

       items = 1;
       while (pcmd->nargs > (size_t)items) {
               if (STREQ(pcmd->argval[items].string, "prefer"))
                       flags |= CONF_FLAG_PREFER;
               else if (STREQ(pcmd->argval[items].string, "burst"))
                       flags |= CONF_FLAG_BURST;
               else if (STREQ(pcmd->argval[items].string, "iburst"))
                       flags |= CONF_FLAG_IBURST;
               else if (!refc && STREQ(pcmd->argval[items].string, "keyid"))
                       numtyp = 1;
               else if (!refc && STREQ(pcmd->argval[items].string, "version"))
                       numtyp = 2;
               else if (STREQ(pcmd->argval[items].string, "minpoll"))
                       numtyp = 3;
               else if (STREQ(pcmd->argval[items].string, "maxpoll"))
                       numtyp = 4;
               else {
                       if (!atoint(pcmd->argval[items].string, &val))
                               numtyp = 0;
                       switch (numtyp) {
                       case 1:
                               keyid = val;
                               numtyp = 2;
                               break;

                       case 2:
                               version = (u_int)val;
                               numtyp = 0;
                               break;

                       case 3:
                               minpoll = (u_char)val;
                               numtyp = 0;
                               break;

                       case 4:
                               maxpoll = (u_char)val;
                               numtyp = 0;
                               break;

                       case 5:
                               cmode = (u_char)val;
                               numtyp = 0;
                               break;

                       default:
                               fprintf(fp, "*** '%s' not understood\n",
                                       pcmd->argval[items].string);
                               res = TRUE;
                               numtyp = 0;
                       }
                       if (val < 0) {
                               fprintf(stderr,
                                       "*** Value '%s' should be unsigned\n",
                                       pcmd->argval[items].string);
                               res = TRUE;
                       }
               }
               items++;
       }
       if (keyid > 0)
               flags |= CONF_FLAG_AUTHENABLE;
       if (version > NTP_VERSION || version < NTP_OLDVERSION) {
               fprintf(fp, "***invalid version number: %u\n",
                       version);
               res = TRUE;
       }
       if (minpoll < NTP_MINPOLL || minpoll > NTP_MAXPOLL ||
           maxpoll < NTP_MINPOLL || maxpoll > NTP_MAXPOLL ||
           minpoll > maxpoll) {
               fprintf(fp, "***min/max-poll must be within %d..%d\n",
                       NTP_MINPOLL, NTP_MAXPOLL);
               res = TRUE;
       }

       if (res)
               return;

       ZERO(cpeer);

       if (IS_IPV4(&pcmd->argval[0].netnum)) {
               cpeer.peeraddr = NSRCADR(&pcmd->argval[0].netnum);
               if (impl_ver == IMPL_XNTPD)
                       cpeer.v6_flag = 0;
       } else {
               if (impl_ver == IMPL_XNTPD_OLD) {
                       fprintf(stderr,
                           "***Server doesn't understand IPv6 addresses\n");
                       return;
               }
               cpeer.peeraddr6 = SOCK_ADDR6(&pcmd->argval[0].netnum);
               cpeer.v6_flag = 1;
       }
       cpeer.hmode = (u_char) mode;
       cpeer.keyid = keyid;
       cpeer.version = (u_char) version;
       cpeer.minpoll = minpoll;
       cpeer.maxpoll = maxpoll;
       cpeer.flags = (u_char)flags;
       cpeer.ttl = cmode;

       res = doquery(impl_ver, REQ_CONFIG, 1, 1,
                     sendsize, (char *)&cpeer, &items,
                     &itemsize, &dummy, 0, sizeof(struct conf_peer));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == INFO_ERR_FMT) {
               (void) fprintf(fp,
                   "***Retrying command with old conf_peer size\n");
               res = doquery(impl_ver, REQ_CONFIG, 1, 1,
                             sizeof(struct old_conf_peer), (char *)&cpeer,
                             &items, &itemsize, &dummy, 0,
                             sizeof(struct conf_peer));
       }
       if (res == 0)
           (void) fprintf(fp, "done!\n");
       return;
}


/*
* unconfig - unconfigure some associations
*/
static void
unconfig(
       struct parse *pcmd,
       FILE *fp
       )
{
       /* 8 is the maximum number of peers which will fit in a packet */
       struct conf_unpeer *pl, plist[min(MAXARGS, 8)];
       size_t qitemlim;
       size_t qitems;
       size_t items;
       size_t itemsize;
       const char *dummy;
       int res;
       size_t sendsize;

again:
       if (impl_ver == IMPL_XNTPD)
               sendsize = sizeof(struct conf_unpeer);
       else
               sendsize = v4sizeof(struct conf_unpeer);

       qitemlim = min(pcmd->nargs, COUNTOF(plist));
       for (qitems = 0, pl = plist; qitems < qitemlim; qitems++) {
               if (IS_IPV4(&pcmd->argval[0].netnum)) {
                       pl->peeraddr = NSRCADR(&pcmd->argval[qitems].netnum);
                       if (impl_ver == IMPL_XNTPD)
                               pl->v6_flag = 0;
               } else {
                       if (impl_ver == IMPL_XNTPD_OLD) {
                               fprintf(stderr,
                                   "***Server doesn't understand IPv6 addresses\n");
                               return;
                       }
                       pl->peeraddr6 =
                           SOCK_ADDR6(&pcmd->argval[qitems].netnum);
                       pl->v6_flag = 1;
               }
               pl = (void *)((char *)pl + sendsize);
       }

       res = doquery(impl_ver, REQ_UNCONFIG, 1, qitems,
                     sendsize, (char *)plist, &items,
                     &itemsize, &dummy, 0, sizeof(struct conf_unpeer));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
}


/*
* set - set some system flags
*/
static void
set(
       struct parse *pcmd,
       FILE *fp
       )
{
       doset(pcmd, fp, REQ_SET_SYS_FLAG);
}


/*
* clear - clear some system flags
*/
static void
sys_clear(
       struct parse *pcmd,
       FILE *fp
       )
{
       doset(pcmd, fp, REQ_CLR_SYS_FLAG);
}


/*
* doset - set/clear system flags
*/
static void
doset(
       struct parse *pcmd,
       FILE *fp,
       int req
       )
{
       struct conf_sys_flags sys;
       size_t items;
       size_t itemsize;
       const char *dummy;
       int res;

       sys.flags = 0;
       res = 0;
       for (items = 0; (size_t)items < pcmd->nargs; items++) {
               if (STREQ(pcmd->argval[items].string, "auth"))
                       sys.flags |= SYS_FLAG_AUTH;
               else if (STREQ(pcmd->argval[items].string, "bclient"))
                       sys.flags |= SYS_FLAG_BCLIENT;
               else if (STREQ(pcmd->argval[items].string, "calibrate"))
                       sys.flags |= SYS_FLAG_CAL;
               else if (STREQ(pcmd->argval[items].string, "kernel"))
                       sys.flags |= SYS_FLAG_KERNEL;
               else if (STREQ(pcmd->argval[items].string, "monitor"))
                       sys.flags |= SYS_FLAG_MONITOR;
               else if (STREQ(pcmd->argval[items].string, "ntp"))
                       sys.flags |= SYS_FLAG_NTP;
               else if (STREQ(pcmd->argval[items].string, "pps"))
                       sys.flags |= SYS_FLAG_PPS;
               else if (STREQ(pcmd->argval[items].string, "stats"))
                       sys.flags |= SYS_FLAG_FILEGEN;
               else {
                       (void) fprintf(fp, "Unknown flag %s\n",
                           pcmd->argval[items].string);
                       res = 1;
               }
       }

       sys.flags = htonl(sys.flags);
       if (res || sys.flags == 0)
           return;

again:
       res = doquery(impl_ver, req, 1, 1,
                     sizeof(struct conf_sys_flags), (char *)&sys, &items,
                     &itemsize, &dummy, 0, sizeof(struct conf_sys_flags));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
}


/*
* data for printing/interrpreting the restrict flags
*/
struct resflags {
 const char *str;
       int bit;
};

/* XXX: HMS: we apparently don't report set bits we do not recognize. */

static struct resflags resflagsV2[] = {
       { "ignore",     0x001 },
       { "noserve",    0x002 },
       { "notrust",    0x004 },
       { "noquery",    0x008 },
       { "nomodify",   0x010 },
       { "nopeer",     0x020 },
       { "notrap",     0x040 },
       { "lptrap",     0x080 },
       { "limited",    0x100 },
       { "",           0 }
};

static struct resflags resflagsV3[] = {
       { "ignore",     RES_IGNORE },
       { "noserve",    RES_DONTSERVE },
       { "notrust",    RES_DONTTRUST },
       { "noquery",    RES_NOQUERY },
       { "nomodify",   RES_NOMODIFY },
       { "nopeer",     RES_NOPEER },
       { "notrap",     RES_NOTRAP },
       { "lptrap",     RES_LPTRAP },
       { "limited",    RES_LIMITED },
       { "version",    RES_VERSION },
       { "kod",        RES_KOD },
       { "flake",      RES_FLAKE },

       { "",           0 }
};

static struct resflags resmflags[] = {
       { "ntpport",    RESM_NTPONLY },
       { "interface",  RESM_INTERFACE },
       { "source",     RESM_SOURCE },
       { "",           0 }
};


/*
* reslist - obtain and print the server's restrict list
*/
/*ARGSUSED*/
static void
reslist(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_restrict *rl;
       sockaddr_u resaddr;
       sockaddr_u maskaddr;
       size_t items;
       size_t itemsize;
       int res;
       int skip;
       const char *addr;
       const char *mask;
       struct resflags *rf;
       u_int32 count;
       u_short rflags;
       u_short mflags;
       char flagstr[300];
       static const char *comma = ", ";

again:
       res = doquery(impl_ver, REQ_GET_RESTRICT, 0, 0, 0, (char *)NULL,
                     &items, &itemsize, (void *)&rl, 0,
                     sizeof(struct info_restrict));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!checkitems(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(struct info_restrict)) &&
           !checkitemsize(itemsize, v4sizeof(struct info_restrict)))
               return;

       fprintf(fp,
               "   address          mask            count        flags\n");
       fprintf(fp,
               "=====================================================================\n");

       while (items > 0) {
               SET_ADDRS(resaddr, maskaddr, rl, addr, mask);
               if (rl->v6_flag != 0) {
                       addr = nntohost(&resaddr);
               } else {
                       if (rl->mask == (u_int32)0xffffffff)
                               addr = nntohost(&resaddr);
                       else
                               addr = stoa(&resaddr);
               }
               mask = stoa(&maskaddr);
               skip = 1;
               if ((pcmd->nargs == 0) ||
                   ((pcmd->argval->ival == 6) && (rl->v6_flag != 0)) ||
                   ((pcmd->argval->ival == 4) && (rl->v6_flag == 0)))
                       skip = 0;
               count = ntohl(rl->count);
               rflags = ntohs(rl->rflags);
               mflags = ntohs(rl->mflags);
               flagstr[0] = '\0';

               res = 1;
               rf = &resmflags[0];
               while (rf->bit != 0) {
                       if (mflags & rf->bit) {
                               if (!res)
                                       strlcat(flagstr, comma,
                                               sizeof(flagstr));
                               res = 0;
                               strlcat(flagstr, rf->str,
                                       sizeof(flagstr));
                       }
                       rf++;
               }

               rf = (impl_ver == IMPL_XNTPD_OLD)
                        ? &resflagsV2[0]
                        : &resflagsV3[0];

               while (rf->bit != 0) {
                       if (rflags & rf->bit) {
                               if (!res)
                                       strlcat(flagstr, comma,
                                               sizeof(flagstr));
                               res = 0;
                               strlcat(flagstr, rf->str,
                                       sizeof(flagstr));
                       }
                       rf++;
               }

               if (flagstr[0] == '\0')
                       strlcpy(flagstr, "none", sizeof(flagstr));

               if (!skip)
                       fprintf(fp, "%-15.15s %-15.15s %9lu  %s\n",
                               addr, mask, (u_long)count, flagstr);
               rl++;
               items--;
       }
}



/*
* new_restrict - create/add a set of restrictions
*/
static void
new_restrict(
       struct parse *pcmd,
       FILE *fp
       )
{
       do_restrict(pcmd, fp, REQ_RESADDFLAGS);
}


/*
* unrestrict - remove restriction flags from existing entry
*/
static void
unrestrict(
       struct parse *pcmd,
       FILE *fp
       )
{
       do_restrict(pcmd, fp, REQ_RESSUBFLAGS);
}


/*
* delrestrict - delete an existing restriction
*/
static void
delrestrict(
       struct parse *pcmd,
       FILE *fp
       )
{
       do_restrict(pcmd, fp, REQ_UNRESTRICT);
}


/*
* do_restrict - decode commandline restrictions and make the request
*/
static void
do_restrict(
       struct parse *pcmd,
       FILE *fp,
       int req_code
       )
{
       struct conf_restrict cres;
       size_t items;
       size_t itemsize;
       const char *dummy;
       u_int32 num;
       u_long bit;
       int i;
       size_t res;
       int err;
       int sendsize;

       /* Initialize cres */
       cres.addr = 0;
       cres.mask = 0;
       cres.flags = 0;
       cres.mflags = 0;
       cres.v6_flag = 0;

again:
       if (impl_ver == IMPL_XNTPD)
               sendsize = sizeof(struct conf_restrict);
       else
               sendsize = v4sizeof(struct conf_restrict);

       if (IS_IPV4(&pcmd->argval[0].netnum)) {
               cres.addr = NSRCADR(&pcmd->argval[0].netnum);
               cres.mask = NSRCADR(&pcmd->argval[1].netnum);
               if (impl_ver == IMPL_XNTPD)
                       cres.v6_flag = 0;
       } else {
               if (impl_ver == IMPL_XNTPD_OLD) {
                       fprintf(stderr,
                               "***Server doesn't understand IPv6 addresses\n");
                       return;
               }
               cres.addr6 = SOCK_ADDR6(&pcmd->argval[0].netnum);
               cres.v6_flag = 1;
       }
       cres.flags = 0;
       cres.mflags = 0;
       err = FALSE;
       for (res = 2; res < pcmd->nargs; res++) {
               if (STREQ(pcmd->argval[res].string, "ntpport")) {
                       cres.mflags |= RESM_NTPONLY;
               } else {
                       for (i = 0; resflagsV3[i].bit != 0; i++) {
                               if (STREQ(pcmd->argval[res].string,
                                         resflagsV3[i].str))
                                       break;
                       }
                       if (resflagsV3[i].bit != 0) {
                               cres.flags |= resflagsV3[i].bit;
                               if (req_code == REQ_UNRESTRICT) {
                                       fprintf(fp,
                                               "Flag %s inappropriate\n",
                                               resflagsV3[i].str);
                                       err = TRUE;
                               }
                       } else {
                               fprintf(fp, "Unknown flag %s\n",
                                       pcmd->argval[res].string);
                               err = TRUE;
                       }
               }
       }
       cres.flags = htons(cres.flags);
       cres.mflags = htons(cres.mflags);

       /*
        * Make sure mask for default address is zero.  Otherwise,
        * make sure mask bits are contiguous.
        */
       if (IS_IPV4(&pcmd->argval[0].netnum)) {
               if (cres.addr == 0) {
                       cres.mask = 0;
               } else {
                       num = ntohl(cres.mask);
                       for (bit = 0x80000000; bit != 0; bit >>= 1)
                               if ((num & bit) == 0)
                                       break;
                       for ( ; bit != 0; bit >>= 1)
                               if ((num & bit) != 0)
                                       break;
                       if (bit != 0) {
                               fprintf(fp, "Invalid mask %s\n",
                                       numtoa(cres.mask));
                               err = TRUE;
                       }
               }
       } else {
               /* XXX IPv6 sanity checking stuff */
       }

       if (err)
               return;

       res = doquery(impl_ver, req_code, 1, 1, sendsize, (char *)&cres,
                     &items, &itemsize, &dummy, 0, sizeof(cres));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
       return;
}


/*
* monlist - obtain and print the server's monitor data
*/
/*ARGSUSED*/
static void
monlist(
       struct parse *pcmd,
       FILE *fp
       )
{
       const char *struct_star;
       const struct info_monitor *ml;
       const struct info_monitor_1 *m1;
       const struct old_info_monitor *oml;
       sockaddr_u addr;
       sockaddr_u dstadr;
       size_t items;
       size_t itemsize;
       int res;
       int version = -1;

       if (pcmd->nargs > 0)
               version = pcmd->argval[0].ival;

again:
       res = doquery(impl_ver,
                     (version == 1 || version == -1) ? REQ_MON_GETLIST_1 :
                     REQ_MON_GETLIST, 0, 0, 0, NULL,
                     &items, &itemsize, &struct_star,
                     (version < 0) ? (1 << INFO_ERR_REQ) : 0,
                     sizeof(struct info_monitor_1));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == INFO_ERR_REQ && version < 0)
               res = doquery(impl_ver, REQ_MON_GETLIST, 0, 0, 0, NULL,
                             &items, &itemsize, &struct_star, 0,
                             sizeof(struct info_monitor));

       if (res != 0)
               return;

       if (!checkitems(items, fp))
               return;

       if (itemsize == sizeof(struct info_monitor_1) ||
           itemsize == v4sizeof(struct info_monitor_1)) {

           m1 = (const void*)struct_star;
               fprintf(fp,
                       "remote address          port local address      count m ver rstr avgint  lstint\n");
               fprintf(fp,
                       "===============================================================================\n");
               while (items > 0) {
                       SET_ADDRS(dstadr, addr, m1, daddr, addr);
                       if ((pcmd->nargs == 0) ||
                           ((pcmd->argval->ival == 6) && (m1->v6_flag != 0)) ||
                           ((pcmd->argval->ival == 4) && (m1->v6_flag == 0)))
                               fprintf(fp,
                                   "%-22.22s %5d %-15s %8lu %1u %1u %6lx %6lu %7lu\n",
                                   nntohost(&addr),
                                   ntohs(m1->port),
                                   stoa(&dstadr),
                                   (u_long)ntohl(m1->count),
                                   m1->mode,
                                   m1->version,
                                   (u_long)ntohl(m1->restr),
                                   (u_long)ntohl(m1->avg_int),
                                   (u_long)ntohl(m1->last_int));
                       m1++;
                       items--;
               }
       } else if (itemsize == sizeof(struct info_monitor) ||
           itemsize == v4sizeof(struct info_monitor)) {

               ml = (const void *)struct_star;
               fprintf(fp,
                       "     address               port     count mode ver rstr avgint  lstint\n");
               fprintf(fp,
                       "===============================================================================\n");
               while (items > 0) {
                       SET_ADDR(dstadr, ml->v6_flag, ml->addr, ml->addr6);
                       if ((pcmd->nargs == 0) ||
                           ((pcmd->argval->ival == 6) && (ml->v6_flag != 0)) ||
                           ((pcmd->argval->ival == 4) && (ml->v6_flag == 0)))
                               fprintf(fp,
                                   "%-25.25s %5u %9lu %4u %2u %9lx %9lu %9lu\n",
                                   nntohost(&dstadr),
                                   ntohs(ml->port),
                                   (u_long)ntohl(ml->count),
                                   ml->mode,
                                   ml->version,
                                   (u_long)ntohl(ml->restr),
                                   (u_long)ntohl(ml->avg_int),
                                   (u_long)ntohl(ml->last_int));
                       ml++;
                       items--;
               }
       } else if (itemsize == sizeof(struct old_info_monitor)) {

               oml = (const void *)struct_star;
               fprintf(fp,
                       "     address          port     count  mode version  lasttime firsttime\n");
               fprintf(fp,
                       "======================================================================\n");
               while (items > 0) {
                       SET_ADDR(dstadr, oml->v6_flag, oml->addr, oml->addr6);
                       fprintf(fp, "%-20.20s %5u %9lu %4u   %3u %9lu %9lu\n",
                               nntohost(&dstadr),
                               ntohs(oml->port),
                               (u_long)ntohl(oml->count),
                               oml->mode,
                               oml->version,
                               (u_long)ntohl(oml->lasttime),
                               (u_long)ntohl(oml->firsttime));
                       oml++;
                       items--;
               }
       } else {
               /* issue warning according to new info_monitor size */
               checkitemsize(itemsize, sizeof(struct info_monitor));
       }
}


/*
* Mapping between command line strings and stat reset flags
*/
struct statreset {
       const char * const      str;
       const int               flag;
} sreset[] = {
       { "allpeers",   RESET_FLAG_ALLPEERS },
       { "io",         RESET_FLAG_IO },
       { "sys",        RESET_FLAG_SYS },
       { "mem",        RESET_FLAG_MEM },
       { "timer",      RESET_FLAG_TIMER },
       { "auth",       RESET_FLAG_AUTH },
       { "ctl",        RESET_FLAG_CTL },
       { "",           0 }
};

/*
* reset - reset statistic counters
*/
static void
reset(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct reset_flags rflags;
       size_t items;
       size_t itemsize;
       const char *dummy;
       int i;
       size_t res;
       int err;

       err = 0;
       rflags.flags = 0;
       for (res = 0; res < pcmd->nargs; res++) {
               for (i = 0; sreset[i].flag != 0; i++) {
                       if (STREQ(pcmd->argval[res].string, sreset[i].str))
                               break;
               }
               if (sreset[i].flag == 0) {
                       fprintf(fp, "Flag %s unknown\n",
                               pcmd->argval[res].string);
                       err = 1;
               } else {
                       rflags.flags |= sreset[i].flag;
               }
       }
       rflags.flags = htonl(rflags.flags);

       if (err) {
               (void) fprintf(fp, "Not done due to errors\n");
               return;
       }

again:
       res = doquery(impl_ver, REQ_RESET_STATS, 1, 1,
                     sizeof(struct reset_flags), (char *)&rflags, &items,
                     &itemsize, &dummy, 0, sizeof(struct reset_flags));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
       return;
}



/*
* preset - reset stat counters for particular peers
*/
static void
preset(
       struct parse *pcmd,
       FILE *fp
       )
{
       /* 8 is the maximum number of peers which will fit in a packet */
       struct conf_unpeer *pl, plist[min(MAXARGS, 8)];
       size_t qitemlim;
       size_t qitems;
       size_t items;
       size_t itemsize;
       const char *dummy;
       int res;
       size_t sendsize;

again:
       if (impl_ver == IMPL_XNTPD)
               sendsize = sizeof(struct conf_unpeer);
       else
               sendsize = v4sizeof(struct conf_unpeer);

       qitemlim = min(pcmd->nargs, COUNTOF(plist));
       for (qitems = 0, pl = plist; qitems < qitemlim; qitems++) {
               if (IS_IPV4(&pcmd->argval[qitems].netnum)) {
                       pl->peeraddr = NSRCADR(&pcmd->argval[qitems].netnum);
                       if (impl_ver == IMPL_XNTPD)
                               pl->v6_flag = 0;
               } else {
                       if (impl_ver == IMPL_XNTPD_OLD) {
                               fprintf(stderr,
                                   "***Server doesn't understand IPv6 addresses\n");
                               return;
                       }
                       pl->peeraddr6 =
                           SOCK_ADDR6(&pcmd->argval[qitems].netnum);
                       pl->v6_flag = 1;
               }
               pl = (void *)((char *)pl + sendsize);
       }

       res = doquery(impl_ver, REQ_RESET_PEER, 1, qitems,
                     sendsize, (char *)plist, &items,
                     &itemsize, &dummy, 0, sizeof(struct conf_unpeer));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
}


/*
* readkeys - request the server to reread the keys file
*/
/*ARGSUSED*/
static void
readkeys(
       struct parse *pcmd,
       FILE *fp
       )
{
       size_t items;
       size_t itemsize;
       const char *dummy;
       int res;

again:
       res = doquery(impl_ver, REQ_REREAD_KEYS, 1, 0, 0, (char *)0,
                     &items, &itemsize, &dummy, 0, sizeof(dummy));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
       return;
}


/*
* trustkey - add some keys to the trusted key list
*/
static void
trustkey(
       struct parse *pcmd,
       FILE *fp
       )
{
       do_trustkey(pcmd, fp, REQ_TRUSTKEY);
}


/*
* untrustkey - remove some keys from the trusted key list
*/
static void
untrustkey(
       struct parse *pcmd,
       FILE *fp
       )
{
       do_trustkey(pcmd, fp, REQ_UNTRUSTKEY);
}


/*
* do_trustkey - do grunge work of adding/deleting keys
*/
static void
do_trustkey(
       struct parse *pcmd,
       FILE *fp,
       int req
       )
{
       u_long keyids[MAXARGS];
       size_t i;
       size_t items;
       size_t itemsize;
       const char *dummy;
       int ritems;
       int res;

       ritems = 0;
       for (i = 0; i < pcmd->nargs; i++) {
               keyids[ritems++] = pcmd->argval[i].uval;
       }

again:
       res = doquery(impl_ver, req, 1, ritems, sizeof(u_long),
                     (char *)keyids, &items, &itemsize, &dummy, 0,
                     sizeof(dummy));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
       return;
}



/*
* authinfo - obtain and print info about authentication
*/
/*ARGSUSED*/
static void
authinfo(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_auth *ia;
       size_t items;
       size_t itemsize;
       int res;

again:
       res = doquery(impl_ver, REQ_AUTHINFO, 0, 0, 0, NULL, &items,
                     &itemsize, (void *)&ia, 0, sizeof(*ia));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!check1item(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(*ia)))
               return;

       fprintf(fp, "time since reset:     %lu\n",
               (u_long)ntohl(ia->timereset));
       fprintf(fp, "stored keys:          %lu\n",
               (u_long)ntohl(ia->numkeys));
       fprintf(fp, "free keys:            %lu\n",
               (u_long)ntohl(ia->numfreekeys));
       fprintf(fp, "key lookups:          %lu\n",
               (u_long)ntohl(ia->keylookups));
       fprintf(fp, "keys not found:       %lu\n",
               (u_long)ntohl(ia->keynotfound));
       fprintf(fp, "uncached keys:        %lu\n",
               (u_long)ntohl(ia->keyuncached));
       fprintf(fp, "encryptions:          %lu\n",
               (u_long)ntohl(ia->encryptions));
       fprintf(fp, "decryptions:          %lu\n",
               (u_long)ntohl(ia->decryptions));
       fprintf(fp, "expired keys:         %lu\n",
               (u_long)ntohl(ia->expired));
}



/*
* traps - obtain and print a list of traps
*/
/*ARGSUSED*/
static void
traps(
       struct parse *pcmd,
       FILE *fp
       )
{
       size_t i;
       struct info_trap *it;
       sockaddr_u trap_addr, local_addr;
       size_t items;
       size_t itemsize;
       int res;

again:
       res = doquery(impl_ver, REQ_TRAPS, 0, 0, 0, NULL, &items,
                     &itemsize, (void *)&it, 0, sizeof(*it));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!checkitems(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(struct info_trap)) &&
           !checkitemsize(itemsize, v4sizeof(struct info_trap)))
               return;

       for (i = 0; i < items; i++ ) {
               SET_ADDRS(trap_addr, local_addr, it, trap_address, local_address);
               fprintf(fp, "%saddress %s, port %d\n",
                       (0 == i)
                           ? ""
                           : "\n",
                       stoa(&trap_addr), ntohs(it->trap_port));
               fprintf(fp, "interface: %s, ",
                       (0 == it->local_address)
                           ? "wildcard"
                           : stoa(&local_addr));
               if (ntohl(it->flags) & TRAP_CONFIGURED)
                       fprintf(fp, "configured\n");
               else if (ntohl(it->flags) & TRAP_NONPRIO)
                       fprintf(fp, "low priority\n");
               else
                       fprintf(fp, "normal priority\n");

               fprintf(fp, "set for %ld secs, last set %ld secs ago\n",
                       (long)ntohl(it->origtime),
                       (long)ntohl(it->settime));
               fprintf(fp, "sequence %d, number of resets %ld\n",
                       ntohs(it->sequence), (long)ntohl(it->resets));
       }
}


/*
* addtrap - configure a trap
*/
static void
addtrap(
       struct parse *pcmd,
       FILE *fp
       )
{
       do_addclr_trap(pcmd, fp, REQ_ADD_TRAP);
}


/*
* clrtrap - clear a trap from the server
*/
static void
clrtrap(
       struct parse *pcmd,
       FILE *fp
       )
{
       do_addclr_trap(pcmd, fp, REQ_CLR_TRAP);
}


/*
* do_addclr_trap - do grunge work of adding/deleting traps
*/
static void
do_addclr_trap(
       struct parse *pcmd,
       FILE *fp,
       int req
       )
{
       struct conf_trap ctrap;
       size_t items;
       size_t itemsize;
       const char *dummy;
       int res;
       int sendsize;

again:
       if (impl_ver == IMPL_XNTPD)
               sendsize = sizeof(struct conf_trap);
       else
               sendsize = v4sizeof(struct conf_trap);

       if (IS_IPV4(&pcmd->argval[0].netnum)) {
               ctrap.trap_address = NSRCADR(&pcmd->argval[0].netnum);
               if (impl_ver == IMPL_XNTPD)
                       ctrap.v6_flag = 0;
       } else {
               if (impl_ver == IMPL_XNTPD_OLD) {
                       fprintf(stderr,
                           "***Server doesn't understand IPv6 addresses\n");
                       return;
               }
               ctrap.trap_address6 = SOCK_ADDR6(&pcmd->argval[0].netnum);
               ctrap.v6_flag = 1;
       }
       ctrap.local_address = 0;
       ctrap.trap_port = htons(TRAPPORT);
       ctrap.unused = 0;

       if (pcmd->nargs > 1) {
               ctrap.trap_port = htons((u_short)pcmd->argval[1].uval);
               if (pcmd->nargs > 2) {
                       if (AF(&pcmd->argval[2].netnum) !=
                           AF(&pcmd->argval[0].netnum)) {
                               fprintf(stderr,
                                   "***Cannot mix IPv4 and IPv6 addresses\n");
                               return;
                       }
                       if (IS_IPV4(&pcmd->argval[2].netnum))
                               ctrap.local_address = NSRCADR(&pcmd->argval[2].netnum);
                       else
                               ctrap.local_address6 = SOCK_ADDR6(&pcmd->argval[2].netnum);
               }
       }

       res = doquery(impl_ver, req, 1, 1, sendsize,
                     (char *)&ctrap, &items, &itemsize, &dummy, 0,
                     sizeof(struct conf_trap));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
       return;
}



/*
* requestkey - change the server's request key (a dangerous request)
*/
static void
requestkey(
       struct parse *pcmd,
       FILE *fp
       )
{
       do_changekey(pcmd, fp, REQ_REQUEST_KEY);
}


/*
* controlkey - change the server's control key
*/
static void
controlkey(
       struct parse *pcmd,
       FILE *fp
       )
{
       do_changekey(pcmd, fp, REQ_CONTROL_KEY);
}



/*
* do_changekey - do grunge work of changing keys
*/
static void
do_changekey(
       struct parse *pcmd,
       FILE *fp,
       int req
       )
{
       u_long key;
       size_t items;
       size_t itemsize;
       const char *dummy;
       int res;


       key = htonl((u_int32)pcmd->argval[0].uval);

again:
       res = doquery(impl_ver, req, 1, 1, sizeof(u_int32),
                     (char *)&key, &items, &itemsize, &dummy, 0,
                     sizeof(dummy));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
       return;
}



/*
* ctlstats - obtain and print info about authentication
*/
/*ARGSUSED*/
static void
ctlstats(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_control *ic;
       size_t items;
       size_t itemsize;
       int res;

again:
       res = doquery(impl_ver, REQ_GET_CTLSTATS, 0, 0, 0, NULL, &items,
                     &itemsize, (void *)&ic, 0, sizeof(*ic));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!check1item(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(*ic)))
               return;

       fprintf(fp, "time since reset:       %lu\n",
               (u_long)ntohl(ic->ctltimereset));
       fprintf(fp, "requests received:      %lu\n",
               (u_long)ntohl(ic->numctlreq));
       fprintf(fp, "responses sent:         %lu\n",
               (u_long)ntohl(ic->numctlresponses));
       fprintf(fp, "fragments sent:         %lu\n",
               (u_long)ntohl(ic->numctlfrags));
       fprintf(fp, "async messages sent:    %lu\n",
               (u_long)ntohl(ic->numasyncmsgs));
       fprintf(fp, "error msgs sent:        %lu\n",
               (u_long)ntohl(ic->numctlerrors));
       fprintf(fp, "total bad pkts:         %lu\n",
               (u_long)ntohl(ic->numctlbadpkts));
       fprintf(fp, "packet too short:       %lu\n",
               (u_long)ntohl(ic->numctltooshort));
       fprintf(fp, "response on input:      %lu\n",
               (u_long)ntohl(ic->numctlinputresp));
       fprintf(fp, "fragment on input:      %lu\n",
               (u_long)ntohl(ic->numctlinputfrag));
       fprintf(fp, "error set on input:     %lu\n",
               (u_long)ntohl(ic->numctlinputerr));
       fprintf(fp, "bad offset on input:    %lu\n",
               (u_long)ntohl(ic->numctlbadoffset));
       fprintf(fp, "bad version packets:    %lu\n",
               (u_long)ntohl(ic->numctlbadversion));
       fprintf(fp, "data in pkt too short:  %lu\n",
               (u_long)ntohl(ic->numctldatatooshort));
       fprintf(fp, "unknown op codes:       %lu\n",
               (u_long)ntohl(ic->numctlbadop));
}


/*
* clockstat - get and print clock status information
*/
static void
clockstat(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_clock *cl;
       /* 8 is the maximum number of clocks which will fit in a packet */
       u_long clist[min(MAXARGS, 8)];
       size_t qitemlim;
       size_t qitems;
       size_t items;
       size_t itemsize;
       int res;
       l_fp ts;
       struct clktype *clk;

       qitemlim = min(pcmd->nargs, COUNTOF(clist));
       for (qitems = 0; qitems < qitemlim; qitems++)
               clist[qitems] = NSRCADR(&pcmd->argval[qitems].netnum);

again:
       res = doquery(impl_ver, REQ_GET_CLOCKINFO, 0, qitems,
                     sizeof(u_int32), (char *)clist, &items,
                     &itemsize, (void *)&cl, 0, sizeof(struct info_clock));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!checkitems(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(struct info_clock)))
               return;

       while (items-- > 0) {
               (void) fprintf(fp, "clock address:        %s\n",
                              numtoa(cl->clockadr));
               for (clk = clktypes; clk->code >= 0; clk++)
                   if (clk->code == cl->type)
                       break;
               if (clk->code >= 0)
                   (void) fprintf(fp, "clock type:           %s\n",
                                  clk->clocktype);
               else
                   (void) fprintf(fp, "clock type:           unknown type (%d)\n",
                                  cl->type);
               (void) fprintf(fp, "last event:           %d\n",
                              cl->lastevent);
               (void) fprintf(fp, "current status:       %d\n",
                              cl->currentstatus);
               (void) fprintf(fp, "number of polls:      %lu\n",
                              (u_long)ntohl(cl->polls));
               (void) fprintf(fp, "no response to poll:  %lu\n",
                              (u_long)ntohl(cl->noresponse));
               (void) fprintf(fp, "bad format responses: %lu\n",
                              (u_long)ntohl(cl->badformat));
               (void) fprintf(fp, "bad data responses:   %lu\n",
                              (u_long)ntohl(cl->baddata));
               (void) fprintf(fp, "running time:         %lu\n",
                              (u_long)ntohl(cl->timestarted));
               NTOHL_FP(&cl->fudgetime1, &ts);
               (void) fprintf(fp, "fudge time 1:         %s\n",
                              lfptoa(&ts, 6));
               NTOHL_FP(&cl->fudgetime2, &ts);
               (void) fprintf(fp, "fudge time 2:         %s\n",
                              lfptoa(&ts, 6));
               (void) fprintf(fp, "stratum:              %ld\n",
                              (u_long)ntohl(cl->fudgeval1));
               /* [Bug3527] Backward Incompatible: cl->fudgeval2 is
                * a string, instantiated via memcpy() so there is no
                * endian issue to correct.
                */
#ifdef DISABLE_BUG3527_FIX
               (void) fprintf(fp, "reference ID:         %s\n",
                              refid_string(ntohl(cl->fudgeval2), 0));
#else
               (void) fprintf(fp, "reference ID:         %s\n",
                              refid_string(cl->fudgeval2, 0));
#endif
               (void) fprintf(fp, "fudge flags:          0x%x\n",
                              cl->flags);

               if (items > 0)
                   (void) fprintf(fp, "\n");
               cl++;
       }
}


/*
* fudge - set clock fudge factors
*/
static void
fudge(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct conf_fudge fudgedata;
       size_t items;
       size_t itemsize;
       const char *dummy;
       l_fp ts;
       int res;
       long val;
       u_long u_val;
       int err;


       err = 0;
       ZERO(fudgedata);
       fudgedata.clockadr = NSRCADR(&pcmd->argval[0].netnum);

       if (STREQ(pcmd->argval[1].string, "time1")) {
               fudgedata.which = htonl(FUDGE_TIME1);
               if (!atolfp(pcmd->argval[2].string, &ts))
                   err = 1;
               else
                   NTOHL_FP(&ts, &fudgedata.fudgetime);
       } else if (STREQ(pcmd->argval[1].string, "time2")) {
               fudgedata.which = htonl(FUDGE_TIME2);
               if (!atolfp(pcmd->argval[2].string, &ts))
                   err = 1;
               else
                   NTOHL_FP(&ts, &fudgedata.fudgetime);
       } else if (STREQ(pcmd->argval[1].string, "val1")) {
               fudgedata.which = htonl(FUDGE_VAL1);
               if (!atoint(pcmd->argval[2].string, &val))
                   err = 1;
               else
                   fudgedata.fudgeval_flags = htonl(val);
       } else if (STREQ(pcmd->argval[1].string, "val2")) {
               fudgedata.which = htonl(FUDGE_VAL2);
               if (!atoint(pcmd->argval[2].string, &val))
                   err = 1;
               else
                   fudgedata.fudgeval_flags = htonl((u_int32)val);
       } else if (STREQ(pcmd->argval[1].string, "flags")) {
               fudgedata.which = htonl(FUDGE_FLAGS);
               if (!hextoint(pcmd->argval[2].string, &u_val))
                   err = 1;
               else
                   fudgedata.fudgeval_flags = htonl((u_int32)(u_val & 0xf));
       } else {
               (void) fprintf(stderr, "What fudge is %s?\n",
                              pcmd->argval[1].string);
               return;
       }

       if (err) {
               (void) fprintf(stderr, "Unknown fudge parameter %s\n",
                              pcmd->argval[2].string);
               return;
       }

again:
       res = doquery(impl_ver, REQ_SET_CLKFUDGE, 1, 1,
                     sizeof(struct conf_fudge), (char *)&fudgedata, &items,
                     &itemsize, &dummy, 0, sizeof(dummy));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res == 0)
           (void) fprintf(fp, "done!\n");
       return;
}

/*
* clkbug - get and print clock debugging information
*/
static void
clkbug(
       struct parse *pcmd,
       FILE *fp
       )
{
       register int i;
       register int n;
       register u_int32 s;
       struct info_clkbug *cl;
       /* 8 is the maximum number of clocks which will fit in a packet */
       u_long clist[min(MAXARGS, 8)];
       u_int32 ltemp;
       size_t qitemlim;
       size_t qitems;
       size_t items;
       size_t itemsize;
       int res;
       int needsp;
       l_fp ts;

       qitemlim = min(pcmd->nargs, COUNTOF(clist));
       for (qitems = 0; qitems < qitemlim; qitems++)
               clist[qitems] = NSRCADR(&pcmd->argval[qitems].netnum);

again:
       res = doquery(impl_ver, REQ_GET_CLKBUGINFO, 0, qitems,
                     sizeof(u_int32), (char *)clist, &items,
                     &itemsize, (void *)&cl, 0, sizeof(struct info_clkbug));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
               return;

       if (!checkitems(items, fp))
               return;

       if (!checkitemsize(itemsize, sizeof(struct info_clkbug)))
               return;

       while (items-- > 0) {
               (void) fprintf(fp, "clock address:        %s\n",
                              numtoa(cl->clockadr));
               n = (int)cl->nvalues;
               (void) fprintf(fp, "values: %d", n);
               s = ntohs(cl->svalues);
               if (n > NUMCBUGVALUES)
                   n = NUMCBUGVALUES;
               for (i = 0; i < n; i++) {
                       ltemp = ntohl(cl->values[i]);
                       ltemp &= 0xffffffff;    /* HMS: This does nothing now */
                       if ((i & 0x3) == 0)
                           (void) fprintf(fp, "\n");
                       if (s & (1 << i))
                           (void) fprintf(fp, "%12ld", (u_long)ltemp);
                       else
                           (void) fprintf(fp, "%12lu", (u_long)ltemp);
               }
               (void) fprintf(fp, "\n");

               n = (int)cl->ntimes;
               (void) fprintf(fp, "times: %d", n);
               s = ntohl(cl->stimes);
               if (n > NUMCBUGTIMES)
                   n = NUMCBUGTIMES;
               needsp = 0;
               for (i = 0; i < n; i++) {
                       if ((i & 0x1) == 0) {
                           (void) fprintf(fp, "\n");
                       } else {
                               for (;needsp > 0; needsp--)
                                   putc(' ', fp);
                       }
                       NTOHL_FP(&cl->times[i], &ts);
                       if (s & (1 << i)) {
                               (void) fprintf(fp, "%17s",
                                              lfptoa(&ts, 6));
                               needsp = 22;
                       } else {
                               (void) fprintf(fp, "%37s",
                                              uglydate(&ts));
                               needsp = 2;
                       }
               }
               (void) fprintf(fp, "\n");
               if (items > 0) {
                       cl++;
                       (void) fprintf(fp, "\n");
               }
       }
}


/*
* kerninfo - display the kernel pll/pps variables
*/
static void
kerninfo(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_kernel *ik;
       size_t items;
       size_t itemsize;
       int res;
       unsigned status;
       double tscale_usec = 1e-6, tscale_unano = 1e-6;

again:
       res = doquery(impl_ver, REQ_GET_KERNEL, 0, 0, 0, (char *)NULL,
                     &items, &itemsize, (void *)&ik, 0,
                     sizeof(struct info_kernel));

       if (res == INFO_ERR_IMPL && impl_ver == IMPL_XNTPD) {
               impl_ver = IMPL_XNTPD_OLD;
               goto again;
       }

       if (res != 0)
           return;
       if (!check1item(items, fp))
           return;
       if (!checkitemsize(itemsize, sizeof(struct info_kernel)))
           return;

       status = ntohs(ik->status) & 0xffff;
       /*
        * pll variables. We know more than we should about the NANO bit.
        */
#ifdef STA_NANO
       if (status & STA_NANO)
               tscale_unano = 1e-9;
#endif
       (void)fprintf(fp, "pll offset:           %g s\n",
           (int32)ntohl(ik->offset) * tscale_unano);
       (void)fprintf(fp, "pll frequency:        %s ppm\n",
           fptoa((s_fp)ntohl(ik->freq), 3));
       (void)fprintf(fp, "maximum error:        %g s\n",
           (u_long)ntohl(ik->maxerror) * tscale_usec);
       (void)fprintf(fp, "estimated error:      %g s\n",
           (u_long)ntohl(ik->esterror) * tscale_usec);
       (void)fprintf(fp, "status:               %04x ", status);
#ifdef STA_PLL
       if (status & STA_PLL) (void)fprintf(fp, " pll");
#endif
#ifdef STA_PPSFREQ
       if (status & STA_PPSFREQ) (void)fprintf(fp, " ppsfreq");
#endif
#ifdef STA_PPSTIME
       if (status & STA_PPSTIME) (void)fprintf(fp, " ppstime");
#endif
#ifdef STA_FLL
       if (status & STA_FLL) (void)fprintf(fp, " fll");
#endif
#ifdef STA_INS
       if (status & STA_INS) (void)fprintf(fp, " ins");
#endif
#ifdef STA_DEL
       if (status & STA_DEL) (void)fprintf(fp, " del");
#endif
#ifdef STA_UNSYNC
       if (status & STA_UNSYNC) (void)fprintf(fp, " unsync");
#endif
#ifdef STA_FREQHOLD
       if (status & STA_FREQHOLD) (void)fprintf(fp, " freqhold");
#endif
#ifdef STA_PPSSIGNAL
       if (status & STA_PPSSIGNAL) (void)fprintf(fp, " ppssignal");
#endif
#ifdef STA_PPSJITTER
       if (status & STA_PPSJITTER) (void)fprintf(fp, " ppsjitter");
#endif
#ifdef STA_PPSWANDER
       if (status & STA_PPSWANDER) (void)fprintf(fp, " ppswander");
#endif
#ifdef STA_PPSERROR
       if (status & STA_PPSERROR) (void)fprintf(fp, " ppserror");
#endif
#ifdef STA_CLOCKERR
       if (status & STA_CLOCKERR) (void)fprintf(fp, " clockerr");
#endif
#ifdef STA_NANO
       if (status & STA_NANO) (void)fprintf(fp, " nano");
#endif
#ifdef STA_MODE
       if (status & STA_MODE) (void)fprintf(fp, " mode=fll");
#endif
#ifdef STA_CLK
       if (status & STA_CLK) (void)fprintf(fp, " src=B");
#endif
       (void)fprintf(fp, "\n");
       (void)fprintf(fp, "pll time constant:    %ld\n",
           (u_long)ntohl(ik->constant));
       (void)fprintf(fp, "precision:            %g s\n",
           (u_long)ntohl(ik->precision) * tscale_usec);
       (void)fprintf(fp, "frequency tolerance:  %s ppm\n",
           fptoa((s_fp)ntohl(ik->tolerance), 0));

       /*
        * For backwards compatibility (ugh), we find the pps variables
        * only if the shift member is nonzero.
        */
       if (!ik->shift)
           return;

       /*
        * pps variables
        */
       (void)fprintf(fp, "pps frequency:        %s ppm\n",
           fptoa((s_fp)ntohl(ik->ppsfreq), 3));
       (void)fprintf(fp, "pps stability:        %s ppm\n",
           fptoa((s_fp)ntohl(ik->stabil), 3));
       (void)fprintf(fp, "pps jitter:           %g s\n",
           (u_long)ntohl(ik->jitter) * tscale_unano);
       (void)fprintf(fp, "calibration interval: %d s\n",
                     1 << ntohs(ik->shift));
       (void)fprintf(fp, "calibration cycles:   %ld\n",
                     (u_long)ntohl(ik->calcnt));
       (void)fprintf(fp, "jitter exceeded:      %ld\n",
                     (u_long)ntohl(ik->jitcnt));
       (void)fprintf(fp, "stability exceeded:   %ld\n",
                     (u_long)ntohl(ik->stbcnt));
       (void)fprintf(fp, "calibration errors:   %ld\n",
                     (u_long)ntohl(ik->errcnt));
}

#define IF_LIST_FMT     "%2d %c %48s %c %c %12.12s %03lx %3lu %2lu %5lu %5lu %5lu %2lu %3lu %7lu\n"
#define IF_LIST_FMT_STR "%2s %c %48s %c %c %12.12s %3s %3s %2s %5s %5s %5s %2s %3s %7s\n"
#define IF_LIST_AFMT_STR "     %48s %c\n"
#define IF_LIST_LABELS  "#", 'A', "Address/Mask/Broadcast", 'T', 'E', "IF name", "Flg", "TL", "#M", "recv", "sent", "drop", "S", "PC", "uptime"
#define IF_LIST_LINE    "==================================================================================================================\n"

static void
iflist(
       FILE *fp,
       struct info_if_stats *ifs,
       size_t items,
       size_t itemsize,
       int res
       )
{
       static const char *actions = "?.+-";
       sockaddr_u saddr;

       if (res != 0)
           return;

       if (!checkitems(items, fp))
           return;

       if (!checkitemsize(itemsize, sizeof(struct info_if_stats)))
           return;

       fprintf(fp, IF_LIST_FMT_STR, IF_LIST_LABELS);
       fprintf(fp, IF_LIST_LINE);

       while (items > 0) {
               SET_ADDR(saddr, ntohl(ifs->v6_flag),
                        ifs->unaddr.addr.s_addr, ifs->unaddr.addr6);
               fprintf(fp, IF_LIST_FMT,
                       ntohl(ifs->ifnum),
                       actions[(ifs->action >= 1 && ifs->action < 4) ? ifs->action : 0],
                       stoa((&saddr)), 'A',
                       ifs->ignore_packets ? 'D' : 'E',
                       ifs->name,
                       (u_long)ntohl(ifs->flags),
                       (u_long)ntohl(ifs->last_ttl),
                       (u_long)ntohl(ifs->num_mcast),
                       (u_long)ntohl(ifs->received),
                       (u_long)ntohl(ifs->sent),
                       (u_long)ntohl(ifs->notsent),
                       (u_long)ntohl(ifs->scopeid),
                       (u_long)ntohl(ifs->peercnt),
                       (u_long)ntohl(ifs->uptime));

               SET_ADDR(saddr, ntohl(ifs->v6_flag),
                        ifs->unmask.addr.s_addr, ifs->unmask.addr6);
               fprintf(fp, IF_LIST_AFMT_STR, stoa(&saddr), 'M');

               if (!ntohl(ifs->v6_flag) && ntohl(ifs->flags) & (INT_BCASTOPEN)) {
                       SET_ADDR(saddr, ntohl(ifs->v6_flag),
                                ifs->unbcast.addr.s_addr, ifs->unbcast.addr6);
                       fprintf(fp, IF_LIST_AFMT_STR, stoa(&saddr), 'B');

               }

               ifs++;
               items--;
       }
}

/*ARGSUSED*/
static void
get_if_stats(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_if_stats *ifs;
       size_t items;
       size_t itemsize;
       int res;

       res = doquery(impl_ver, REQ_IF_STATS, 1, 0, 0, (char *)NULL, &items,
                     &itemsize, (void *)&ifs, 0,
                     sizeof(struct info_if_stats));
       iflist(fp, ifs, items, itemsize, res);
}

/*ARGSUSED*/
static void
do_if_reload(
       struct parse *pcmd,
       FILE *fp
       )
{
       struct info_if_stats *ifs;
       size_t items;
       size_t itemsize;
       int res;

       res = doquery(impl_ver, REQ_IF_RELOAD, 1, 0, 0, (char *)NULL, &items,
                     &itemsize, (void *)&ifs, 0,
                     sizeof(struct info_if_stats));
       iflist(fp, ifs, items, itemsize, res);
}