1 files changed, 99 insertions, 0 deletions
diff --git a/src/clients/s6-dnsq.c b/src/clients/s6-dnsq.c
new file mode 100644
index 0000000..76ca4ea
--- /dev/null
+++ b/src/clients/s6-dnsq.c
@@ -0,0 +1,99 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/uint32.h>
+#include <skalibs/uint.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/bitarray.h>
+#include <skalibs/strerr2.h>
+#include <skalibs/sgetopt.h>
+#include <skalibs/buffer.h>
+#include <skalibs/genwrite.h>
+#include <skalibs/tai.h>
+#include <skalibs/ip46.h>
+#include <s6-dns/s6dns.h>
+#include <s6-dns/s6dns-analyze.h>
+#include <s6-dns/s6dns-debug.h>
+
+#define USAGE "s6-dnsq [ -1 | -2 ] [ -t timeout ] [ -D debuglevel ] qtype query serverip..."
+#define dieusage() strerr_dieusage(100, USAGE)
+
+int main (int argc, char const *const *argv)
+{
+  tain_t deadline ;
+  unsigned int debuglevel = 0 ;
+  uint16 qtype ;
+  genwrite_t *where = &genwrite_stderr ;
+  PROG = "s6-dnsq" ;
+  {
+    subgetopt_t l = SUBGETOPT_ZERO ;
+    unsigned int t = 0 ;
+    for (;;)
+    {
+      register int opt = subgetopt_r(argc, argv, "12t:D:", &l) ;
+      if (opt == -1) break ;
+      switch (opt)
+      {
+        case '1' : where = &genwrite_stdout ; break ;
+        case '2' : where = &genwrite_stderr ; break ;
+        case 't' : if (!uint0_scan(l.arg, &t)) dieusage() ; break ;
+        case 'D' : if (!uint0_scan(l.arg, &debuglevel)) dieusage() ; break ;
+        default : dieusage() ;
+      }
+    }
+    argc -= l.ind ; argv += l.ind ;
+    if (t) tain_from_millisecs(&deadline, t) ; else deadline = tain_infinite_relative ;
+  }
+  if (argc < 3) dieusage() ;
+  {
+    s6dns_debughook_t dbh = { .post_recv = 0, .pre_send = 0, .post_send = 0 } ;
+    s6dns_ip46list_t servers ;
+    s6dns_domain_t d ;
+    unsigned int i = 0, j = 0 ;
+    qtype = s6dns_analyze_qtype_parse(argv[0]) ;
+    if (!qtype) dieusage() ;
+    if (!s6dns_domain_fromstring_noqualify_encode(&d, argv[1], str_len(argv[1])))
+      strerr_diefu2sys(100, "encode ", argv[1]) ;
+    dbh.external = where ;
+    byte_zero(&servers, sizeof(s6dns_ip46list_t)) ;
+    for (; (i < (unsigned int)(argc - 2)) && (j < S6DNS_MAX_SERVERS) ; i++)
+    {
+      ip46_t z[S6DNS_MAX_SERVERS] ;
+      unsigned int n ;
+      register unsigned int k = 0 ;
+      if (!*argv[2+i]) continue ;
+      if (!ip46_scanlist(z, S6DNS_MAX_SERVERS - j, argv[2 + i], &n))
+        strerr_diefu2sys(100, "make an IP address list out of ", argv[2+i]) ;
+      for (; k < n ; k++)
+      {
+        byte_copy(s6dns_ip46list_ip(&servers, j + k), SKALIBS_IP_SIZE, z[k].ip) ;
+#ifdef SKALIBS_IPV6_ENABLED
+        if (ip46_is6(z + k)) bitarray_set(servers.is6, j + k) ;
+#endif
+      }
+      j += n ;
+    }
+    if (debuglevel & 1) dbh.post_recv = &s6dns_debug_dumpdt_post_recv ;
+    if (debuglevel & 2) { dbh.pre_send = &s6dns_debug_dumpdt_pre_send ; dbh.post_send = &s6dns_debug_dumpdt_post_send ; }
+    tain_now_g() ;
+    tain_add_g(&deadline, &deadline) ;
+    if (!s6dns_engine_init_r_g(&s6dns_engine_here, &servers, 0, d.s, d.len, qtype, &dbh, &deadline))
+      strerr_diefu1sys(111, "initialize query") ;
+  }
+  if (!s6dns_resolve_loop_g(&deadline))
+  {
+    char fmt[UINT16_FMT] ;
+    fmt[uint16_fmt(fmt, qtype)] = 0 ;
+    strerr_diefu6x((errno == ETIMEDOUT) ? 99 : 2, "resolve query ", argv[0], " of qtype ", fmt, ": ", s6dns_constants_error_str(errno)) ;
+  }
+  if (!s6dns_analyze_packet(&genwrite_stdout, s6dns_engine_packet(&s6dns_engine_here), s6dns_engine_packetlen(&s6dns_engine_here), 0))
+  {
+    int e = errno ;
+    buffer_flush(buffer_1) ;
+    errno = e ;
+    strerr_diefu1sys(111, "analyze response") ;
+  }
+  if (!buffer_flush(buffer_1)) strerr_diefu1sys(111, "write to stdout") ;
+  return 0 ;
+}