Testsuite: basic Sieve operations

[exim.git] / src / src / lookups / dnsdb.c

diff --git a/src/src/lookups/dnsdb.c b/src/src/lookups/dnsdb.c
index c4b5b53eca41e2e0a7be6b42157d2c879dac1afc..1563eda56d0a73b2172f8a4d8cd6b22ccdb845ee 100644 (file)
--- a/src/src/lookups/dnsdb.c
+++ b/src/src/lookups/dnsdb.c
@@ -2,8 +2,10 @@
 *     Exim - an Internet mail transport agent    *
 *************************************************/
 
 *     Exim - an Internet mail transport agent    *
 *************************************************/
 

-/* Copyright (c) University of Cambridge 1995 - 2015 */
+/* Copyright (c) The Exim Maintainers 2020 - 2022 */
+/* Copyright (c) University of Cambridge 1995 - 2018 */

 /* See the file NOTICE for conditions of use and distribution. */
 /* See the file NOTICE for conditions of use and distribution. */

+/* SPDX-License-Identifier: GPL-2.0-or-later */

 
 #include "../exim.h"
 #include "lf_functions.h"
 
 #include "../exim.h"
 #include "lf_functions.h"


@@ -14,17 +16,17 @@
 header files. */
 
 #ifndef T_TXT
 header files. */
 
 #ifndef T_TXT

-#define T_TXT 16
+# define T_TXT 16

 #endif
 
 /* Many systems do not have T_SPF. */
 #ifndef T_SPF
 #endif
 
 /* Many systems do not have T_SPF. */
 #ifndef T_SPF

-#define T_SPF 99
+# define T_SPF 99

 #endif
 
 /* New TLSA record for DANE */
 #ifndef T_TLSA
 #endif
 
 /* New TLSA record for DANE */
 #ifndef T_TLSA

-#define T_TLSA 52
+# define T_TLSA 52

 #endif
 
 /* Table of recognized DNS record types and their integer values. */
 #endif
 
 /* Table of recognized DNS record types and their integer values. */


@@ -77,10 +79,8 @@ static int type_values[] = {
 /* See local README for interface description. */
 
 static void *
 /* See local README for interface description. */
 
 static void *

-dnsdb_open(uschar *filename, uschar **errmsg)
+dnsdb_open(const uschar * filename, uschar **errmsg)

 {
 {

-filename = filename;   /* Keep picky compilers happy */
-errmsg = errmsg;       /* Ditto */

 return (void *)(-1);   /* Any non-0 value */
 }
 
 return (void *)(-1);   /* Any non-0 value */
 }
 


@@ -112,7 +112,7 @@ terminates option processing.  Recognised options are:
 causes the whole lookup to defer only if none of the DNS queries succeeds; and
 'never', where all defers are as if the lookup failed. The default is 'lax'.
 
 causes the whole lookup to defer only if none of the DNS queries succeeds; and
 'never', where all defers are as if the lookup failed. The default is 'lax'.
 

-- 'dnssec_FOO', with 'strict', 'lax' and 'never' (default).  The meanings are
+- 'dnssec_FOO', with 'strict', 'lax' (default), and 'never'.  The meanings are

 require, try and don't-try dnssec respectively.
 
 - 'retrans_VAL', set the timeout value.  VAL is an Exim time specification
 require, try and don't-try dnssec respectively.
 
 - 'retrans_VAL', set the timeout value.  VAL is an Exim time specification


@@ -130,36 +130,26 @@ which may start with '<' in order to set a specific separator. The default
 separator, as always, is colon. */
 
 static int
 separator, as always, is colon. */
 
 static int

-dnsdb_find(void *handle, uschar *filename, const uschar *keystring, int length,
-  uschar **result, uschar **errmsg, uint *do_cache)
+dnsdb_find(void * handle, const uschar * filename, const uschar * keystring,
+ int length, uschar ** result, uschar ** errmsg, uint * do_cache,
+ const uschar * opts)

 {
 int rc;
 {
 int rc;

-int size = 256;
-int ptr = 0;

 int sep = 0;
 int sep = 0;

-int defer_mode = PASS;
-int dnssec_mode = OK;
-int save_retrans = dns_retrans;
-int save_retry =   dns_retry;
+int defer_mode = PASS, dnssec_mode = PASS;
+int save_retrans = dns_retrans, save_retry =   dns_retry;

 int type;
 int failrc = FAIL;
 int type;
 int failrc = FAIL;

-const uschar *outsep = CUS"\n";
-const uschar *outsep2 = NULL;
-uschar *equals, *domain, *found;
+const uschar * outsep = CUS"\n", * outsep2 = NULL;
+uschar * equals, * domain, * found;

 
 

-/* Because we're the working in the search pool, we try to reclaim as much
-store as possible later, so we preallocate the result here */
-
-uschar *yield = store_get(size);
-
-dns_record *rr;
-dns_answer dnsa;
+dns_answer * dnsa = store_get_dns_answer();

 dns_scan dnss;
 
 dns_scan dnss;
 

-handle = handle;           /* Keep picky compilers happy */
-filename = filename;
-length = length;
-do_cache = do_cache;
+/* Because we're working in the search pool, we try to reclaim as much
+store as possible later, so we preallocate the result here */
+
+gstring * yield = string_get(256);

 
 /* If the string starts with '>' we change the output separator.
 If it's followed by ';' or ',' we set the TXT output separator. */
 
 /* If the string starts with '>' we change the output separator.
 If it's followed by ';' or ',' we set the TXT output separator. */


@@ -198,7 +188,8 @@ for (;;)
     else
       {
       *errmsg = US"unsupported dnsdb defer behaviour";
     else
       {
       *errmsg = US"unsupported dnsdb defer behaviour";

-      return DEFER;
+      rc = DEFER;
+      goto out;

       }
     }
   else if (strncmpic(keystring, US"dnssec_", 7) == 0)
       }
     }
   else if (strncmpic(keystring, US"dnssec_", 7) == 0)


@@ -213,7 +204,8 @@ for (;;)
     else
       {
       *errmsg = US"unsupported dnsdb dnssec behaviour";
     else
       {
       *errmsg = US"unsupported dnsdb dnssec behaviour";

-      return DEFER;
+      rc = DEFER;
+      goto out;

       }
     }
   else if (strncmpic(keystring, US"retrans_", 8) == 0)
       }
     }
   else if (strncmpic(keystring, US"retrans_", 8) == 0)


@@ -222,7 +214,8 @@ for (;;)
     if ((timeout_sec = readconf_readtime(keystring += 8, ',', FALSE)) <= 0)
       {
       *errmsg = US"unsupported dnsdb timeout value";
     if ((timeout_sec = readconf_readtime(keystring += 8, ',', FALSE)) <= 0)
       {
       *errmsg = US"unsupported dnsdb timeout value";

-      return DEFER;
+      rc = DEFER;
+      goto out;

       }
     dns_retrans = timeout_sec;
     while (*keystring != ',') keystring++;
       }
     dns_retrans = timeout_sec;
     while (*keystring != ',') keystring++;


@@ -233,7 +226,8 @@ for (;;)
     if ((retries = (int)strtol(CCS keystring + 6, CSS &keystring, 0)) < 0)
       {
       *errmsg = US"unsupported dnsdb retry count";
     if ((retries = (int)strtol(CCS keystring + 6, CSS &keystring, 0)) < 0)
       {
       *errmsg = US"unsupported dnsdb retry count";

-      return DEFER;
+      rc = DEFER;
+      goto out;

       }
     dns_retry = retries;
     }
       }
     dns_retry = retries;
     }


@@ -244,7 +238,8 @@ for (;;)
   if (*keystring++ != ',')
     {
     *errmsg = US"dnsdb modifier syntax error";
   if (*keystring++ != ',')
     {
     *errmsg = US"dnsdb modifier syntax error";

-    return DEFER;
+    rc = DEFER;
+    goto out;

     }
   while (isspace(*keystring)) keystring++;
   }
     }
   while (isspace(*keystring)) keystring++;
   }


@@ -272,7 +267,8 @@ if ((equals = Ustrchr(keystring, '=')) != NULL)
   if (i >= nelem(type_names))
     {
     *errmsg = US"unsupported DNS record type";
   if (i >= nelem(type_names))
     {
     *errmsg = US"unsupported DNS record type";

-    return DEFER;
+    rc = DEFER;
+    goto out;

     }
 
   keystring = equals + 1;
     }
 
   keystring = equals + 1;


@@ -315,10 +311,9 @@ if (!outsep2) switch(type)
 
 while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
   {
 
 while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
   {

-  uschar rbuffer[256];
-  int searchtype = (type == T_CSA)? T_SRV :         /* record type we want */
-                   (type == T_MXH)? T_MX :
-                   (type == T_ZNS)? T_NS : type;
+  int searchtype = type == T_CSA ? T_SRV :         /* record type we want */
+                   type == T_MXH ? T_MX :
+                   type == T_ZNS ? T_NS : type;

 
   /* If the type is PTR or CSA, we have to construct the relevant magic lookup
   key if the original is an IP address (some experimental protocols are using
 
   /* If the type is PTR or CSA, we have to construct the relevant magic lookup
   key if the original is an IP address (some experimental protocols are using


@@ -328,14 +323,11 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
 
   if ((type == T_PTR || type == T_CSA) &&
       string_is_ip_address(domain, NULL) != 0)
 
   if ((type == T_PTR || type == T_CSA) &&
       string_is_ip_address(domain, NULL) != 0)

-    {
-    dns_build_reverse(domain, rbuffer);
-    domain = rbuffer;
-    }
+    domain = dns_build_reverse(domain);

 
   do
     {
 
   do
     {

-    DEBUG(D_lookup) debug_printf("dnsdb key: %s\n", domain);
+    DEBUG(D_lookup) debug_printf_indent("dnsdb key: %s\n", domain);

 
     /* Do the lookup and sort out the result. There are four special types that
     are handled specially: T_CSA, T_ZNS, T_ADDRESSES and T_MXH.
 
     /* Do the lookup and sort out the result. There are four special types that
     are handled specially: T_CSA, T_ZNS, T_ADDRESSES and T_MXH.


@@ -352,18 +344,18 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
       {
       if (searchtype == T_ADDRESSES) searchtype = T_AAAA;
       else if (searchtype == T_AAAA) searchtype = T_A;
       {
       if (searchtype == T_ADDRESSES) searchtype = T_AAAA;
       else if (searchtype == T_AAAA) searchtype = T_A;

-      rc = dns_special_lookup(&dnsa, domain, searchtype, CUSS &found);
+      rc = dns_special_lookup(dnsa, domain, searchtype, CUSS &found);

       }
     else
 #endif
       }
     else
 #endif

-      rc = dns_special_lookup(&dnsa, domain, type, CUSS &found);
+      rc = dns_special_lookup(dnsa, domain, type, CUSS &found);

 
     lookup_dnssec_authenticated = dnssec_mode==OK ? NULL
 
     lookup_dnssec_authenticated = dnssec_mode==OK ? NULL

-      : dns_is_secure(&dnsa) ? US"yes" : US"no";
+      : dns_is_secure(dnsa) ? US"yes" : US"no";

 
     if (rc == DNS_NOMATCH || rc == DNS_NODATA) continue;
     if (  rc != DNS_SUCCEED
 
     if (rc == DNS_NOMATCH || rc == DNS_NODATA) continue;
     if (  rc != DNS_SUCCEED

-       || (dnssec_mode == DEFER && !dns_is_secure(&dnsa))
+       || (dnssec_mode == DEFER && !dns_is_secure(dnsa))

        )
       {
       if (defer_mode == DEFER)
        )
       {
       if (defer_mode == DEFER)


@@ -371,7 +363,8 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
        dns_retrans = save_retrans;
        dns_retry = save_retry;
        dns_init(FALSE, FALSE, FALSE);                  /* clr dnssec bit */
        dns_retrans = save_retrans;
        dns_retry = save_retry;
        dns_init(FALSE, FALSE, FALSE);                  /* clr dnssec bit */

-       return DEFER;                                   /* always defer */
+       rc = DEFER;                                     /* always defer */
+       goto out;

        }
       if (defer_mode == PASS) failrc = DEFER;         /* defer only if all do */
       continue;                                       /* treat defer as fail */
        }
       if (defer_mode == PASS) failrc = DEFER;         /* defer only if all do */
       continue;                                       /* treat defer as fail */


@@ -380,58 +373,42 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
 
     /* Search the returned records */
 
 
     /* Search the returned records */
 

-    for (rr = dns_next_rr(&dnsa, &dnss, RESET_ANSWERS);
-         rr != NULL;
-         rr = dns_next_rr(&dnsa, &dnss, RESET_NEXT))
+    for (dns_record * rr = dns_next_rr(dnsa, &dnss, RESET_ANSWERS); rr;
+         rr = dns_next_rr(dnsa, &dnss, RESET_NEXT)) if (rr->type == searchtype)

       {
       {

-      if (rr->type != searchtype) continue;
-

       if (*do_cache > rr->ttl)
        *do_cache = rr->ttl;
 
       if (type == T_A || type == T_AAAA || type == T_ADDRESSES)
         {
       if (*do_cache > rr->ttl)
        *do_cache = rr->ttl;
 
       if (type == T_A || type == T_AAAA || type == T_ADDRESSES)
         {

-        dns_address *da;
-        for (da = dns_address_from_rr(&dnsa, rr); da; da = da->next)
-          {
-          if (ptr != 0) yield = string_catn(yield, &size, &ptr, outsep, 1);
-          yield = string_cat(yield, &size, &ptr, da->address);
-          }
+        for (dns_address * da = dns_address_from_rr(dnsa, rr); da; da = da->next)
+         yield = string_append_listele(yield, *outsep, da->address);

         continue;
         }
 
       /* Other kinds of record just have one piece of data each, but there may be
       several of them, of course. */
 
         continue;
         }
 
       /* Other kinds of record just have one piece of data each, but there may be
       several of them, of course. */
 

-      if (ptr != 0) yield = string_catn(yield, &size, &ptr, outsep, 1);
+      if (yield->ptr) yield = string_catn(yield, outsep, 1);

 
       if (type == T_TXT || type == T_SPF)
         {
 
       if (type == T_TXT || type == T_SPF)
         {

-        if (outsep2 == NULL)
-          {
-          /* output only the first item of data */
-          yield = string_catn(yield, &size, &ptr, (uschar *)(rr->data+1),
-            (rr->data)[0]);
-          }
+        if (!outsep2)                  /* output only the first item of data */
+          yield = string_catn(yield, US (rr->data+1), (rr->data)[0]);

         else
         else

-          {
-          /* output all items */
-          int data_offset = 0;
-          while (data_offset < rr->size)
+          for (unsigned data_offset = 0; data_offset < rr->size; )

             {
             {

-            uschar chunk_len = (rr->data)[data_offset++];
-            if (outsep2[0] != '\0' && data_offset != 1)
-              yield = string_catn(yield, &size, &ptr, outsep2, 1);
-            yield = string_catn(yield, &size, &ptr,
-                             US ((rr->data)+data_offset), chunk_len);
+            uschar chunk_len = (rr->data)[data_offset];
+            if (*outsep2  && data_offset != 0)
+              yield = string_catn(yield, outsep2, 1);
+            yield = string_catn(yield, US ((rr->data) + ++data_offset), chunk_len);

             data_offset += chunk_len;
             }
             data_offset += chunk_len;
             }

-          }

         }
       else if (type == T_TLSA)
         {
         uint8_t usage, selector, matching_type;
         }
       else if (type == T_TLSA)
         {
         uint8_t usage, selector, matching_type;

-        uint16_t i, payload_length;
+        uint16_t payload_length;

         uschar s[MAX_TLSA_EXPANDED_SIZE];
        uschar * sp = s;
         uschar * p = US rr->data;
         uschar s[MAX_TLSA_EXPANDED_SIZE];
        uschar * sp = s;
         uschar * p = US rr->data;


@@ -444,12 +421,10 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
         sp += sprintf(CS s, "%d%c%d%c%d%c", usage, *outsep2,
                selector, *outsep2, matching_type, *outsep2);
         /* Now append the cert/identifier, one hex char at a time */
         sp += sprintf(CS s, "%d%c%d%c%d%c", usage, *outsep2,
                selector, *outsep2, matching_type, *outsep2);
         /* Now append the cert/identifier, one hex char at a time */

-        for (i=0;
-             i < payload_length && sp-s < (MAX_TLSA_EXPANDED_SIZE - 4);
-             i++)
-          sp += sprintf(CS sp, "%02x", (unsigned char)p[i]);
+       while (payload_length-- > 0 && sp-s < (MAX_TLSA_EXPANDED_SIZE - 4))
+          sp += sprintf(CS sp, "%02x", *p++);

 
 

-        yield = string_cat(yield, &size, &ptr, s);
+        yield = string_cat(yield, s);

         }
       else   /* T_CNAME, T_CSA, T_MX, T_MXH, T_NS, T_PTR, T_SOA, T_SRV */
         {
         }
       else   /* T_CNAME, T_CSA, T_MX, T_MXH, T_NS, T_PTR, T_SOA, T_SRV */
         {


@@ -467,7 +442,7 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
          case T_MX:
            GETSHORT(priority, p);
            sprintf(CS s, "%d%c", priority, *outsep2);
          case T_MX:
            GETSHORT(priority, p);
            sprintf(CS s, "%d%c", priority, *outsep2);

-           yield = string_cat(yield, &size, &ptr, s);
+           yield = string_cat(yield, s);

            break;
 
          case T_SRV:
            break;
 
          case T_SRV:


@@ -476,7 +451,7 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
            GETSHORT(port, p);
            sprintf(CS s, "%d%c%d%c%d%c", priority, *outsep2,
                              weight, *outsep2, port, *outsep2);
            GETSHORT(port, p);
            sprintf(CS s, "%d%c%d%c%d%c", priority, *outsep2,
                              weight, *outsep2, port, *outsep2);

-           yield = string_cat(yield, &size, &ptr, s);
+           yield = string_cat(yield, s);

            break;
 
          case T_CSA:
            break;
 
          case T_CSA:


@@ -505,7 +480,7 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
              }
 
            s[1] = ' ';
              }
 
            s[1] = ' ';

-           yield = string_catn(yield, &size, &ptr, s, 2);
+           yield = string_catn(yield, s, 2);

            break;
 
          default:
            break;
 
          default:


@@ -514,7 +489,7 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
 
         /* GETSHORT() has advanced the pointer to the target domain. */
 
 
         /* GETSHORT() has advanced the pointer to the target domain. */
 

-        rc = dn_expand(dnsa.answer, dnsa.answer + dnsa.answerlen, p,
+        rc = dn_expand(dnsa->answer, dnsa->answer + dnsa->answerlen, p,

           (DN_EXPAND_ARG4_TYPE)s, sizeof(s));
 
         /* If an overlong response was received, the data will have been
           (DN_EXPAND_ARG4_TYPE)s, sizeof(s));
 
         /* If an overlong response was received, the data will have been


@@ -526,16 +501,16 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
             "domain=%s", dns_text_type(type), domain);
           break;
           }
             "domain=%s", dns_text_type(type), domain);
           break;
           }

-        else yield = string_cat(yield, &size, &ptr, s);
+        else yield = string_cat(yield, s);

 
        if (type == T_SOA && outsep2 != NULL)
          {
          unsigned long serial, refresh, retry, expire, minimum;
 
          p += rc;
 
        if (type == T_SOA && outsep2 != NULL)
          {
          unsigned long serial, refresh, retry, expire, minimum;
 
          p += rc;

-         yield = string_catn(yield, &size, &ptr, outsep2, 1);
+         yield = string_catn(yield, outsep2, 1);

 
 

-         rc = dn_expand(dnsa.answer, dnsa.answer + dnsa.answerlen, p,
+         rc = dn_expand(dnsa->answer, dnsa->answer + dnsa->answerlen, p,

            (DN_EXPAND_ARG4_TYPE)s, sizeof(s));
          if (rc < 0)
            {
            (DN_EXPAND_ARG4_TYPE)s, sizeof(s));
          if (rc < 0)
            {


@@ -543,7 +518,7 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
              "domain=%s", dns_text_type(type), domain);
            break;
            }
              "domain=%s", dns_text_type(type), domain);
            break;
            }

-         else yield = string_cat(yield, &size, &ptr, s);
+         else yield = string_cat(yield, s);

 
          p += rc;
          GETLONG(serial, p); GETLONG(refresh, p);
 
          p += rc;
          GETLONG(serial, p); GETLONG(refresh, p);


@@ -551,7 +526,7 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
          sprintf(CS s, "%c%lu%c%lu%c%lu%c%lu%c%lu",
            *outsep2, serial, *outsep2, refresh,
            *outsep2, retry,  *outsep2, expire,  *outsep2, minimum);
          sprintf(CS s, "%c%lu%c%lu%c%lu%c%lu%c%lu",
            *outsep2, serial, *outsep2, refresh,
            *outsep2, retry,  *outsep2, expire,  *outsep2, minimum);

-         yield = string_cat(yield, &size, &ptr, s);
+         yield = string_cat(yield, s);

          }
         }
       }    /* Loop for list of returned records */
          }
         }
       }    /* Loop for list of returned records */


@@ -563,19 +538,27 @@ while ((domain = string_nextinlist(&keystring, &sep, NULL, 0)))
 
 /* Reclaim unused memory */
 
 
 /* Reclaim unused memory */
 

-store_reset(yield + ptr + 1);
+gstring_release_unused(yield);

 
 

-/* If ptr == 0 we have not found anything. Otherwise, insert the terminating
+/* If yield NULL we have not found anything. Otherwise, insert the terminating

 zero and return the result. */
 
 dns_retrans = save_retrans;
 dns_retry = save_retry;
 dns_init(FALSE, FALSE, FALSE); /* clear the dnssec bit for getaddrbyname */
 
 zero and return the result. */
 
 dns_retrans = save_retrans;
 dns_retry = save_retry;
 dns_init(FALSE, FALSE, FALSE); /* clear the dnssec bit for getaddrbyname */
 

-if (ptr == 0) return failrc;
-yield[ptr] = 0;
-*result = yield;
-return OK;
+if (!yield || !yield->ptr)
+  rc = failrc;
+else
+  {
+  *result = string_from_gstring(yield);
+  rc = OK;
+  }
+
+out:
+
+store_free_dns_answer(dnsa);
+return rc;

 }
 
 
 }
 
 


@@ -588,25 +571,26 @@ return OK;
 
 #include "../version.h"
 
 
 #include "../version.h"
 

-void
-dnsdb_version_report(FILE *f)
+gstring *
+dnsdb_version_report(gstring * g)

 {
 #ifdef DYNLOOKUP
 {
 #ifdef DYNLOOKUP

-fprintf(f, "Library version: DNSDB: Exim version %s\n", EXIM_VERSION_STR);
+g = string_fmt_append(g, "Library version: DNSDB: Exim version %s\n", EXIM_VERSION_STR);

 #endif
 #endif

+return g;

 }
 
 
 static lookup_info _lookup_info = {
 }
 
 
 static lookup_info _lookup_info = {

-  US"dnsdb",                     /* lookup name */
-  lookup_querystyle,             /* query style */
-  dnsdb_open,                    /* open function */
-  NULL,                          /* check function */
-  dnsdb_find,                    /* find function */
-  NULL,                          /* no close function */
-  NULL,                          /* no tidy function */
-  NULL,                          /* no quoting function */
-  dnsdb_version_report           /* version reporting */
+  .name = US"dnsdb",                   /* lookup name */
+  .type = lookup_querystyle,           /* query style */
+  .open = dnsdb_open,                  /* open function */
+  .check = NULL,                       /* check function */
+  .find = dnsdb_find,                  /* find function */
+  .close = NULL,                       /* no close function */
+  .tidy = NULL,                                /* no tidy function */
+  .quote = NULL,                       /* no quoting function */
+  .version_report = dnsdb_version_report           /* version reporting */

 };
 
 #ifdef DYNLOOKUP
 };
 
 #ifdef DYNLOOKUP