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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
// "$Id: hosts.pike,v 1.24 1998/03/28 01:25:01 neotron Exp $";
#include <roxen.h>
public mapping (string:array(mixed)) do_when_found=([]);
object dns = Protocols.DNS.async_client();
mapping lookup_funs=([IP_TO_HOST:dns->ip_to_host,HOST_TO_IP:dns->host_to_ip]);
#define lookup(MODE,NAME) lookup_funs[MODE](NAME, got_one_result)
#define LOOKUP(MODE,NAME,CB,ARGS) do{if(!do_when_found[NAME]){do_when_found[NAME]=(CB?({({CB,ARGS})}):({}));lookup(MODE, NAME);} else if(CB) do_when_found[NAME]+=({({CB,ARGS})});}while(0)
#define ISIP(H,CODE) do {mixed entry;if(sizeof(entry = H / "." ) == 4){int isip = 1;foreach(entry, string s)if((string)((int)s) != s)isip = 0;if(isip) {CODE;};}}while(0)
void got_one_result(string from, string to)
{
#ifdef HOST_NAME_DEBUG
roxen_perror("Hostnames: ---- <"+from+"> == <"+to+"> ----\n");
#endif
if(to) cache_set("hosts", from, to);
array cbs = do_when_found[ from ];
m_delete(do_when_found, from);
foreach(cbs||({}), cbs) cbs[0](to, @cbs[1]);
}
string blocking_ip_to_host(string ip)
{
if(!stringp(ip))
return ip;
ISIP(ip,
if(mixed foo = cache_lookup("hosts", ip)) return foo;
catch { return gethostbyaddr( ip )[0] || ip; };
);
return ip;
}
string blocking_host_to_ip(string host)
{
if(!stringp(host) || !strlen(host)) return host;
if(mixed foo = cache_lookup("hosts", host)) return foo;
ISIP(host,return host);
array addr = gethostbyname( host );
got_one_result(host, addr&&(addr[1][0]));
m_delete(do_when_found, host);
return addr?(addr[1][0]):host;
}
string quick_ip_to_host(string ipnumber)
{
#ifdef NO_REVERSE_LOOKUP
return ipnumber;
#endif
if(!(int)ipnumber || !strlen(ipnumber)) return ipnumber;
ipnumber=(ipnumber/" ")[0]; // ?
if(mixed foo = cache_lookup("hosts", ipnumber)) return foo;
LOOKUP(IP_TO_HOST,ipnumber,0,0);
return ipnumber;
}
string quick_host_to_ip(string h)
{
if(h[-1] == '.') h=h[..strlen(h)-2];
ISIP(h,return h);
if(mixed foo = cache_lookup("hosts", h)) return foo;
LOOKUP(HOST_TO_IP,h,0,0);
return h;
}
void ip_to_host(string|void ipnumber, function|void callback, mixed ... args)
{
#ifdef NO_REVERSE_LOOKUP
return callback(ipnumber, @args);
#endif
if(!((int)ipnumber)) return callback(ipnumber, @args);
if(string entry=cache_lookup("hosts", ipnumber))
{
callback(entry, @args);
return;
}
LOOKUP(IP_TO_HOST,ipnumber,callback,args);
}
void host_to_ip(string|void host, function|void callback, mixed ... args)
{
if(!stringp(host) || !strlen(host)) return callback(0, @args);
if(host[-1] == '.') host=host[..strlen(host)-2];
ISIP(host,callback(host,@args);return);
if(string entry=cache_lookup("hosts", host))
{
callback(entry, @args);
return;
}
LOOKUP(HOST_TO_IP,host,callback,args);
}
|
