summaryrefslogtreecommitdiffstats
path: root/perl-install/unused/dns.pm
blob: baad57f9e39b058f9d98a833fed9f8ab9148b1ff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
use diagnostics;
use strict;

# This is dumb, but glibc doesn't 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;
}