/*      $NetBSD: dumptab.c,v 1.9 2008/05/02 19:22:10 xtraeme Exp $      */

#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: dumptab.c,v 1.9 2008/05/02 19:22:10 xtraeme Exp $");
#endif

/*
* dumptab.c - handles dumping the database
*/

#include <sys/types.h>
#include <netinet/in.h>
#include <arpa/inet.h>                  /* inet_ntoa */

#include <stdio.h>
#include <stdlib.h>
#include <strings.h>
#include <syslog.h>
#include <time.h>

#include "bootp.h"
#include "hash.h"
#include "hwaddr.h"
#include "report.h"
#include "patchlevel.h"
#include "bootpd.h"

static void dump_generic(FILE *, struct shared_bindata *);
static void dump_host(FILE *, struct host *);
static void list_ipaddresses(FILE *, struct in_addr_list *);
void dumptab(const char *);

#ifndef DEBUG
void
dumptab(const char *filename)
{
       report(LOG_INFO, "No dumptab support!");
}

#else /* DEBUG */

/*
* Dump the internal memory database to bootpd_dump.
*/

void
dumptab(const char *filename)
{
       int n;
       struct host *hp;
       FILE *fp;
       time_t t;
       /* Print symbols in alphabetical order for reader's convenience. */
       static char legend[] = "#\n# Legend:\t(see bootptab.5)\n\
#\tfirst field -- hostname (not indented)\n\
#\tbf -- bootfile\n\
#\tbs -- bootfile size in 512-octet blocks\n\
#\tcs -- cookie servers\n\
#\tdf -- dump file name\n\
#\tdn -- domain name\n\
#\tds -- domain name servers\n\
#\tef -- extension file\n\
#\tex -- exec file (YORK_EX_OPTION)\n\
#\tgw -- gateways\n\
#\tha -- hardware address\n\
#\thd -- home directory for bootfiles\n\
#\thn -- host name set for client\n\
#\tht -- hardware type\n\
#\tim -- impress servers\n\
#\tip -- host IP address\n\
#\tlg -- log servers\n\
#\tlp -- LPR servers\n\
#\tms -- message size\n\
#\tmw -- min wait (secs)\n\
#\tns -- IEN-116 name servers\n\
#\tnt -- NTP servers (RFC 1129)\n\
#\tra -- reply address override\n\
#\trl -- resource location protocol servers\n\
#\trp -- root path\n\
#\tsa -- boot server address\n\
#\tsm -- subnet mask\n\
#\tsw -- swap server\n\
#\ttc -- template host (points to similar host entry)\n\
#\ttd -- TFTP directory\n\
#\tto -- time offset (seconds)\n\
#\tts -- time servers\n\
#\tvm -- vendor magic number\n\
#\tyd -- YP (NIS) domain\n\
#\tys -- YP (NIS) servers\n\
#\tTn -- generic option tag n\n\
\n";

       /*
        * Open bootpd.dump file.
        */
       if ((fp = fopen(filename, "w")) == NULL) {
               report(LOG_ERR, "error opening \"%s\": %s",
                          filename, get_errmsg());
               exit(1);
       }
       t = time(NULL);
       fprintf(fp, "\n# %s %s.%d\n", progname, VERSION, PATCHLEVEL);
       fprintf(fp, "# %s: dump of bootp server database.\n", filename);
       fprintf(fp, "# Dump taken %s", ctime(&t));
       fwrite(legend, 1, sizeof(legend) - 1, fp);

       n = 0;
       for (hp = (struct host *) hash_FirstEntry(nmhashtable); hp != NULL;
                hp = (struct host *) hash_NextEntry(nmhashtable)) {
               dump_host(fp, hp);
               fprintf(fp, "\n");
               n++;
       }
       fclose(fp);

       report(LOG_INFO, "dumped %d entries to \"%s\".", n, filename);
}



/*
* Dump all the available information on the host pointed to by "hp".
* The output is sent to the file pointed to by "fp".
*/

static void
dump_host(FILE *fp, struct host *hp)
{
       /* Print symbols in alphabetical order for reader's convenience. */
       if (hp) {
               fprintf(fp, "%s:", (hp->hostname ?
                                                       hp->hostname->string : "?"));
               if (hp->flags.bootfile) {
                       fprintf(fp, "\\\n\t:bf=%s:", hp->bootfile->string);
               }
               if (hp->flags.bootsize) {
                       fprintf(fp, "\\\n\t:bs=");
                       if (hp->flags.bootsize_auto) {
                               fprintf(fp, "auto:");
                       } else {
                               fprintf(fp, "%d:", hp->bootsize);
                       }
               }
               if (hp->flags.cookie_server) {
                       fprintf(fp, "\\\n\t:cs=");
                       list_ipaddresses(fp, hp->cookie_server);
                       fprintf(fp, ":");
               }
               if (hp->flags.dump_file) {
                       fprintf(fp, "\\\n\t:df=%s:", hp->dump_file->string);
               }
               if (hp->flags.domain_name) {
                       fprintf(fp, "\\\n\t:dn=%s:", hp->domain_name->string);
               }
               if (hp->flags.domain_server) {
                       fprintf(fp, "\\\n\t:ds=");
                       list_ipaddresses(fp, hp->domain_server);
                       fprintf(fp, ":");
               }
               if (hp->flags.exten_file) {
                       fprintf(fp, "\\\n\t:ef=%s:", hp->exten_file->string);
               }
               if (hp->flags.exec_file) {
                       fprintf(fp, "\\\n\t:ex=%s:", hp->exec_file->string);
               }
               if (hp->flags.gateway) {
                       fprintf(fp, "\\\n\t:gw=");
                       list_ipaddresses(fp, hp->gateway);
                       fprintf(fp, ":");
               }
               /* FdC: swap_server (see below) */
               if (hp->flags.homedir) {
                       fprintf(fp, "\\\n\t:hd=%s:", hp->homedir->string);
               }
               /* FdC: dump_file (see above) */
               /* FdC: domain_name (see above) */
               /* FdC: root_path (see below) */
               if (hp->flags.name_switch && hp->flags.send_name) {
                       fprintf(fp, "\\\n\t:hn:");
               }
               if (hp->flags.htype) {
                       int hlen = haddrlength(hp->htype);
                       fprintf(fp, "\\\n\t:ht=%u:", (unsigned) hp->htype);
                       if (hp->flags.haddr) {
                               fprintf(fp, "ha=\"%s\":",
                                               haddrtoa(hp->haddr, hlen));
                       }
               }
               if (hp->flags.impress_server) {
                       fprintf(fp, "\\\n\t:im=");
                       list_ipaddresses(fp, hp->impress_server);
                       fprintf(fp, ":");
               }
               /* NetBSD: swap_server (see below) */
               if (hp->flags.iaddr) {
                       fprintf(fp, "\\\n\t:ip=%s:", inet_ntoa(hp->iaddr));
               }
               if (hp->flags.log_server) {
                       fprintf(fp, "\\\n\t:lg=");
                       list_ipaddresses(fp, hp->log_server);
                       fprintf(fp, ":");
               }
               if (hp->flags.lpr_server) {
                       fprintf(fp, "\\\n\t:lp=");
                       list_ipaddresses(fp, hp->lpr_server);
                       fprintf(fp, ":");
               }
               if (hp->flags.msg_size) {
                       fprintf(fp, "\\\n\t:ms=%d:", hp->msg_size);
               }
               if (hp->flags.min_wait) {
                       fprintf(fp, "\\\n\t:mw=%d:", hp->min_wait);
               }
               if (hp->flags.name_server) {
                       fprintf(fp, "\\\n\t:ns=");
                       list_ipaddresses(fp, hp->name_server);
                       fprintf(fp, ":");
               }
               if (hp->flags.ntp_server) {
                       fprintf(fp, "\\\n\t:nt=");
                       list_ipaddresses(fp, hp->ntp_server);
                       fprintf(fp, ":");
               }
               if (hp->flags.reply_addr) {
                       fprintf(fp, "\\\n\t:ra=%s:", inet_ntoa(hp->reply_addr));
               }
               if (hp->flags.rlp_server) {
                       fprintf(fp, "\\\n\t:rl=");
                       list_ipaddresses(fp, hp->rlp_server);
                       fprintf(fp, ":");
               }
               if (hp->flags.root_path) {
                       fprintf(fp, "\\\n\t:rp=%s:", hp->root_path->string);
               }
               if (hp->flags.bootserver) {
                       fprintf(fp, "\\\n\t:sa=%s:", inet_ntoa(hp->bootserver));
               }
               if (hp->flags.subnet_mask) {
                       fprintf(fp, "\\\n\t:sm=%s:", inet_ntoa(hp->subnet_mask));
               }
               if (hp->flags.swap_server) {
                       fprintf(fp, "\\\n\t:sw=%s:", inet_ntoa(hp->subnet_mask));
               }
               if (hp->flags.tftpdir) {
                       fprintf(fp, "\\\n\t:td=%s:", hp->tftpdir->string);
               }
               /* NetBSD: rootpath (see above) */
               /* NetBSD: domainname (see above) */
               /* NetBSD: dumpfile (see above) */
               if (hp->flags.time_offset) {
                       fprintf(fp, "\\\n\t:to=%ld:", (long)hp->time_offset);
               }
               if (hp->flags.time_server) {
                       fprintf(fp, "\\\n\t:ts=");
                       list_ipaddresses(fp, hp->time_server);
                       fprintf(fp, ":");
               }
               if (hp->flags.vm_cookie) {
                       fprintf(fp, "\\\n\t:vm=");
                       if (!bcmp(hp->vm_cookie, vm_rfc1048, 4)) {
                               fprintf(fp, "rfc1048:");
                       } else if (!bcmp(hp->vm_cookie, vm_cmu, 4)) {
                               fprintf(fp, "cmu:");
                       } else {
                               fprintf(fp, "%d.%d.%d.%d:",
                                               (int) ((hp->vm_cookie)[0]),
                                               (int) ((hp->vm_cookie)[1]),
                                               (int) ((hp->vm_cookie)[2]),
                                               (int) ((hp->vm_cookie)[3]));
                       }
               }
               if (hp->flags.nis_domain) {
                       fprintf(fp, "\\\n\t:yd=%s:",
                                       hp->nis_domain->string);
               }
               if (hp->flags.nis_server) {
                       fprintf(fp, "\\\n\t:ys=");
                       list_ipaddresses(fp, hp->nis_server);
                       fprintf(fp, ":");
               }
               /*
                * XXX - Add new tags here (or above,
                * so they print in alphabetical order).
                */

               if (hp->flags.generic) {
                       dump_generic(fp, hp->generic);
               }
       }
}


static void
dump_generic(FILE *fp, struct shared_bindata *generic)
{
       u_char *bp = generic->data;
       u_char *ep = bp + generic->length;
       u_char tag;
       int len;

       while (bp < ep) {
               tag = *bp++;
               if (tag == TAG_PAD)
                       continue;
               if (tag == TAG_END)
                       return;
               len = *bp++;
               if (bp + len > ep) {
                       fprintf(fp, " #junk in generic! :");
                       return;
               }
               fprintf(fp, "\\\n\t:T%d=", tag);
               while (len) {
                       fprintf(fp, "%02X", *bp);
                       bp++;
                       len--;
                       if (len)
                               fprintf(fp, ".");
               }
               fprintf(fp, ":");
       }
}



/*
* Dump an entire struct in_addr_list of IP addresses to the indicated file.
*
* The addresses are printed in standard ASCII "dot" notation and separated
* from one another by a single space.  A single leading space is also
* printed before the first address.
*
* Null lists produce no output (and no error).
*/

static void
list_ipaddresses(FILE *fp, struct in_addr_list *ipptr)
{
       unsigned count;
       struct in_addr *addrptr;

       if (ipptr) {
               count = ipptr->addrcount;
               addrptr = ipptr->addr;
               while (count > 0) {
                       fprintf(fp, "%s", inet_ntoa(*addrptr++));
                       count--;
                       if (count)
                               fprintf(fp, ", ");
               }
       }
}

#endif /* DEBUG */

/*
* Local Variables:
* tab-width: 4
* c-indent-level: 4
* c-argdecl-indent: 4
* c-continued-statement-offset: 4
* c-continued-brace-offset: -4
* c-label-offset: -4
* c-brace-offset: 0
* End:
*/