Branch for updates

1 files changed, 64 insertions, 0 deletions

diff --git a/perl-install/unused/dns.pm b/perl-install/unused/dns.pm
new file mode 100644
index 000000000..f64783e21
--- /dev/null
+++ b/perl-install/unused/dns.pm
@@ -0,0 +1,64 @@
+use diagnostics;
+use strict;
+
+# This is dumb, but glibc does not like to do hostname lookups w/o libc.so
+
+
+#TODO TODO
+sub doQuery {
+#    my ($query, $queryType, $domainName, $ipNum) = @_;
+#
+#    _res.retry = 2;
+#
+#    len = res_search(query, C_IN, queryType, (void *) &response,
+#		     sizeof(response));
+#    if (len <= 0) return -1;
+#
+#    if (ntohs(response.hdr.rcode) != NOERROR) return -1;
+#    ancount = ntohs(response.hdr.ancount);
+#    if (ancount < 1) return -1;
+#
+#    data = response.buf + sizeof(HEADER);
+#    end = response.buf + len;
+#
+#    # skip the question
+#    data += dn_skipname(data, end) + QFIXEDSZ;
+#
+#    # parse the answer(s)
+#    while (--ancount >= 0 && data < end) {
+#
+#      # skip the domain name portion of the RR record
+#      data += dn_skipname(data, end);
+#
+#      # get RR information
+#      GETSHORT(type, data);
+#      data += INT16SZ; # skipp class
+#      data += INT32SZ; # skipp TTL
+#      GETSHORT(len,  data);
+#
+#      if (type == T_PTR) {
+#	 # we got a pointer
+#	 len = dn_expand(response.buf, end, data, name, sizeof(name));
+#	 if (len <= 0) return -1;
+#	 if (queryType == T_PTR && domainName) {
+#	   # we wanted a pointer
+#	   *domainName = malloc(strlen(name) + 1);
+#	   strcpy(*domainName, name);
+#	   return 0;
+#	 }
+#      } else if (type == T_A) {
+#	 # we got an address
+#	 if (queryType == T_A && ipNum) {
+#	   # we wanted an address
+#	   memcpy(ipNum, data, sizeof(*ipNum));
+#	   return 0;
+#	 }
+#      }
+#
+#      # move ahead to next RR
+#      data += len;
+#    }
+#
+#    return -1;
+}
+