1 3e0d8fb3 2005-12-27 devnull #include <u.h>
2 3e0d8fb3 2005-12-27 devnull #include <libc.h>
3 3e0d8fb3 2005-12-27 devnull #include <ip.h>
4 3e0d8fb3 2005-12-27 devnull #include <ctype.h>
5 3e0d8fb3 2005-12-27 devnull #include <bio.h>
6 3e0d8fb3 2005-12-27 devnull #include <ndb.h>
7 3e0d8fb3 2005-12-27 devnull #include "dns.h"
10 3e0d8fb3 2005-12-27 devnull * Hash table for domain names. The hash is based only on the
11 3e0d8fb3 2005-12-27 devnull * first element of the domain name.
13 3e0d8fb3 2005-12-27 devnull DN *ht[HTLEN];
16 3e0d8fb3 2005-12-27 devnull static struct
19 3e0d8fb3 2005-12-27 devnull ulong names; /* names allocated */
20 3e0d8fb3 2005-12-27 devnull ulong oldest; /* longest we'll leave a name around */
21 3e0d8fb3 2005-12-27 devnull int active;
22 3e0d8fb3 2005-12-27 devnull int mutex;
24 3e0d8fb3 2005-12-27 devnull } dnvars;
26 3e0d8fb3 2005-12-27 devnull /* names of RR types */
27 3e0d8fb3 2005-12-27 devnull char *rrtname[] =
29 3e0d8fb3 2005-12-27 devnull [Ta] "ip",
30 3e0d8fb3 2005-12-27 devnull [Tns] "ns",
31 3e0d8fb3 2005-12-27 devnull [Tmd] "md",
32 3e0d8fb3 2005-12-27 devnull [Tmf] "mf",
33 3e0d8fb3 2005-12-27 devnull [Tcname] "cname",
34 3e0d8fb3 2005-12-27 devnull [Tsoa] "soa",
35 3e0d8fb3 2005-12-27 devnull [Tmb] "mb",
36 3e0d8fb3 2005-12-27 devnull [Tmg] "mg",
37 3e0d8fb3 2005-12-27 devnull [Tmr] "mr",
38 3e0d8fb3 2005-12-27 devnull [Tnull] "null",
39 3e0d8fb3 2005-12-27 devnull [Twks] "wks",
40 3e0d8fb3 2005-12-27 devnull [Tptr] "ptr",
41 3e0d8fb3 2005-12-27 devnull [Thinfo] "hinfo",
42 3e0d8fb3 2005-12-27 devnull [Tminfo] "minfo",
43 3e0d8fb3 2005-12-27 devnull [Tmx] "mx",
44 3e0d8fb3 2005-12-27 devnull [Ttxt] "txt",
45 3e0d8fb3 2005-12-27 devnull [Trp] "rp",
46 3e0d8fb3 2005-12-27 devnull [Tkey] "key",
47 3e0d8fb3 2005-12-27 devnull [Tcert] "cert",
48 3e0d8fb3 2005-12-27 devnull [Tsig] "sig",
49 3e0d8fb3 2005-12-27 devnull [Taaaa] "ipv6",
50 3e0d8fb3 2005-12-27 devnull [Tixfr] "ixfr",
51 3e0d8fb3 2005-12-27 devnull [Taxfr] "axfr",
52 3e0d8fb3 2005-12-27 devnull [Tall] "all",
56 3e0d8fb3 2005-12-27 devnull /* names of response codes */
57 3e0d8fb3 2005-12-27 devnull char *rname[Rmask+1] =
59 3e0d8fb3 2005-12-27 devnull [Rok] "ok",
60 3e0d8fb3 2005-12-27 devnull [Rformat] "format error",
61 3e0d8fb3 2005-12-27 devnull [Rserver] "server failure",
62 3e0d8fb3 2005-12-27 devnull [Rname] "bad name",
63 3e0d8fb3 2005-12-27 devnull [Runimplimented] "unimplemented",
64 3e0d8fb3 2005-12-27 devnull [Rrefused] "we don't like you",
67 3e0d8fb3 2005-12-27 devnull /* names of op codes */
68 3e0d8fb3 2005-12-27 devnull char *opname[] =
70 3e0d8fb3 2005-12-27 devnull [Oquery] "query",
71 3e0d8fb3 2005-12-27 devnull [Oinverse] "inverse",
72 3e0d8fb3 2005-12-27 devnull [Ostatus] "status",
75 3e0d8fb3 2005-12-27 devnull Lock dnlock;
77 3e0d8fb3 2005-12-27 devnull static int sencodefmt(Fmt*);
80 3e0d8fb3 2005-12-27 devnull * set up a pipe to use as a lock
83 3e0d8fb3 2005-12-27 devnull dninit(void)
85 3e0d8fb3 2005-12-27 devnull fmtinstall('E', eipfmt);
86 3e0d8fb3 2005-12-27 devnull fmtinstall('I', eipfmt);
87 3e0d8fb3 2005-12-27 devnull fmtinstall('V', eipfmt);
88 3e0d8fb3 2005-12-27 devnull fmtinstall('R', rrfmt);
89 3e0d8fb3 2005-12-27 devnull fmtinstall('Q', rravfmt);
90 3e0d8fb3 2005-12-27 devnull fmtinstall('H', sencodefmt);
92 3e0d8fb3 2005-12-27 devnull dnvars.oldest = maxage;
93 3e0d8fb3 2005-12-27 devnull dnvars.names = 0;
97 3e0d8fb3 2005-12-27 devnull * hash for a domain name
99 3e0d8fb3 2005-12-27 devnull static ulong
100 3e0d8fb3 2005-12-27 devnull dnhash(char *name)
102 3e0d8fb3 2005-12-27 devnull ulong hash;
103 3e0d8fb3 2005-12-27 devnull uchar *val = (uchar*)name;
105 3e0d8fb3 2005-12-27 devnull for(hash = 0; *val; val++)
106 3e0d8fb3 2005-12-27 devnull hash = (hash*13) + tolower(*val)-'a';
107 3e0d8fb3 2005-12-27 devnull return hash % HTLEN;
111 3e0d8fb3 2005-12-27 devnull * lookup a symbol. if enter is not zero and the name is
112 3e0d8fb3 2005-12-27 devnull * not found, create it.
115 3e0d8fb3 2005-12-27 devnull dnlookup(char *name, int class, int enter)
120 3e0d8fb3 2005-12-27 devnull l = &ht[dnhash(name)];
121 3e0d8fb3 2005-12-27 devnull lock(&dnlock);
122 3e0d8fb3 2005-12-27 devnull for(dp = *l; dp; dp = dp->next) {
123 3e0d8fb3 2005-12-27 devnull assert(dp->magic == DNmagic);
124 3e0d8fb3 2005-12-27 devnull if(dp->class == class && cistrcmp(dp->name, name) == 0){
125 3e0d8fb3 2005-12-27 devnull dp->referenced = now;
126 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
127 3e0d8fb3 2005-12-27 devnull return dp;
129 3e0d8fb3 2005-12-27 devnull l = &dp->next;
131 3e0d8fb3 2005-12-27 devnull if(enter == 0){
132 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
133 3e0d8fb3 2005-12-27 devnull return 0;
135 3e0d8fb3 2005-12-27 devnull dnvars.names++;
136 3e0d8fb3 2005-12-27 devnull dp = emalloc(sizeof(*dp));
137 3e0d8fb3 2005-12-27 devnull dp->magic = DNmagic;
138 3e0d8fb3 2005-12-27 devnull dp->name = estrdup(name);
139 3e0d8fb3 2005-12-27 devnull assert(dp->name != 0);
140 3e0d8fb3 2005-12-27 devnull dp->class = class;
141 3e0d8fb3 2005-12-27 devnull dp->rr = 0;
142 3e0d8fb3 2005-12-27 devnull dp->next = 0;
143 3e0d8fb3 2005-12-27 devnull dp->referenced = now;
144 3e0d8fb3 2005-12-27 devnull *l = dp;
145 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
147 3e0d8fb3 2005-12-27 devnull return dp;
151 3e0d8fb3 2005-12-27 devnull * dump the cache
154 3e0d8fb3 2005-12-27 devnull dndump(char *file)
157 3e0d8fb3 2005-12-27 devnull int i, fd;
160 3e0d8fb3 2005-12-27 devnull fd = open(file, OWRITE|OTRUNC);
161 3e0d8fb3 2005-12-27 devnull if(fd < 0)
163 3e0d8fb3 2005-12-27 devnull lock(&dnlock);
164 3e0d8fb3 2005-12-27 devnull for(i = 0; i < HTLEN; i++){
165 3e0d8fb3 2005-12-27 devnull for(dp = ht[i]; dp; dp = dp->next){
166 3e0d8fb3 2005-12-27 devnull fprint(fd, "%s\n", dp->name);
167 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next)
168 3e0d8fb3 2005-12-27 devnull fprint(fd, " %R %c%c %lud/%lud\n", rp, rp->auth?'A':'U',
169 3e0d8fb3 2005-12-27 devnull rp->db?'D':'N', rp->expire, rp->ttl);
172 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
173 3e0d8fb3 2005-12-27 devnull close(fd);
177 3e0d8fb3 2005-12-27 devnull * purge all records
180 3e0d8fb3 2005-12-27 devnull dnpurge(void)
183 3e0d8fb3 2005-12-27 devnull RR *rp, *srp;
186 3e0d8fb3 2005-12-27 devnull lock(&dnlock);
188 3e0d8fb3 2005-12-27 devnull for(i = 0; i < HTLEN; i++)
189 3e0d8fb3 2005-12-27 devnull for(dp = ht[i]; dp; dp = dp->next){
190 3e0d8fb3 2005-12-27 devnull srp = rp = dp->rr;
191 3e0d8fb3 2005-12-27 devnull dp->rr = nil;
192 3e0d8fb3 2005-12-27 devnull for(; rp != nil; rp = rp->next)
193 3e0d8fb3 2005-12-27 devnull rp->cached = 0;
194 3e0d8fb3 2005-12-27 devnull rrfreelist(srp);
197 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
201 3e0d8fb3 2005-12-27 devnull * check the age of resource records, free any that have timed out
204 3e0d8fb3 2005-12-27 devnull dnage(DN *dp)
207 3e0d8fb3 2005-12-27 devnull RR *rp, *next;
208 3e0d8fb3 2005-12-27 devnull ulong diff;
210 3e0d8fb3 2005-12-27 devnull diff = now - dp->referenced;
211 3e0d8fb3 2005-12-27 devnull if(diff < Reserved)
214 3e0d8fb3 2005-12-27 devnull l = &dp->rr;
215 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = next){
216 3e0d8fb3 2005-12-27 devnull assert(rp->magic == RRmagic && rp->cached);
217 3e0d8fb3 2005-12-27 devnull next = rp->next;
218 3e0d8fb3 2005-12-27 devnull if(!rp->db)
219 3e0d8fb3 2005-12-27 devnull if(rp->expire < now || diff > dnvars.oldest){
220 3e0d8fb3 2005-12-27 devnull *l = next;
221 3e0d8fb3 2005-12-27 devnull rp->cached = 0;
222 3e0d8fb3 2005-12-27 devnull rrfree(rp);
223 3e0d8fb3 2005-12-27 devnull continue;
225 3e0d8fb3 2005-12-27 devnull l = &rp->next;
229 3e0d8fb3 2005-12-27 devnull #define REF(x) if(x) x->refs++
232 3e0d8fb3 2005-12-27 devnull * our target is 4000 names cached, this should be larger on large servers
234 3e0d8fb3 2005-12-27 devnull #define TARGET 4000
237 3e0d8fb3 2005-12-27 devnull * periodicly sweep for old records and remove unreferenced domain names
239 3e0d8fb3 2005-12-27 devnull * only called when all other threads are locked out
242 3e0d8fb3 2005-12-27 devnull dnageall(int doit)
244 3e0d8fb3 2005-12-27 devnull DN *dp, **l;
247 3e0d8fb3 2005-12-27 devnull static ulong nextage;
249 3e0d8fb3 2005-12-27 devnull if(dnvars.names < TARGET && now < nextage && !doit){
250 3e0d8fb3 2005-12-27 devnull dnvars.oldest = maxage;
254 3e0d8fb3 2005-12-27 devnull if(dnvars.names > TARGET)
255 3e0d8fb3 2005-12-27 devnull dnvars.oldest /= 2;
256 3e0d8fb3 2005-12-27 devnull nextage = now + maxage;
258 3e0d8fb3 2005-12-27 devnull lock(&dnlock);
260 3e0d8fb3 2005-12-27 devnull /* time out all old entries (and set refs to 0) */
261 3e0d8fb3 2005-12-27 devnull for(i = 0; i < HTLEN; i++)
262 3e0d8fb3 2005-12-27 devnull for(dp = ht[i]; dp; dp = dp->next){
263 3e0d8fb3 2005-12-27 devnull dp->refs = 0;
264 3e0d8fb3 2005-12-27 devnull dnage(dp);
267 3e0d8fb3 2005-12-27 devnull /* mark all referenced domain names */
268 3e0d8fb3 2005-12-27 devnull for(i = 0; i < HTLEN; i++)
269 3e0d8fb3 2005-12-27 devnull for(dp = ht[i]; dp; dp = dp->next)
270 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next){
271 3e0d8fb3 2005-12-27 devnull REF(rp->owner);
272 3e0d8fb3 2005-12-27 devnull if(rp->negative){
273 3e0d8fb3 2005-12-27 devnull REF(rp->negsoaowner);
274 3e0d8fb3 2005-12-27 devnull continue;
276 3e0d8fb3 2005-12-27 devnull switch(rp->type){
277 3e0d8fb3 2005-12-27 devnull case Thinfo:
278 3e0d8fb3 2005-12-27 devnull REF(rp->cpu);
279 3e0d8fb3 2005-12-27 devnull REF(rp->os);
281 3e0d8fb3 2005-12-27 devnull case Ttxt:
283 3e0d8fb3 2005-12-27 devnull case Tcname:
284 3e0d8fb3 2005-12-27 devnull case Tmb:
285 3e0d8fb3 2005-12-27 devnull case Tmd:
286 3e0d8fb3 2005-12-27 devnull case Tmf:
287 3e0d8fb3 2005-12-27 devnull case Tns:
288 3e0d8fb3 2005-12-27 devnull REF(rp->host);
290 3e0d8fb3 2005-12-27 devnull case Tmg:
291 3e0d8fb3 2005-12-27 devnull case Tmr:
292 3e0d8fb3 2005-12-27 devnull REF(rp->mb);
294 3e0d8fb3 2005-12-27 devnull case Tminfo:
295 3e0d8fb3 2005-12-27 devnull REF(rp->rmb);
296 3e0d8fb3 2005-12-27 devnull REF(rp->mb);
298 3e0d8fb3 2005-12-27 devnull case Trp:
299 3e0d8fb3 2005-12-27 devnull REF(rp->rmb);
300 3e0d8fb3 2005-12-27 devnull REF(rp->rp);
302 3e0d8fb3 2005-12-27 devnull case Tmx:
303 3e0d8fb3 2005-12-27 devnull REF(rp->host);
305 3e0d8fb3 2005-12-27 devnull case Ta:
306 3e0d8fb3 2005-12-27 devnull case Taaaa:
307 3e0d8fb3 2005-12-27 devnull REF(rp->ip);
309 3e0d8fb3 2005-12-27 devnull case Tptr:
310 3e0d8fb3 2005-12-27 devnull REF(rp->ptr);
312 3e0d8fb3 2005-12-27 devnull case Tsoa:
313 3e0d8fb3 2005-12-27 devnull REF(rp->host);
314 3e0d8fb3 2005-12-27 devnull REF(rp->rmb);
319 3e0d8fb3 2005-12-27 devnull /* sweep and remove unreferenced domain names */
320 3e0d8fb3 2005-12-27 devnull for(i = 0; i < HTLEN; i++){
321 3e0d8fb3 2005-12-27 devnull l = &ht[i];
322 3e0d8fb3 2005-12-27 devnull for(dp = *l; dp; dp = *l){
323 3e0d8fb3 2005-12-27 devnull if(dp->rr == 0 && dp->refs == 0){
324 3e0d8fb3 2005-12-27 devnull assert(dp->magic == DNmagic);
325 3e0d8fb3 2005-12-27 devnull *l = dp->next;
326 3e0d8fb3 2005-12-27 devnull if(dp->name)
327 3e0d8fb3 2005-12-27 devnull free(dp->name);
328 3e0d8fb3 2005-12-27 devnull dp->magic = ~dp->magic;
329 3e0d8fb3 2005-12-27 devnull dnvars.names--;
330 3e0d8fb3 2005-12-27 devnull free(dp);
331 3e0d8fb3 2005-12-27 devnull continue;
333 3e0d8fb3 2005-12-27 devnull l = &dp->next;
337 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
341 3e0d8fb3 2005-12-27 devnull * timeout all database records (used when rereading db)
344 3e0d8fb3 2005-12-27 devnull dnagedb(void)
349 3e0d8fb3 2005-12-27 devnull static ulong nextage;
351 3e0d8fb3 2005-12-27 devnull lock(&dnlock);
353 3e0d8fb3 2005-12-27 devnull /* time out all database entries */
354 3e0d8fb3 2005-12-27 devnull for(i = 0; i < HTLEN; i++)
355 3e0d8fb3 2005-12-27 devnull for(dp = ht[i]; dp; dp = dp->next)
356 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next)
357 3e0d8fb3 2005-12-27 devnull if(rp->db)
358 3e0d8fb3 2005-12-27 devnull rp->expire = 0;
360 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
364 3e0d8fb3 2005-12-27 devnull * mark all local db records about my area as authoritative, time out any others
367 3e0d8fb3 2005-12-27 devnull dnauthdb(void)
371 3e0d8fb3 2005-12-27 devnull Area *area;
373 3e0d8fb3 2005-12-27 devnull static ulong nextage;
375 3e0d8fb3 2005-12-27 devnull lock(&dnlock);
377 3e0d8fb3 2005-12-27 devnull /* time out all database entries */
378 3e0d8fb3 2005-12-27 devnull for(i = 0; i < HTLEN; i++)
379 3e0d8fb3 2005-12-27 devnull for(dp = ht[i]; dp; dp = dp->next){
380 3e0d8fb3 2005-12-27 devnull area = inmyarea(dp->name);
381 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next)
382 3e0d8fb3 2005-12-27 devnull if(rp->db){
383 3e0d8fb3 2005-12-27 devnull if(area){
384 3e0d8fb3 2005-12-27 devnull if(rp->ttl < area->soarr->soa->minttl)
385 3e0d8fb3 2005-12-27 devnull rp->ttl = area->soarr->soa->minttl;
386 3e0d8fb3 2005-12-27 devnull rp->auth = 1;
388 3e0d8fb3 2005-12-27 devnull if(rp->expire == 0){
389 3e0d8fb3 2005-12-27 devnull rp->db = 0;
390 3e0d8fb3 2005-12-27 devnull dp->referenced = now - Reserved - 1;
395 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
399 3e0d8fb3 2005-12-27 devnull * keep track of other processes to know if we can
400 3e0d8fb3 2005-12-27 devnull * garbage collect. block while garbage collecting.
403 3e0d8fb3 2005-12-27 devnull getactivity(Request *req)
407 3e0d8fb3 2005-12-27 devnull if(traceactivity) syslog(0, "dns", "get %d by %d", dnvars.active, getpid());
408 3e0d8fb3 2005-12-27 devnull lock(&dnvars.lk);
409 3e0d8fb3 2005-12-27 devnull while(dnvars.mutex){
410 3e0d8fb3 2005-12-27 devnull unlock(&dnvars.lk);
411 3e0d8fb3 2005-12-27 devnull sleep(200);
412 3e0d8fb3 2005-12-27 devnull lock(&dnvars.lk);
414 3e0d8fb3 2005-12-27 devnull rv = ++dnvars.active;
415 3e0d8fb3 2005-12-27 devnull now = time(0);
416 3e0d8fb3 2005-12-27 devnull req->id = ++dnvars.id;
417 3e0d8fb3 2005-12-27 devnull unlock(&dnvars.lk);
419 3e0d8fb3 2005-12-27 devnull return rv;
422 3e0d8fb3 2005-12-27 devnull putactivity(void)
424 3e0d8fb3 2005-12-27 devnull static ulong lastclean;
426 3e0d8fb3 2005-12-27 devnull if(traceactivity) syslog(0, "dns", "put %d by %d", dnvars.active, getpid());
427 3e0d8fb3 2005-12-27 devnull lock(&dnvars.lk);
428 3e0d8fb3 2005-12-27 devnull dnvars.active--;
429 3e0d8fb3 2005-12-27 devnull assert(dnvars.active >= 0); /* "dnvars.active %d", dnvars.active */;
432 3e0d8fb3 2005-12-27 devnull * clean out old entries and check for new db periodicly
434 3e0d8fb3 2005-12-27 devnull if(dnvars.mutex || (needrefresh == 0 && dnvars.active > 0)){
435 3e0d8fb3 2005-12-27 devnull unlock(&dnvars.lk);
439 3e0d8fb3 2005-12-27 devnull /* wait till we're alone */
440 3e0d8fb3 2005-12-27 devnull dnvars.mutex = 1;
441 3e0d8fb3 2005-12-27 devnull while(dnvars.active > 0){
442 3e0d8fb3 2005-12-27 devnull unlock(&dnvars.lk);
443 3e0d8fb3 2005-12-27 devnull sleep(100);
444 3e0d8fb3 2005-12-27 devnull lock(&dnvars.lk);
446 3e0d8fb3 2005-12-27 devnull unlock(&dnvars.lk);
448 3e0d8fb3 2005-12-27 devnull db2cache(needrefresh);
449 3e0d8fb3 2005-12-27 devnull dnageall(0);
451 3e0d8fb3 2005-12-27 devnull /* let others back in */
452 3e0d8fb3 2005-12-27 devnull lastclean = now;
453 3e0d8fb3 2005-12-27 devnull needrefresh = 0;
454 3e0d8fb3 2005-12-27 devnull dnvars.mutex = 0;
458 3e0d8fb3 2005-12-27 devnull * Attach a single resource record to a domain name.
459 3e0d8fb3 2005-12-27 devnull * - Avoid duplicates with already present RR's
460 3e0d8fb3 2005-12-27 devnull * - Chain all RR's of the same type adjacent to one another
461 3e0d8fb3 2005-12-27 devnull * - chain authoritative RR's ahead of non-authoritative ones
463 3e0d8fb3 2005-12-27 devnull static void
464 3e0d8fb3 2005-12-27 devnull rrattach1(RR *new, int auth)
470 3e0d8fb3 2005-12-27 devnull assert(new->magic == RRmagic && !new->cached);
472 3e0d8fb3 2005-12-27 devnull if(!new->db)
473 3e0d8fb3 2005-12-27 devnull new->expire = new->ttl;
475 3e0d8fb3 2005-12-27 devnull new->expire = now + Year;
476 3e0d8fb3 2005-12-27 devnull dp = new->owner;
477 3e0d8fb3 2005-12-27 devnull assert(dp->magic == DNmagic);
478 3e0d8fb3 2005-12-27 devnull new->auth |= auth;
479 3e0d8fb3 2005-12-27 devnull new->next = 0;
482 3e0d8fb3 2005-12-27 devnull * find first rr of the right type
484 3e0d8fb3 2005-12-27 devnull l = &dp->rr;
485 3e0d8fb3 2005-12-27 devnull for(rp = *l; rp; rp = *l){
486 3e0d8fb3 2005-12-27 devnull assert(rp->magic == RRmagic && rp->cached);
487 3e0d8fb3 2005-12-27 devnull if(rp->type == new->type)
489 3e0d8fb3 2005-12-27 devnull l = &rp->next;
493 3e0d8fb3 2005-12-27 devnull * negative entries replace positive entries
494 3e0d8fb3 2005-12-27 devnull * positive entries replace negative entries
495 3e0d8fb3 2005-12-27 devnull * newer entries replace older entries with the same fields
497 3e0d8fb3 2005-12-27 devnull for(rp = *l; rp; rp = *l){
498 3e0d8fb3 2005-12-27 devnull assert(rp->magic == RRmagic && rp->cached);
499 3e0d8fb3 2005-12-27 devnull if(rp->type != new->type)
502 3e0d8fb3 2005-12-27 devnull if(rp->db == new->db && rp->auth == new->auth){
503 3e0d8fb3 2005-12-27 devnull /* negative drives out positive and vice versa */
504 3e0d8fb3 2005-12-27 devnull if(rp->negative != new->negative){
505 3e0d8fb3 2005-12-27 devnull *l = rp->next;
506 3e0d8fb3 2005-12-27 devnull rp->cached = 0;
507 3e0d8fb3 2005-12-27 devnull rrfree(rp);
508 3e0d8fb3 2005-12-27 devnull continue;
511 3e0d8fb3 2005-12-27 devnull /* all things equal, pick the newer one */
512 3e0d8fb3 2005-12-27 devnull if(rp->arg0 == new->arg0 && rp->arg1 == new->arg1){
513 3e0d8fb3 2005-12-27 devnull /* new drives out old */
514 3e0d8fb3 2005-12-27 devnull if(new->ttl > rp->ttl || new->expire > rp->expire){
515 3e0d8fb3 2005-12-27 devnull *l = rp->next;
516 3e0d8fb3 2005-12-27 devnull rp->cached = 0;
517 3e0d8fb3 2005-12-27 devnull rrfree(rp);
518 3e0d8fb3 2005-12-27 devnull continue;
519 3e0d8fb3 2005-12-27 devnull } else {
520 3e0d8fb3 2005-12-27 devnull rrfree(new);
525 3e0d8fb3 2005-12-27 devnull /* Hack for pointer records. This makes sure
526 3e0d8fb3 2005-12-27 devnull * the ordering in the list reflects the ordering
527 3e0d8fb3 2005-12-27 devnull * received or read from the database
529 3e0d8fb3 2005-12-27 devnull if(rp->type == Tptr){
530 3e0d8fb3 2005-12-27 devnull if(!rp->negative && !new->negative
531 3e0d8fb3 2005-12-27 devnull && rp->ptr->ordinal > new->ptr->ordinal)
535 3e0d8fb3 2005-12-27 devnull l = &rp->next;
539 3e0d8fb3 2005-12-27 devnull * add to chain
541 3e0d8fb3 2005-12-27 devnull new->cached = 1;
542 3e0d8fb3 2005-12-27 devnull new->next = *l;
543 3e0d8fb3 2005-12-27 devnull *l = new;
547 3e0d8fb3 2005-12-27 devnull * Attach a list of resource records to a domain name.
548 3e0d8fb3 2005-12-27 devnull * - Avoid duplicates with already present RR's
549 3e0d8fb3 2005-12-27 devnull * - Chain all RR's of the same type adjacent to one another
550 3e0d8fb3 2005-12-27 devnull * - chain authoritative RR's ahead of non-authoritative ones
551 3e0d8fb3 2005-12-27 devnull * - remove any expired RR's
554 3e0d8fb3 2005-12-27 devnull rrattach(RR *rp, int auth)
556 3e0d8fb3 2005-12-27 devnull RR *next;
558 3e0d8fb3 2005-12-27 devnull lock(&dnlock);
559 3e0d8fb3 2005-12-27 devnull for(; rp; rp = next){
560 3e0d8fb3 2005-12-27 devnull next = rp->next;
561 3e0d8fb3 2005-12-27 devnull rp->next = 0;
563 3e0d8fb3 2005-12-27 devnull /* avoid any outside spoofing */
564 3e0d8fb3 2005-12-27 devnull if(cachedb && !rp->db && inmyarea(rp->owner->name))
565 3e0d8fb3 2005-12-27 devnull rrfree(rp);
567 3e0d8fb3 2005-12-27 devnull rrattach1(rp, auth);
569 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
573 3e0d8fb3 2005-12-27 devnull * allocate a resource record of a given type
576 3e0d8fb3 2005-12-27 devnull rralloc(int type)
580 3e0d8fb3 2005-12-27 devnull rp = emalloc(sizeof(*rp));
581 3e0d8fb3 2005-12-27 devnull rp->magic = RRmagic;
582 3e0d8fb3 2005-12-27 devnull rp->pc = getcallerpc(&type);
583 3e0d8fb3 2005-12-27 devnull rp->type = type;
584 3e0d8fb3 2005-12-27 devnull switch(type){
585 3e0d8fb3 2005-12-27 devnull case Tsoa:
586 3e0d8fb3 2005-12-27 devnull rp->soa = emalloc(sizeof(*rp->soa));
587 3e0d8fb3 2005-12-27 devnull rp->soa->slaves = nil;
589 3e0d8fb3 2005-12-27 devnull case Tkey:
590 3e0d8fb3 2005-12-27 devnull rp->key = emalloc(sizeof(*rp->key));
592 3e0d8fb3 2005-12-27 devnull case Tcert:
593 3e0d8fb3 2005-12-27 devnull rp->cert = emalloc(sizeof(*rp->cert));
595 3e0d8fb3 2005-12-27 devnull case Tsig:
596 3e0d8fb3 2005-12-27 devnull rp->sig = emalloc(sizeof(*rp->sig));
598 3e0d8fb3 2005-12-27 devnull case Tnull:
599 3e0d8fb3 2005-12-27 devnull rp->null = emalloc(sizeof(*rp->null));
602 3e0d8fb3 2005-12-27 devnull rp->ttl = 0;
603 3e0d8fb3 2005-12-27 devnull rp->expire = 0;
604 3e0d8fb3 2005-12-27 devnull rp->next = 0;
605 3e0d8fb3 2005-12-27 devnull return rp;
609 3e0d8fb3 2005-12-27 devnull * free a resource record and any related structs
612 3e0d8fb3 2005-12-27 devnull rrfree(RR *rp)
615 3e0d8fb3 2005-12-27 devnull RR *nrp;
618 3e0d8fb3 2005-12-27 devnull assert(rp->magic = RRmagic);
619 3e0d8fb3 2005-12-27 devnull assert(!rp->cached);
621 3e0d8fb3 2005-12-27 devnull dp = rp->owner;
623 3e0d8fb3 2005-12-27 devnull assert(dp->magic == DNmagic);
624 3e0d8fb3 2005-12-27 devnull for(nrp = dp->rr; nrp; nrp = nrp->next)
625 3e0d8fb3 2005-12-27 devnull assert(nrp != rp); /* "rrfree of live rr" */;
628 3e0d8fb3 2005-12-27 devnull switch(rp->type){
629 3e0d8fb3 2005-12-27 devnull case Tsoa:
630 3e0d8fb3 2005-12-27 devnull freeserverlist(rp->soa->slaves);
631 3e0d8fb3 2005-12-27 devnull free(rp->soa);
633 3e0d8fb3 2005-12-27 devnull case Tkey:
634 3e0d8fb3 2005-12-27 devnull free(rp->key->data);
635 3e0d8fb3 2005-12-27 devnull free(rp->key);
637 3e0d8fb3 2005-12-27 devnull case Tcert:
638 3e0d8fb3 2005-12-27 devnull free(rp->cert->data);
639 3e0d8fb3 2005-12-27 devnull free(rp->cert);
641 3e0d8fb3 2005-12-27 devnull case Tsig:
642 3e0d8fb3 2005-12-27 devnull free(rp->sig->data);
643 3e0d8fb3 2005-12-27 devnull free(rp->sig);
645 3e0d8fb3 2005-12-27 devnull case Tnull:
646 3e0d8fb3 2005-12-27 devnull free(rp->null->data);
647 3e0d8fb3 2005-12-27 devnull free(rp->null);
649 3e0d8fb3 2005-12-27 devnull case Ttxt:
650 3e0d8fb3 2005-12-27 devnull while(rp->txt != nil){
651 3e0d8fb3 2005-12-27 devnull t = rp->txt;
652 3e0d8fb3 2005-12-27 devnull rp->txt = t->next;
653 3e0d8fb3 2005-12-27 devnull free(t->p);
654 3e0d8fb3 2005-12-27 devnull free(t);
659 3e0d8fb3 2005-12-27 devnull rp->magic = ~rp->magic;
660 3e0d8fb3 2005-12-27 devnull free(rp);
664 3e0d8fb3 2005-12-27 devnull * free a list of resource records and any related structs
667 3e0d8fb3 2005-12-27 devnull rrfreelist(RR *rp)
669 3e0d8fb3 2005-12-27 devnull RR *next;
671 3e0d8fb3 2005-12-27 devnull for(; rp; rp = next){
672 3e0d8fb3 2005-12-27 devnull next = rp->next;
673 3e0d8fb3 2005-12-27 devnull rrfree(rp);
677 3e0d8fb3 2005-12-27 devnull extern RR**
678 3e0d8fb3 2005-12-27 devnull rrcopy(RR *rp, RR **last)
680 3e0d8fb3 2005-12-27 devnull RR *nrp;
681 3e0d8fb3 2005-12-27 devnull SOA *soa;
682 3e0d8fb3 2005-12-27 devnull Key *key;
683 3e0d8fb3 2005-12-27 devnull Cert *cert;
684 3e0d8fb3 2005-12-27 devnull Sig *sig;
685 3e0d8fb3 2005-12-27 devnull Null *null;
686 3e0d8fb3 2005-12-27 devnull Txt *t, *nt, **l;
688 3e0d8fb3 2005-12-27 devnull nrp = rralloc(rp->type);
689 3e0d8fb3 2005-12-27 devnull switch(rp->type){
690 3e0d8fb3 2005-12-27 devnull case Ttxt:
691 3e0d8fb3 2005-12-27 devnull *nrp = *rp;
692 3e0d8fb3 2005-12-27 devnull l = &nrp->txt;
693 3e0d8fb3 2005-12-27 devnull *l = nil;
694 3e0d8fb3 2005-12-27 devnull for(t = rp->txt; t != nil; t = t->next){
695 3e0d8fb3 2005-12-27 devnull nt = emalloc(sizeof(*nt));
696 3e0d8fb3 2005-12-27 devnull nt->p = estrdup(t->p);
697 3e0d8fb3 2005-12-27 devnull nt->next = nil;
698 3e0d8fb3 2005-12-27 devnull *l = nt;
699 3e0d8fb3 2005-12-27 devnull l = &nt->next;
702 3e0d8fb3 2005-12-27 devnull case Tsoa:
703 3e0d8fb3 2005-12-27 devnull soa = nrp->soa;
704 3e0d8fb3 2005-12-27 devnull *nrp = *rp;
705 3e0d8fb3 2005-12-27 devnull nrp->soa = soa;
706 3e0d8fb3 2005-12-27 devnull *nrp->soa = *rp->soa;
707 3e0d8fb3 2005-12-27 devnull nrp->soa->slaves = copyserverlist(rp->soa->slaves);
709 3e0d8fb3 2005-12-27 devnull case Tkey:
710 3e0d8fb3 2005-12-27 devnull key = nrp->key;
711 3e0d8fb3 2005-12-27 devnull *nrp = *rp;
712 3e0d8fb3 2005-12-27 devnull nrp->key = key;
713 3e0d8fb3 2005-12-27 devnull *key = *rp->key;
714 3e0d8fb3 2005-12-27 devnull key->data = emalloc(key->dlen);
715 3e0d8fb3 2005-12-27 devnull memmove(key->data, rp->key->data, rp->key->dlen);
717 3e0d8fb3 2005-12-27 devnull case Tsig:
718 3e0d8fb3 2005-12-27 devnull sig = nrp->sig;
719 3e0d8fb3 2005-12-27 devnull *nrp = *rp;
720 3e0d8fb3 2005-12-27 devnull nrp->sig = sig;
721 3e0d8fb3 2005-12-27 devnull *sig = *rp->sig;
722 3e0d8fb3 2005-12-27 devnull sig->data = emalloc(sig->dlen);
723 3e0d8fb3 2005-12-27 devnull memmove(sig->data, rp->sig->data, rp->sig->dlen);
725 3e0d8fb3 2005-12-27 devnull case Tcert:
726 3e0d8fb3 2005-12-27 devnull cert = nrp->cert;
727 3e0d8fb3 2005-12-27 devnull *nrp = *rp;
728 3e0d8fb3 2005-12-27 devnull nrp->cert = cert;
729 3e0d8fb3 2005-12-27 devnull *cert = *rp->cert;
730 3e0d8fb3 2005-12-27 devnull cert->data = emalloc(cert->dlen);
731 3e0d8fb3 2005-12-27 devnull memmove(cert->data, rp->cert->data, rp->cert->dlen);
733 3e0d8fb3 2005-12-27 devnull case Tnull:
734 3e0d8fb3 2005-12-27 devnull null = nrp->null;
735 3e0d8fb3 2005-12-27 devnull *nrp = *rp;
736 3e0d8fb3 2005-12-27 devnull nrp->null = null;
737 3e0d8fb3 2005-12-27 devnull *null = *rp->null;
738 3e0d8fb3 2005-12-27 devnull null->data = emalloc(null->dlen);
739 3e0d8fb3 2005-12-27 devnull memmove(null->data, rp->null->data, rp->null->dlen);
741 3e0d8fb3 2005-12-27 devnull default:
742 3e0d8fb3 2005-12-27 devnull *nrp = *rp;
745 3e0d8fb3 2005-12-27 devnull nrp->cached = 0;
746 3e0d8fb3 2005-12-27 devnull nrp->next = 0;
747 3e0d8fb3 2005-12-27 devnull *last = nrp;
748 3e0d8fb3 2005-12-27 devnull return &nrp->next;
752 3e0d8fb3 2005-12-27 devnull * lookup a resource record of a particular type and
753 3e0d8fb3 2005-12-27 devnull * class attached to a domain name. Return copies.
755 3e0d8fb3 2005-12-27 devnull * Priority ordering is:
756 3e0d8fb3 2005-12-27 devnull * db authoritative
757 3e0d8fb3 2005-12-27 devnull * not timed out network authoritative
758 3e0d8fb3 2005-12-27 devnull * not timed out network unauthoritative
759 3e0d8fb3 2005-12-27 devnull * unauthoritative db
761 3e0d8fb3 2005-12-27 devnull * if flag NOneg is set, don't return negative cached entries.
762 3e0d8fb3 2005-12-27 devnull * return nothing instead.
765 3e0d8fb3 2005-12-27 devnull rrlookup(DN *dp, int type, int flag)
767 3e0d8fb3 2005-12-27 devnull RR *rp, *first, **last;
769 3e0d8fb3 2005-12-27 devnull assert(dp->magic == DNmagic);
771 3e0d8fb3 2005-12-27 devnull first = 0;
772 3e0d8fb3 2005-12-27 devnull last = &first;
773 3e0d8fb3 2005-12-27 devnull lock(&dnlock);
775 3e0d8fb3 2005-12-27 devnull /* try for an authoritative db entry */
776 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next){
777 3e0d8fb3 2005-12-27 devnull assert(rp->magic == RRmagic && rp->cached);
778 3e0d8fb3 2005-12-27 devnull if(rp->db)
779 3e0d8fb3 2005-12-27 devnull if(rp->auth)
780 3e0d8fb3 2005-12-27 devnull if(tsame(type, rp->type))
781 3e0d8fb3 2005-12-27 devnull last = rrcopy(rp, last);
783 3e0d8fb3 2005-12-27 devnull if(first)
784 3e0d8fb3 2005-12-27 devnull goto out;
786 3e0d8fb3 2005-12-27 devnull /* try for an living authoritative network entry */
787 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next){
788 3e0d8fb3 2005-12-27 devnull if(!rp->db)
789 3e0d8fb3 2005-12-27 devnull if(rp->auth)
790 3e0d8fb3 2005-12-27 devnull if(rp->ttl + 60 > now)
791 3e0d8fb3 2005-12-27 devnull if(tsame(type, rp->type)){
792 3e0d8fb3 2005-12-27 devnull if(flag == NOneg && rp->negative)
793 3e0d8fb3 2005-12-27 devnull goto out;
794 3e0d8fb3 2005-12-27 devnull last = rrcopy(rp, last);
797 3e0d8fb3 2005-12-27 devnull if(first)
798 3e0d8fb3 2005-12-27 devnull goto out;
800 3e0d8fb3 2005-12-27 devnull /* try for an living unauthoritative network entry */
801 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next){
802 3e0d8fb3 2005-12-27 devnull if(!rp->db)
803 3e0d8fb3 2005-12-27 devnull if(rp->ttl + 60 > now)
804 3e0d8fb3 2005-12-27 devnull if(tsame(type, rp->type)){
805 3e0d8fb3 2005-12-27 devnull if(flag == NOneg && rp->negative)
806 3e0d8fb3 2005-12-27 devnull goto out;
807 3e0d8fb3 2005-12-27 devnull last = rrcopy(rp, last);
810 3e0d8fb3 2005-12-27 devnull if(first)
811 3e0d8fb3 2005-12-27 devnull goto out;
813 3e0d8fb3 2005-12-27 devnull /* try for an unauthoritative db entry */
814 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next){
815 3e0d8fb3 2005-12-27 devnull if(rp->db)
816 3e0d8fb3 2005-12-27 devnull if(tsame(type, rp->type))
817 3e0d8fb3 2005-12-27 devnull last = rrcopy(rp, last);
819 3e0d8fb3 2005-12-27 devnull if(first)
820 3e0d8fb3 2005-12-27 devnull goto out;
822 3e0d8fb3 2005-12-27 devnull /* otherwise, settle for anything we got (except for negative caches) */
823 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next){
824 3e0d8fb3 2005-12-27 devnull if(tsame(type, rp->type)){
825 3e0d8fb3 2005-12-27 devnull if(rp->negative)
826 3e0d8fb3 2005-12-27 devnull goto out;
827 3e0d8fb3 2005-12-27 devnull last = rrcopy(rp, last);
832 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
833 3e0d8fb3 2005-12-27 devnull unique(first);
834 3e0d8fb3 2005-12-27 devnull return first;
838 3e0d8fb3 2005-12-27 devnull * convert an ascii RR type name to its integer representation
841 3e0d8fb3 2005-12-27 devnull rrtype(char *atype)
845 3e0d8fb3 2005-12-27 devnull for(i = 0; i <= Tall; i++)
846 3e0d8fb3 2005-12-27 devnull if(rrtname[i] && strcmp(rrtname[i], atype) == 0)
847 3e0d8fb3 2005-12-27 devnull return i;
849 3e0d8fb3 2005-12-27 devnull // make any a synonym for all
850 3e0d8fb3 2005-12-27 devnull if(strcmp(atype, "any") == 0)
851 3e0d8fb3 2005-12-27 devnull return Tall;
852 3e0d8fb3 2005-12-27 devnull return atoi(atype);
856 3e0d8fb3 2005-12-27 devnull * convert an integer RR type to it's ascii name
859 3e0d8fb3 2005-12-27 devnull rrname(int type, char *buf, int len)
861 3e0d8fb3 2005-12-27 devnull char *t;
864 3e0d8fb3 2005-12-27 devnull if(type <= Tall)
865 3e0d8fb3 2005-12-27 devnull t = rrtname[type];
866 3e0d8fb3 2005-12-27 devnull if(t==0){
867 3e0d8fb3 2005-12-27 devnull snprint(buf, len, "%d", type);
868 3e0d8fb3 2005-12-27 devnull t = buf;
870 3e0d8fb3 2005-12-27 devnull return t;
874 3e0d8fb3 2005-12-27 devnull * return 0 if not a supported rr type
877 3e0d8fb3 2005-12-27 devnull rrsupported(int type)
879 3e0d8fb3 2005-12-27 devnull if(type < 0 || type >Tall)
880 3e0d8fb3 2005-12-27 devnull return 0;
881 3e0d8fb3 2005-12-27 devnull return rrtname[type] != 0;
885 3e0d8fb3 2005-12-27 devnull * compare 2 types
888 3e0d8fb3 2005-12-27 devnull tsame(int t1, int t2)
890 3e0d8fb3 2005-12-27 devnull return t1 == t2 || t1 == Tall;
894 3e0d8fb3 2005-12-27 devnull * Add resource records to a list, duplicate them if they are cached
895 3e0d8fb3 2005-12-27 devnull * RR's since these are shared.
898 3e0d8fb3 2005-12-27 devnull rrcat(RR **start, RR *rp)
900 3e0d8fb3 2005-12-27 devnull RR **last;
902 3e0d8fb3 2005-12-27 devnull last = start;
903 3e0d8fb3 2005-12-27 devnull while(*last != 0)
904 3e0d8fb3 2005-12-27 devnull last = &(*last)->next;
906 3e0d8fb3 2005-12-27 devnull *last = rp;
907 3e0d8fb3 2005-12-27 devnull return *start;
911 3e0d8fb3 2005-12-27 devnull * remove negative cache rr's from an rr list
914 3e0d8fb3 2005-12-27 devnull rrremneg(RR **l)
916 3e0d8fb3 2005-12-27 devnull RR **nl, *rp;
917 3e0d8fb3 2005-12-27 devnull RR *first;
919 3e0d8fb3 2005-12-27 devnull first = nil;
920 3e0d8fb3 2005-12-27 devnull nl = &first;
921 3e0d8fb3 2005-12-27 devnull while(*l != nil){
922 3e0d8fb3 2005-12-27 devnull rp = *l;
923 3e0d8fb3 2005-12-27 devnull if(rp->negative){
924 3e0d8fb3 2005-12-27 devnull *l = rp->next;
925 3e0d8fb3 2005-12-27 devnull *nl = rp;
926 3e0d8fb3 2005-12-27 devnull nl = &rp->next;
927 3e0d8fb3 2005-12-27 devnull *nl = nil;
929 3e0d8fb3 2005-12-27 devnull l = &rp->next;
932 3e0d8fb3 2005-12-27 devnull return first;
936 3e0d8fb3 2005-12-27 devnull * remove rr's of a particular type from an rr list
939 3e0d8fb3 2005-12-27 devnull rrremtype(RR **l, int type)
941 3e0d8fb3 2005-12-27 devnull RR **nl, *rp;
942 3e0d8fb3 2005-12-27 devnull RR *first;
944 3e0d8fb3 2005-12-27 devnull first = nil;
945 3e0d8fb3 2005-12-27 devnull nl = &first;
946 3e0d8fb3 2005-12-27 devnull while(*l != nil){
947 3e0d8fb3 2005-12-27 devnull rp = *l;
948 3e0d8fb3 2005-12-27 devnull if(rp->type == type){
949 3e0d8fb3 2005-12-27 devnull *l = rp->next;
950 3e0d8fb3 2005-12-27 devnull *nl = rp;
951 3e0d8fb3 2005-12-27 devnull nl = &rp->next;
952 3e0d8fb3 2005-12-27 devnull *nl = nil;
954 3e0d8fb3 2005-12-27 devnull l = &(*l)->next;
957 3e0d8fb3 2005-12-27 devnull return first;
961 3e0d8fb3 2005-12-27 devnull * print conversion for rr records
964 3e0d8fb3 2005-12-27 devnull rrfmt(Fmt *f)
967 3e0d8fb3 2005-12-27 devnull char *strp;
968 3e0d8fb3 2005-12-27 devnull Fmt fstr;
970 3e0d8fb3 2005-12-27 devnull char buf[Domlen];
971 3e0d8fb3 2005-12-27 devnull Server *s;
974 3e0d8fb3 2005-12-27 devnull fmtstrinit(&fstr);
976 3e0d8fb3 2005-12-27 devnull rp = va_arg(f->args, RR*);
977 3e0d8fb3 2005-12-27 devnull if(rp == 0){
978 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "<null>");
979 3e0d8fb3 2005-12-27 devnull goto out;
982 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "%s %s", rp->owner->name,
983 3e0d8fb3 2005-12-27 devnull rrname(rp->type, buf, sizeof buf));
985 3e0d8fb3 2005-12-27 devnull if(rp->negative){
986 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\tnegative - rcode %d", rp->negrcode);
987 3e0d8fb3 2005-12-27 devnull goto out;
990 3e0d8fb3 2005-12-27 devnull switch(rp->type){
991 3e0d8fb3 2005-12-27 devnull case Thinfo:
992 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%s %s", rp->cpu->name, rp->os->name);
994 3e0d8fb3 2005-12-27 devnull case Tcname:
995 3e0d8fb3 2005-12-27 devnull case Tmb:
996 3e0d8fb3 2005-12-27 devnull case Tmd:
997 3e0d8fb3 2005-12-27 devnull case Tmf:
998 3e0d8fb3 2005-12-27 devnull case Tns:
999 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%s", rp->host->name);
1001 3e0d8fb3 2005-12-27 devnull case Tmg:
1002 3e0d8fb3 2005-12-27 devnull case Tmr:
1003 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%s", rp->mb->name);
1005 3e0d8fb3 2005-12-27 devnull case Tminfo:
1006 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%s %s", rp->mb->name, rp->rmb->name);
1008 3e0d8fb3 2005-12-27 devnull case Tmx:
1009 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%lud %s", rp->pref, rp->host->name);
1011 3e0d8fb3 2005-12-27 devnull case Ta:
1012 3e0d8fb3 2005-12-27 devnull case Taaaa:
1013 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%s", rp->ip->name);
1015 3e0d8fb3 2005-12-27 devnull case Tptr:
1016 3e0d8fb3 2005-12-27 devnull // fmtprint(&fstr, "\t%s(%lud)", rp->ptr->name, rp->ptr->ordinal);
1017 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%s", rp->ptr->name);
1019 3e0d8fb3 2005-12-27 devnull case Tsoa:
1020 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%s %s %lud %lud %lud %lud %lud", rp->host->name,
1021 3e0d8fb3 2005-12-27 devnull rp->rmb->name, rp->soa->serial, rp->soa->refresh, rp->soa->retry,
1022 3e0d8fb3 2005-12-27 devnull rp->soa->expire, rp->soa->minttl);
1023 3e0d8fb3 2005-12-27 devnull for(s = rp->soa->slaves; s != nil; s = s->next)
1024 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " %s", s->name);
1026 3e0d8fb3 2005-12-27 devnull case Tnull:
1027 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%.*H", rp->null->dlen, rp->null->data);
1029 3e0d8fb3 2005-12-27 devnull case Ttxt:
1030 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t");
1031 3e0d8fb3 2005-12-27 devnull for(t = rp->txt; t != nil; t = t->next)
1032 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "%s", t->p);
1034 3e0d8fb3 2005-12-27 devnull case Trp:
1035 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%s %s", rp->rmb->name, rp->rp->name);
1037 3e0d8fb3 2005-12-27 devnull case Tkey:
1038 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%d %d %d", rp->key->flags, rp->key->proto,
1039 3e0d8fb3 2005-12-27 devnull rp->key->alg);
1041 3e0d8fb3 2005-12-27 devnull case Tsig:
1042 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%d %d %d %lud %lud %lud %d %s",
1043 3e0d8fb3 2005-12-27 devnull rp->sig->type, rp->sig->alg, rp->sig->labels, rp->sig->ttl,
1044 3e0d8fb3 2005-12-27 devnull rp->sig->exp, rp->sig->incep, rp->sig->tag, rp->sig->signer->name);
1046 3e0d8fb3 2005-12-27 devnull case Tcert:
1047 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\t%d %d %d",
1048 3e0d8fb3 2005-12-27 devnull rp->sig->type, rp->sig->tag, rp->sig->alg);
1050 3e0d8fb3 2005-12-27 devnull default:
1054 3e0d8fb3 2005-12-27 devnull strp = fmtstrflush(&fstr);
1055 3e0d8fb3 2005-12-27 devnull rv = fmtstrcpy(f, strp);
1056 3e0d8fb3 2005-12-27 devnull free(strp);
1057 3e0d8fb3 2005-12-27 devnull return rv;
1061 3e0d8fb3 2005-12-27 devnull * print conversion for rr records in attribute value form
1064 3e0d8fb3 2005-12-27 devnull rravfmt(Fmt *f)
1066 3e0d8fb3 2005-12-27 devnull RR *rp;
1067 3e0d8fb3 2005-12-27 devnull char *strp;
1068 3e0d8fb3 2005-12-27 devnull Fmt fstr;
1069 3e0d8fb3 2005-12-27 devnull int rv;
1070 3e0d8fb3 2005-12-27 devnull Server *s;
1071 3e0d8fb3 2005-12-27 devnull Txt *t;
1072 3e0d8fb3 2005-12-27 devnull int quote;
1074 3e0d8fb3 2005-12-27 devnull fmtstrinit(&fstr);
1076 3e0d8fb3 2005-12-27 devnull rp = va_arg(f->args, RR*);
1077 3e0d8fb3 2005-12-27 devnull if(rp == 0){
1078 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "<null>");
1079 3e0d8fb3 2005-12-27 devnull goto out;
1082 3e0d8fb3 2005-12-27 devnull if(rp->type == Tptr)
1083 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "ptr=%s", rp->owner->name);
1085 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "dom=%s", rp->owner->name);
1087 3e0d8fb3 2005-12-27 devnull switch(rp->type){
1088 3e0d8fb3 2005-12-27 devnull case Thinfo:
1089 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " cpu=%s os=%s", rp->cpu->name, rp->os->name);
1091 3e0d8fb3 2005-12-27 devnull case Tcname:
1092 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " cname=%s", rp->host->name);
1094 3e0d8fb3 2005-12-27 devnull case Tmb:
1095 3e0d8fb3 2005-12-27 devnull case Tmd:
1096 3e0d8fb3 2005-12-27 devnull case Tmf:
1097 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " mbox=%s", rp->host->name);
1099 3e0d8fb3 2005-12-27 devnull case Tns:
1100 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " ns=%s", rp->host->name);
1102 3e0d8fb3 2005-12-27 devnull case Tmg:
1103 3e0d8fb3 2005-12-27 devnull case Tmr:
1104 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " mbox=%s", rp->mb->name);
1106 3e0d8fb3 2005-12-27 devnull case Tminfo:
1107 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " mbox=%s mbox=%s", rp->mb->name, rp->rmb->name);
1109 3e0d8fb3 2005-12-27 devnull case Tmx:
1110 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " pref=%lud mx=%s", rp->pref, rp->host->name);
1112 3e0d8fb3 2005-12-27 devnull case Ta:
1113 3e0d8fb3 2005-12-27 devnull case Taaaa:
1114 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " ip=%s", rp->ip->name);
1116 3e0d8fb3 2005-12-27 devnull case Tptr:
1117 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " dom=%s", rp->ptr->name);
1119 3e0d8fb3 2005-12-27 devnull case Tsoa:
1120 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " ns=%s mbox=%s serial=%lud refresh=%lud retry=%lud expire=%lud ttl=%lud",
1121 3e0d8fb3 2005-12-27 devnull rp->host->name, rp->rmb->name, rp->soa->serial,
1122 3e0d8fb3 2005-12-27 devnull rp->soa->refresh, rp->soa->retry,
1123 3e0d8fb3 2005-12-27 devnull rp->soa->expire, rp->soa->minttl);
1124 3e0d8fb3 2005-12-27 devnull for(s = rp->soa->slaves; s != nil; s = s->next)
1125 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " dnsslave=%s", s->name);
1127 3e0d8fb3 2005-12-27 devnull case Tnull:
1128 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " null=%.*H", rp->null->dlen, rp->null->data);
1130 3e0d8fb3 2005-12-27 devnull case Ttxt:
1131 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " txt=");
1132 3e0d8fb3 2005-12-27 devnull quote = 0;
1133 3e0d8fb3 2005-12-27 devnull for(t = rp->txt; t != nil; t = t->next)
1134 3e0d8fb3 2005-12-27 devnull if(strchr(t->p, ' '))
1135 3e0d8fb3 2005-12-27 devnull quote = 1;
1136 3e0d8fb3 2005-12-27 devnull if(quote)
1137 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\"");
1138 3e0d8fb3 2005-12-27 devnull for(t = rp->txt; t != nil; t = t->next)
1139 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "%s", t->p);
1140 3e0d8fb3 2005-12-27 devnull if(quote)
1141 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, "\"");
1143 3e0d8fb3 2005-12-27 devnull case Trp:
1144 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " rp=%s txt=%s", rp->rmb->name, rp->rp->name);
1146 3e0d8fb3 2005-12-27 devnull case Tkey:
1147 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " flags=%d proto=%d alg=%d",
1148 3e0d8fb3 2005-12-27 devnull rp->key->flags, rp->key->proto, rp->key->alg);
1150 3e0d8fb3 2005-12-27 devnull case Tsig:
1151 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " type=%d alg=%d labels=%d ttl=%lud exp=%lud incep=%lud tag=%d signer=%s",
1152 3e0d8fb3 2005-12-27 devnull rp->sig->type, rp->sig->alg, rp->sig->labels, rp->sig->ttl,
1153 3e0d8fb3 2005-12-27 devnull rp->sig->exp, rp->sig->incep, rp->sig->tag, rp->sig->signer->name);
1155 3e0d8fb3 2005-12-27 devnull case Tcert:
1156 3e0d8fb3 2005-12-27 devnull fmtprint(&fstr, " type=%d tag=%d alg=%d",
1157 3e0d8fb3 2005-12-27 devnull rp->sig->type, rp->sig->tag, rp->sig->alg);
1159 3e0d8fb3 2005-12-27 devnull default:
1163 3e0d8fb3 2005-12-27 devnull strp = fmtstrflush(&fstr);
1164 3e0d8fb3 2005-12-27 devnull rv = fmtstrcpy(f, strp);
1165 3e0d8fb3 2005-12-27 devnull free(strp);
1166 3e0d8fb3 2005-12-27 devnull return rv;
1170 3e0d8fb3 2005-12-27 devnull warning(char *fmt, ...)
1172 3e0d8fb3 2005-12-27 devnull char dnserr[128];
1173 3e0d8fb3 2005-12-27 devnull va_list arg;
1175 3e0d8fb3 2005-12-27 devnull va_start(arg, fmt);
1176 3e0d8fb3 2005-12-27 devnull vseprint(dnserr, dnserr+sizeof(dnserr), fmt, arg);
1177 3e0d8fb3 2005-12-27 devnull va_end(arg);
1178 3e0d8fb3 2005-12-27 devnull syslog(1, "dns", dnserr);
1182 3e0d8fb3 2005-12-27 devnull * create a slave process to handle a request to avoid one request blocking
1183 3e0d8fb3 2005-12-27 devnull * another
1186 3e0d8fb3 2005-12-27 devnull slave(Request *req)
1188 3e0d8fb3 2005-12-27 devnull static int slaveid;
1190 3e0d8fb3 2005-12-27 devnull if(req->isslave)
1191 3e0d8fb3 2005-12-27 devnull return; /* we're already a slave process */
1193 3e0d8fb3 2005-12-27 devnull /* limit parallelism */
1194 3e0d8fb3 2005-12-27 devnull if(getactivity(req) > Maxactive){
1195 3e0d8fb3 2005-12-27 devnull putactivity();
1196 3e0d8fb3 2005-12-27 devnull return;
1199 3e0d8fb3 2005-12-27 devnull switch(rfork(RFPROC|RFNOTEG|RFMEM|RFNOWAIT)){
1200 3e0d8fb3 2005-12-27 devnull case -1:
1201 3e0d8fb3 2005-12-27 devnull putactivity();
1203 3e0d8fb3 2005-12-27 devnull case 0:
1204 3e0d8fb3 2005-12-27 devnull req->isslave = 1;
1206 3e0d8fb3 2005-12-27 devnull default:
1207 3e0d8fb3 2005-12-27 devnull longjmp(req->mret, 1);
1212 3e0d8fb3 2005-12-27 devnull * chasing down double free's
1215 3e0d8fb3 2005-12-27 devnull dncheck(void *p, int dolock)
1218 3e0d8fb3 2005-12-27 devnull DN *dp;
1219 3e0d8fb3 2005-12-27 devnull RR *rp;
1221 3e0d8fb3 2005-12-27 devnull if(p != nil){
1222 3e0d8fb3 2005-12-27 devnull dp = p;
1223 3e0d8fb3 2005-12-27 devnull assert(dp->magic == DNmagic);
1226 3e0d8fb3 2005-12-27 devnull if(!testing)
1227 3e0d8fb3 2005-12-27 devnull return;
1229 3e0d8fb3 2005-12-27 devnull if(dolock)
1230 3e0d8fb3 2005-12-27 devnull lock(&dnlock);
1231 3e0d8fb3 2005-12-27 devnull for(i = 0; i < HTLEN; i++)
1232 3e0d8fb3 2005-12-27 devnull for(dp = ht[i]; dp; dp = dp->next){
1233 3e0d8fb3 2005-12-27 devnull assert(dp != p);
1234 3e0d8fb3 2005-12-27 devnull assert(dp->magic == DNmagic);
1235 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next){
1236 3e0d8fb3 2005-12-27 devnull assert(rp->magic == RRmagic);
1237 3e0d8fb3 2005-12-27 devnull assert(rp->cached);
1238 3e0d8fb3 2005-12-27 devnull assert(rp->owner == dp);
1241 3e0d8fb3 2005-12-27 devnull if(dolock)
1242 3e0d8fb3 2005-12-27 devnull unlock(&dnlock);
1245 3e0d8fb3 2005-12-27 devnull static int
1246 3e0d8fb3 2005-12-27 devnull rrequiv(RR *r1, RR *r2)
1248 3e0d8fb3 2005-12-27 devnull return r1->owner == r2->owner
1249 3e0d8fb3 2005-12-27 devnull && r1->type == r2->type
1250 3e0d8fb3 2005-12-27 devnull && r1->arg0 == r2->arg0
1251 3e0d8fb3 2005-12-27 devnull && r1->arg1 == r2->arg1;
1255 3e0d8fb3 2005-12-27 devnull unique(RR *rp)
1257 3e0d8fb3 2005-12-27 devnull RR **l, *nrp;
1259 3e0d8fb3 2005-12-27 devnull for(; rp; rp = rp->next){
1260 3e0d8fb3 2005-12-27 devnull l = &rp->next;
1261 3e0d8fb3 2005-12-27 devnull for(nrp = *l; nrp; nrp = *l){
1262 3e0d8fb3 2005-12-27 devnull if(rrequiv(rp, nrp)){
1263 3e0d8fb3 2005-12-27 devnull *l = nrp->next;
1264 3e0d8fb3 2005-12-27 devnull rrfree(nrp);
1266 3e0d8fb3 2005-12-27 devnull l = &nrp->next;
1272 3e0d8fb3 2005-12-27 devnull * true if second domain is subsumed by the first
1275 3e0d8fb3 2005-12-27 devnull subsume(char *higher, char *lower)
1277 3e0d8fb3 2005-12-27 devnull int hn, ln;
1279 3e0d8fb3 2005-12-27 devnull ln = strlen(lower);
1280 3e0d8fb3 2005-12-27 devnull hn = strlen(higher);
1281 3e0d8fb3 2005-12-27 devnull if(ln < hn)
1282 3e0d8fb3 2005-12-27 devnull return 0;
1284 3e0d8fb3 2005-12-27 devnull if(cistrcmp(lower + ln - hn, higher) != 0)
1285 3e0d8fb3 2005-12-27 devnull return 0;
1287 3e0d8fb3 2005-12-27 devnull if(ln > hn && hn != 0 && lower[ln - hn - 1] != '.')
1288 3e0d8fb3 2005-12-27 devnull return 0;
1290 3e0d8fb3 2005-12-27 devnull return 1;
1294 3e0d8fb3 2005-12-27 devnull * randomize the order we return items to provide some
1295 3e0d8fb3 2005-12-27 devnull * load balancing for servers.
1297 3e0d8fb3 2005-12-27 devnull * only randomize the first class of entries
1300 3e0d8fb3 2005-12-27 devnull randomize(RR *rp)
1302 3e0d8fb3 2005-12-27 devnull RR *first, *last, *x, *base;
1303 3e0d8fb3 2005-12-27 devnull ulong n;
1305 3e0d8fb3 2005-12-27 devnull if(rp == nil || rp->next == nil)
1306 3e0d8fb3 2005-12-27 devnull return rp;
1308 3e0d8fb3 2005-12-27 devnull /* just randomize addresses and mx's */
1309 3e0d8fb3 2005-12-27 devnull for(x = rp; x; x = x->next)
1310 3e0d8fb3 2005-12-27 devnull if(x->type != Ta && x->type != Tmx && x->type != Tns)
1311 3e0d8fb3 2005-12-27 devnull return rp;
1313 3e0d8fb3 2005-12-27 devnull base = rp;
1315 3e0d8fb3 2005-12-27 devnull n = rand();
1316 3e0d8fb3 2005-12-27 devnull last = first = nil;
1317 3e0d8fb3 2005-12-27 devnull while(rp != nil){
1318 3e0d8fb3 2005-12-27 devnull /* stop randomizing if we've moved past our class */
1319 3e0d8fb3 2005-12-27 devnull if(base->auth != rp->auth || base->db != rp->db){
1320 3e0d8fb3 2005-12-27 devnull last->next = rp;
1324 3e0d8fb3 2005-12-27 devnull /* unchain */
1325 3e0d8fb3 2005-12-27 devnull x = rp;
1326 3e0d8fb3 2005-12-27 devnull rp = x->next;
1327 3e0d8fb3 2005-12-27 devnull x->next = nil;
1329 3e0d8fb3 2005-12-27 devnull if(n&1){
1330 3e0d8fb3 2005-12-27 devnull /* add to tail */
1331 3e0d8fb3 2005-12-27 devnull if(last == nil)
1332 3e0d8fb3 2005-12-27 devnull first = x;
1334 3e0d8fb3 2005-12-27 devnull last->next = x;
1335 3e0d8fb3 2005-12-27 devnull last = x;
1336 3e0d8fb3 2005-12-27 devnull } else {
1337 3e0d8fb3 2005-12-27 devnull /* add to head */
1338 3e0d8fb3 2005-12-27 devnull if(last == nil)
1339 3e0d8fb3 2005-12-27 devnull last = x;
1340 3e0d8fb3 2005-12-27 devnull x->next = first;
1341 3e0d8fb3 2005-12-27 devnull first = x;
1344 3e0d8fb3 2005-12-27 devnull /* reroll the dice */
1345 3e0d8fb3 2005-12-27 devnull n >>= 1;
1347 3e0d8fb3 2005-12-27 devnull return first;
1350 3e0d8fb3 2005-12-27 devnull static int
1351 3e0d8fb3 2005-12-27 devnull sencodefmt(Fmt *f)
1353 3e0d8fb3 2005-12-27 devnull char *out;
1354 3e0d8fb3 2005-12-27 devnull char *buf;
1355 3e0d8fb3 2005-12-27 devnull int i, len;
1356 3e0d8fb3 2005-12-27 devnull int ilen;
1357 3e0d8fb3 2005-12-27 devnull int rv;
1358 3e0d8fb3 2005-12-27 devnull uchar *b;
1359 3e0d8fb3 2005-12-27 devnull char obuf[64]; // rsc optimization
1361 3e0d8fb3 2005-12-27 devnull if(!(f->flags&FmtPrec) || f->prec < 1)
1362 3e0d8fb3 2005-12-27 devnull goto error;
1364 3e0d8fb3 2005-12-27 devnull b = va_arg(f->args, uchar*);
1365 3e0d8fb3 2005-12-27 devnull if(b == nil)
1366 3e0d8fb3 2005-12-27 devnull goto error;
1368 3e0d8fb3 2005-12-27 devnull /* if it's a printable, go for it */
1369 3e0d8fb3 2005-12-27 devnull len = f->prec;
1370 3e0d8fb3 2005-12-27 devnull for(i = 0; i < len; i++)
1371 3e0d8fb3 2005-12-27 devnull if(!isprint(b[i]))
1373 3e0d8fb3 2005-12-27 devnull if(i == len){
1374 3e0d8fb3 2005-12-27 devnull if(len >= sizeof obuf)
1375 3e0d8fb3 2005-12-27 devnull len = sizeof(obuf)-1;
1376 3e0d8fb3 2005-12-27 devnull memmove(obuf, b, len);
1377 3e0d8fb3 2005-12-27 devnull obuf[len] = 0;
1378 3e0d8fb3 2005-12-27 devnull fmtstrcpy(f, obuf);
1379 3e0d8fb3 2005-12-27 devnull return 0;
1382 3e0d8fb3 2005-12-27 devnull ilen = f->prec;
1383 3e0d8fb3 2005-12-27 devnull f->prec = 0;
1384 3e0d8fb3 2005-12-27 devnull f->flags &= ~FmtPrec;
1385 3e0d8fb3 2005-12-27 devnull switch(f->r){
1386 3e0d8fb3 2005-12-27 devnull case '<':
1387 3e0d8fb3 2005-12-27 devnull len = (8*ilen+4)/5 + 3;
1389 3e0d8fb3 2005-12-27 devnull case '[':
1390 3e0d8fb3 2005-12-27 devnull len = (8*ilen+5)/6 + 4;
1392 3e0d8fb3 2005-12-27 devnull case 'H':
1393 3e0d8fb3 2005-12-27 devnull len = 2*ilen + 1;
1395 3e0d8fb3 2005-12-27 devnull default:
1396 3e0d8fb3 2005-12-27 devnull goto error;
1399 3e0d8fb3 2005-12-27 devnull if(len > sizeof(obuf)){
1400 3e0d8fb3 2005-12-27 devnull buf = malloc(len);
1401 3e0d8fb3 2005-12-27 devnull if(buf == nil)
1402 3e0d8fb3 2005-12-27 devnull goto error;
1404 3e0d8fb3 2005-12-27 devnull buf = obuf;
1406 3e0d8fb3 2005-12-27 devnull // convert
1407 3e0d8fb3 2005-12-27 devnull out = buf;
1408 3e0d8fb3 2005-12-27 devnull switch(f->r){
1409 3e0d8fb3 2005-12-27 devnull case '<':
1410 3e0d8fb3 2005-12-27 devnull rv = enc32(out, len, b, ilen);
1412 3e0d8fb3 2005-12-27 devnull case '[':
1413 3e0d8fb3 2005-12-27 devnull rv = enc64(out, len, b, ilen);
1415 3e0d8fb3 2005-12-27 devnull case 'H':
1416 3e0d8fb3 2005-12-27 devnull rv = enc16(out, len, b, ilen);
1418 3e0d8fb3 2005-12-27 devnull default:
1419 3e0d8fb3 2005-12-27 devnull rv = -1;
1422 3e0d8fb3 2005-12-27 devnull if(rv < 0)
1423 3e0d8fb3 2005-12-27 devnull goto error;
1425 3e0d8fb3 2005-12-27 devnull fmtstrcpy(f, buf);
1426 3e0d8fb3 2005-12-27 devnull if(buf != obuf)
1427 3e0d8fb3 2005-12-27 devnull free(buf);
1428 3e0d8fb3 2005-12-27 devnull return 0;
1431 3e0d8fb3 2005-12-27 devnull return fmtstrcpy(f, "<encodefmt>");
1436 3e0d8fb3 2005-12-27 devnull emalloc(int size)
1438 3e0d8fb3 2005-12-27 devnull char *x;
1440 3e0d8fb3 2005-12-27 devnull x = mallocz(size, 1);
1441 3e0d8fb3 2005-12-27 devnull if(x == nil)
1442 3e0d8fb3 2005-12-27 devnull abort();
1443 3e0d8fb3 2005-12-27 devnull setmalloctag(x, getcallerpc(&size));
1444 3e0d8fb3 2005-12-27 devnull return x;
1448 3e0d8fb3 2005-12-27 devnull estrdup(char *s)
1450 3e0d8fb3 2005-12-27 devnull int size;
1451 3e0d8fb3 2005-12-27 devnull char *p;
1453 3e0d8fb3 2005-12-27 devnull size = strlen(s)+1;
1454 3e0d8fb3 2005-12-27 devnull p = mallocz(size, 0);
1455 3e0d8fb3 2005-12-27 devnull if(p == nil)
1456 3e0d8fb3 2005-12-27 devnull abort();
1457 3e0d8fb3 2005-12-27 devnull memmove(p, s, size);
1458 3e0d8fb3 2005-12-27 devnull setmalloctag(p, getcallerpc(&s));
1459 3e0d8fb3 2005-12-27 devnull return p;
1463 3e0d8fb3 2005-12-27 devnull * create a pointer record
1465 3e0d8fb3 2005-12-27 devnull static RR*
1466 3e0d8fb3 2005-12-27 devnull mkptr(DN *dp, char *ptr, ulong ttl)
1468 3e0d8fb3 2005-12-27 devnull DN *ipdp;
1469 3e0d8fb3 2005-12-27 devnull RR *rp;
1471 3e0d8fb3 2005-12-27 devnull ipdp = dnlookup(ptr, Cin, 1);
1473 3e0d8fb3 2005-12-27 devnull rp = rralloc(Tptr);
1474 3e0d8fb3 2005-12-27 devnull rp->ptr = dp;
1475 3e0d8fb3 2005-12-27 devnull rp->owner = ipdp;
1476 3e0d8fb3 2005-12-27 devnull rp->db = 1;
1477 3e0d8fb3 2005-12-27 devnull if(ttl)
1478 3e0d8fb3 2005-12-27 devnull rp->ttl = ttl;
1479 3e0d8fb3 2005-12-27 devnull return rp;
1483 3e0d8fb3 2005-12-27 devnull * look for all ip addresses in this network and make
1484 3e0d8fb3 2005-12-27 devnull * pointer records for them.
1487 3e0d8fb3 2005-12-27 devnull dnptr(uchar *net, uchar *mask, char *dom, int bytes, int ttl)
1489 3e0d8fb3 2005-12-27 devnull int i, j;
1490 3e0d8fb3 2005-12-27 devnull DN *dp;
1491 3e0d8fb3 2005-12-27 devnull RR *rp, *nrp, *first, **l;
1492 3e0d8fb3 2005-12-27 devnull uchar ip[IPaddrlen];
1493 3e0d8fb3 2005-12-27 devnull uchar nnet[IPaddrlen];
1494 3e0d8fb3 2005-12-27 devnull char ptr[Domlen];
1495 3e0d8fb3 2005-12-27 devnull char *p, *e;
1497 3e0d8fb3 2005-12-27 devnull l = &first;
1498 3e0d8fb3 2005-12-27 devnull first = nil;
1499 3e0d8fb3 2005-12-27 devnull for(i = 0; i < HTLEN; i++){
1500 3e0d8fb3 2005-12-27 devnull for(dp = ht[i]; dp; dp = dp->next){
1501 3e0d8fb3 2005-12-27 devnull for(rp = dp->rr; rp; rp = rp->next){
1502 3e0d8fb3 2005-12-27 devnull if(rp->type != Ta || rp->negative)
1503 3e0d8fb3 2005-12-27 devnull continue;
1504 3e0d8fb3 2005-12-27 devnull parseip(ip, rp->ip->name);
1505 3e0d8fb3 2005-12-27 devnull maskip(ip, mask, nnet);
1506 3e0d8fb3 2005-12-27 devnull if(ipcmp(net, nnet) != 0)
1507 3e0d8fb3 2005-12-27 devnull continue;
1508 3e0d8fb3 2005-12-27 devnull p = ptr;
1509 3e0d8fb3 2005-12-27 devnull e = ptr+sizeof(ptr);
1510 3e0d8fb3 2005-12-27 devnull for(j = IPaddrlen-1; j >= IPaddrlen-bytes; j--)
1511 3e0d8fb3 2005-12-27 devnull p = seprint(p, e, "%d.", ip[j]);
1512 3e0d8fb3 2005-12-27 devnull seprint(p, e, "%s", dom);
1513 3e0d8fb3 2005-12-27 devnull nrp = mkptr(dp, ptr, ttl);
1514 3e0d8fb3 2005-12-27 devnull *l = nrp;
1515 3e0d8fb3 2005-12-27 devnull l = &nrp->next;
1520 3e0d8fb3 2005-12-27 devnull for(rp = first; rp != nil; rp = nrp){
1521 3e0d8fb3 2005-12-27 devnull nrp = rp->next;
1522 3e0d8fb3 2005-12-27 devnull rp->next = nil;
1523 3e0d8fb3 2005-12-27 devnull rrattach(rp, 1);
1528 3e0d8fb3 2005-12-27 devnull freeserverlist(Server *s)
1530 3e0d8fb3 2005-12-27 devnull Server *next;
1532 3e0d8fb3 2005-12-27 devnull for(; s != nil; s = next){
1533 3e0d8fb3 2005-12-27 devnull next = s->next;
1534 3e0d8fb3 2005-12-27 devnull free(s);
1539 3e0d8fb3 2005-12-27 devnull addserver(Server **l, char *name)
1541 3e0d8fb3 2005-12-27 devnull Server *s;
1543 3e0d8fb3 2005-12-27 devnull while(*l)
1544 3e0d8fb3 2005-12-27 devnull l = &(*l)->next;
1545 3e0d8fb3 2005-12-27 devnull s = malloc(sizeof(Server)+strlen(name)+1);
1546 3e0d8fb3 2005-12-27 devnull if(s == nil)
1547 3e0d8fb3 2005-12-27 devnull return;
1548 3e0d8fb3 2005-12-27 devnull s->name = (char*)(s+1);
1549 3e0d8fb3 2005-12-27 devnull strcpy(s->name, name);
1550 3e0d8fb3 2005-12-27 devnull s->next = nil;
1551 3e0d8fb3 2005-12-27 devnull *l = s;
1554 3e0d8fb3 2005-12-27 devnull Server*
1555 3e0d8fb3 2005-12-27 devnull copyserverlist(Server *s)
1557 3e0d8fb3 2005-12-27 devnull Server *ns;
1560 3e0d8fb3 2005-12-27 devnull for(ns = nil; s != nil; s = s->next)
1561 3e0d8fb3 2005-12-27 devnull addserver(&ns, s->name);
1562 3e0d8fb3 2005-12-27 devnull return ns;
