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 5c9f76b5 2006-02-14 devnull #include <thread.h>
   8 3e0d8fb3 2005-12-27 devnull #include "dns.h"
   9 3e0d8fb3 2005-12-27 devnull 
  10 3e0d8fb3 2005-12-27 devnull /*
  11 3e0d8fb3 2005-12-27 devnull  *  Hash table for domain names.  The hash is based only on the
  12 3e0d8fb3 2005-12-27 devnull  *  first element of the domain name.
  13 3e0d8fb3 2005-12-27 devnull  */
  14 3e0d8fb3 2005-12-27 devnull DN	*ht[HTLEN];
  15 3e0d8fb3 2005-12-27 devnull 
  16 3e0d8fb3 2005-12-27 devnull 
  17 3e0d8fb3 2005-12-27 devnull static struct
  18 3e0d8fb3 2005-12-27 devnull {
  19 3e0d8fb3 2005-12-27 devnull 	Lock	lk;
  20 3e0d8fb3 2005-12-27 devnull 	ulong	names;	/* names allocated */
  21 3e0d8fb3 2005-12-27 devnull 	ulong	oldest;	/* longest we'll leave a name around */
  22 3e0d8fb3 2005-12-27 devnull 	int	active;
  23 3e0d8fb3 2005-12-27 devnull 	int	mutex;
  24 3e0d8fb3 2005-12-27 devnull 	int	id;
  25 3e0d8fb3 2005-12-27 devnull } dnvars;
  26 3e0d8fb3 2005-12-27 devnull 
  27 3e0d8fb3 2005-12-27 devnull /* names of RR types */
  28 226d80b8 2006-04-01 devnull char *rrtname[Tall+2] =
  29 3e0d8fb3 2005-12-27 devnull {
  30 226d80b8 2006-04-01 devnull 	nil,
  31 226d80b8 2006-04-01 devnull 	"ip",
  32 226d80b8 2006-04-01 devnull 	"ns",
  33 226d80b8 2006-04-01 devnull 	"md",
  34 226d80b8 2006-04-01 devnull 	"mf",
  35 226d80b8 2006-04-01 devnull 	"cname",
  36 226d80b8 2006-04-01 devnull 	"soa",
  37 226d80b8 2006-04-01 devnull 	"mb",
  38 226d80b8 2006-04-01 devnull 	"mg",
  39 226d80b8 2006-04-01 devnull 	"mr",
  40 226d80b8 2006-04-01 devnull 	"null",
  41 226d80b8 2006-04-01 devnull 	"wks",
  42 226d80b8 2006-04-01 devnull 	"ptr",
  43 226d80b8 2006-04-01 devnull 	"hinfo",
  44 226d80b8 2006-04-01 devnull 	"minfo",
  45 226d80b8 2006-04-01 devnull 	"mx",
  46 226d80b8 2006-04-01 devnull 	"txt",
  47 226d80b8 2006-04-01 devnull 	"rp",
  48 226d80b8 2006-04-01 devnull 	nil,
  49 226d80b8 2006-04-01 devnull 	nil,
  50 226d80b8 2006-04-01 devnull 	nil,
  51 226d80b8 2006-04-01 devnull 	nil,
  52 226d80b8 2006-04-01 devnull 	nil,
  53 226d80b8 2006-04-01 devnull 	nil,
  54 226d80b8 2006-04-01 devnull 	"sig",
  55 226d80b8 2006-04-01 devnull 	"key",
  56 226d80b8 2006-04-01 devnull 	nil,
  57 226d80b8 2006-04-01 devnull 	nil,
  58 226d80b8 2006-04-01 devnull 	"aaaa",
  59 226d80b8 2006-04-01 devnull 	nil,
  60 226d80b8 2006-04-01 devnull 	nil,
  61 226d80b8 2006-04-01 devnull 	nil,
  62 226d80b8 2006-04-01 devnull 	nil,
  63 226d80b8 2006-04-01 devnull 	nil,
  64 226d80b8 2006-04-01 devnull 	nil,
  65 226d80b8 2006-04-01 devnull 	nil,
  66 226d80b8 2006-04-01 devnull 	nil,
  67 226d80b8 2006-04-01 devnull 	"cert",
  68 226d80b8 2006-04-01 devnull 	nil,
  69 226d80b8 2006-04-01 devnull 	nil,
  70 fa325e9b 2020-01-10 cross 
  71 226d80b8 2006-04-01 devnull /* 40 */	nil, nil, nil, nil, nil, nil, nil, nil,
  72 226d80b8 2006-04-01 devnull /* 48 */	nil, nil, nil, nil, nil, nil, nil, nil,
  73 226d80b8 2006-04-01 devnull /* 56 */	nil, nil, nil, nil, nil, nil, nil, nil,
  74 226d80b8 2006-04-01 devnull /* 64 */	nil, nil, nil, nil, nil, nil, nil, nil,
  75 226d80b8 2006-04-01 devnull /* 72 */	nil, nil, nil, nil, nil, nil, nil, nil,
  76 226d80b8 2006-04-01 devnull /* 80 */	nil, nil, nil, nil, nil, nil, nil, nil,
  77 226d80b8 2006-04-01 devnull /* 88 */	nil, nil, nil, nil, nil, nil, nil, nil,
  78 226d80b8 2006-04-01 devnull /* 96 */	nil, nil, nil, nil, nil, nil, nil, nil,
  79 226d80b8 2006-04-01 devnull /* 104 */	nil, nil, nil, nil, nil, nil, nil, nil,
  80 226d80b8 2006-04-01 devnull /* 112 */	nil, nil, nil, nil, nil, nil, nil, nil,
  81 226d80b8 2006-04-01 devnull /* 120 */	nil, nil, nil, nil, nil, nil, nil, nil,
  82 226d80b8 2006-04-01 devnull /* 128 */	nil, nil, nil, nil, nil, nil, nil, nil,
  83 226d80b8 2006-04-01 devnull /* 136 */	nil, nil, nil, nil, nil, nil, nil, nil,
  84 226d80b8 2006-04-01 devnull /* 144 */	nil, nil, nil, nil, nil, nil, nil, nil,
  85 226d80b8 2006-04-01 devnull /* 152 */	nil, nil, nil, nil, nil, nil, nil, nil,
  86 226d80b8 2006-04-01 devnull /* 160 */	nil, nil, nil, nil, nil, nil, nil, nil,
  87 226d80b8 2006-04-01 devnull /* 168 */	nil, nil, nil, nil, nil, nil, nil, nil,
  88 226d80b8 2006-04-01 devnull /* 176 */	nil, nil, nil, nil, nil, nil, nil, nil,
  89 226d80b8 2006-04-01 devnull /* 184 */	nil, nil, nil, nil, nil, nil, nil, nil,
  90 226d80b8 2006-04-01 devnull /* 192 */	nil, nil, nil, nil, nil, nil, nil, nil,
  91 226d80b8 2006-04-01 devnull /* 200 */	nil, nil, nil, nil, nil, nil, nil, nil,
  92 226d80b8 2006-04-01 devnull /* 208 */	nil, nil, nil, nil, nil, nil, nil, nil,
  93 226d80b8 2006-04-01 devnull /* 216 */	nil, nil, nil, nil, nil, nil, nil, nil,
  94 226d80b8 2006-04-01 devnull /* 224 */	nil, nil, nil, nil, nil, nil, nil, nil,
  95 226d80b8 2006-04-01 devnull /* 232 */	nil, nil, nil, nil, nil, nil, nil, nil,
  96 226d80b8 2006-04-01 devnull /* 240 */	nil, nil, nil, nil, nil, nil, nil, nil,
  97 fa325e9b 2020-01-10 cross /* 248 */	nil, nil, nil,
  98 226d80b8 2006-04-01 devnull 
  99 226d80b8 2006-04-01 devnull 	"ixfr",
 100 226d80b8 2006-04-01 devnull 	"axfr",
 101 226d80b8 2006-04-01 devnull 	"mailb",
 102 226d80b8 2006-04-01 devnull 	nil,
 103 226d80b8 2006-04-01 devnull 	"all",
 104 226d80b8 2006-04-01 devnull 	nil
 105 3e0d8fb3 2005-12-27 devnull };
 106 3e0d8fb3 2005-12-27 devnull 
 107 3e0d8fb3 2005-12-27 devnull /* names of response codes */
 108 3e0d8fb3 2005-12-27 devnull char *rname[Rmask+1] =
 109 3e0d8fb3 2005-12-27 devnull {
 110 226d80b8 2006-04-01 devnull 	"ok",
 111 226d80b8 2006-04-01 devnull 	"format error",
 112 226d80b8 2006-04-01 devnull 	"server failure",
 113 226d80b8 2006-04-01 devnull 	"bad name",
 114 226d80b8 2006-04-01 devnull 	"unimplemented",
 115 cbeb0b26 2006-04-01 devnull 	"we don't like you"
 116 3e0d8fb3 2005-12-27 devnull };
 117 3e0d8fb3 2005-12-27 devnull 
 118 3e0d8fb3 2005-12-27 devnull Lock	dnlock;
 119 3e0d8fb3 2005-12-27 devnull 
 120 3e0d8fb3 2005-12-27 devnull static int sencodefmt(Fmt*);
 121 3e0d8fb3 2005-12-27 devnull 
 122 3e0d8fb3 2005-12-27 devnull /*
 123 3e0d8fb3 2005-12-27 devnull  *  set up a pipe to use as a lock
 124 3e0d8fb3 2005-12-27 devnull  */
 125 3e0d8fb3 2005-12-27 devnull void
 126 3e0d8fb3 2005-12-27 devnull dninit(void)
 127 3e0d8fb3 2005-12-27 devnull {
 128 3e0d8fb3 2005-12-27 devnull 	fmtinstall('E', eipfmt);
 129 3e0d8fb3 2005-12-27 devnull 	fmtinstall('I', eipfmt);
 130 3e0d8fb3 2005-12-27 devnull 	fmtinstall('V', eipfmt);
 131 3e0d8fb3 2005-12-27 devnull 	fmtinstall('R', rrfmt);
 132 3e0d8fb3 2005-12-27 devnull 	fmtinstall('Q', rravfmt);
 133 3e0d8fb3 2005-12-27 devnull 	fmtinstall('H', sencodefmt);
 134 3e0d8fb3 2005-12-27 devnull 
 135 3e0d8fb3 2005-12-27 devnull 	dnvars.oldest = maxage;
 136 3e0d8fb3 2005-12-27 devnull 	dnvars.names = 0;
 137 3e0d8fb3 2005-12-27 devnull }
 138 3e0d8fb3 2005-12-27 devnull 
 139 3e0d8fb3 2005-12-27 devnull /*
 140 3e0d8fb3 2005-12-27 devnull  *  hash for a domain name
 141 3e0d8fb3 2005-12-27 devnull  */
 142 3e0d8fb3 2005-12-27 devnull static ulong
 143 3e0d8fb3 2005-12-27 devnull dnhash(char *name)
 144 3e0d8fb3 2005-12-27 devnull {
 145 3e0d8fb3 2005-12-27 devnull 	ulong hash;
 146 3e0d8fb3 2005-12-27 devnull 	uchar *val = (uchar*)name;
 147 3e0d8fb3 2005-12-27 devnull 
 148 3e0d8fb3 2005-12-27 devnull 	for(hash = 0; *val; val++)
 149 3e0d8fb3 2005-12-27 devnull 		hash = (hash*13) + tolower(*val)-'a';
 150 3e0d8fb3 2005-12-27 devnull 	return hash % HTLEN;
 151 3e0d8fb3 2005-12-27 devnull }
 152 3e0d8fb3 2005-12-27 devnull 
 153 3e0d8fb3 2005-12-27 devnull /*
 154 3e0d8fb3 2005-12-27 devnull  *  lookup a symbol.  if enter is not zero and the name is
 155 3e0d8fb3 2005-12-27 devnull  *  not found, create it.
 156 3e0d8fb3 2005-12-27 devnull  */
 157 3e0d8fb3 2005-12-27 devnull DN*
 158 3e0d8fb3 2005-12-27 devnull dnlookup(char *name, int class, int enter)
 159 3e0d8fb3 2005-12-27 devnull {
 160 3e0d8fb3 2005-12-27 devnull 	DN **l;
 161 3e0d8fb3 2005-12-27 devnull 	DN *dp;
 162 3e0d8fb3 2005-12-27 devnull 
 163 3e0d8fb3 2005-12-27 devnull 	l = &ht[dnhash(name)];
 164 3e0d8fb3 2005-12-27 devnull 	lock(&dnlock);
 165 3e0d8fb3 2005-12-27 devnull 	for(dp = *l; dp; dp = dp->next) {
 166 3e0d8fb3 2005-12-27 devnull 		assert(dp->magic == DNmagic);
 167 3e0d8fb3 2005-12-27 devnull 		if(dp->class == class && cistrcmp(dp->name, name) == 0){
 168 3e0d8fb3 2005-12-27 devnull 			dp->referenced = now;
 169 3e0d8fb3 2005-12-27 devnull 			unlock(&dnlock);
 170 3e0d8fb3 2005-12-27 devnull 			return dp;
 171 3e0d8fb3 2005-12-27 devnull 		}
 172 3e0d8fb3 2005-12-27 devnull 		l = &dp->next;
 173 3e0d8fb3 2005-12-27 devnull 	}
 174 3e0d8fb3 2005-12-27 devnull 	if(enter == 0){
 175 3e0d8fb3 2005-12-27 devnull 		unlock(&dnlock);
 176 3e0d8fb3 2005-12-27 devnull 		return 0;
 177 3e0d8fb3 2005-12-27 devnull 	}
 178 3e0d8fb3 2005-12-27 devnull 	dnvars.names++;
 179 3e0d8fb3 2005-12-27 devnull 	dp = emalloc(sizeof(*dp));
 180 3e0d8fb3 2005-12-27 devnull 	dp->magic = DNmagic;
 181 3e0d8fb3 2005-12-27 devnull 	dp->name = estrdup(name);
 182 3e0d8fb3 2005-12-27 devnull 	assert(dp->name != 0);
 183 3e0d8fb3 2005-12-27 devnull 	dp->class = class;
 184 3e0d8fb3 2005-12-27 devnull 	dp->rr = 0;
 185 3e0d8fb3 2005-12-27 devnull 	dp->next = 0;
 186 3e0d8fb3 2005-12-27 devnull 	dp->referenced = now;
 187 3e0d8fb3 2005-12-27 devnull 	*l = dp;
 188 3e0d8fb3 2005-12-27 devnull 	unlock(&dnlock);
 189 3e0d8fb3 2005-12-27 devnull 
 190 3e0d8fb3 2005-12-27 devnull 	return dp;
 191 3e0d8fb3 2005-12-27 devnull }
 192 3e0d8fb3 2005-12-27 devnull 
 193 3e0d8fb3 2005-12-27 devnull /*
 194 3e0d8fb3 2005-12-27 devnull  *  dump the cache
 195 3e0d8fb3 2005-12-27 devnull  */
 196 3e0d8fb3 2005-12-27 devnull void
 197 3e0d8fb3 2005-12-27 devnull dndump(char *file)
 198 3e0d8fb3 2005-12-27 devnull {
 199 3e0d8fb3 2005-12-27 devnull 	DN *dp;
 200 3e0d8fb3 2005-12-27 devnull 	int i, fd;
 201 3e0d8fb3 2005-12-27 devnull 	RR *rp;
 202 3e0d8fb3 2005-12-27 devnull 
 203 3e0d8fb3 2005-12-27 devnull 	fd = open(file, OWRITE|OTRUNC);
 204 3e0d8fb3 2005-12-27 devnull 	if(fd < 0)
 205 3e0d8fb3 2005-12-27 devnull 		return;
 206 3e0d8fb3 2005-12-27 devnull 	lock(&dnlock);
 207 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < HTLEN; i++){
 208 3e0d8fb3 2005-12-27 devnull 		for(dp = ht[i]; dp; dp = dp->next){
 209 3e0d8fb3 2005-12-27 devnull 			fprint(fd, "%s\n", dp->name);
 210 3e0d8fb3 2005-12-27 devnull 			for(rp = dp->rr; rp; rp = rp->next)
 211 3e0d8fb3 2005-12-27 devnull 				fprint(fd, "	%R %c%c %lud/%lud\n", rp, rp->auth?'A':'U',
 212 3e0d8fb3 2005-12-27 devnull 					rp->db?'D':'N', rp->expire, rp->ttl);
 213 3e0d8fb3 2005-12-27 devnull 		}
 214 3e0d8fb3 2005-12-27 devnull 	}
 215 3e0d8fb3 2005-12-27 devnull 	unlock(&dnlock);
 216 3e0d8fb3 2005-12-27 devnull 	close(fd);
 217 3e0d8fb3 2005-12-27 devnull }
 218 3e0d8fb3 2005-12-27 devnull 
 219 3e0d8fb3 2005-12-27 devnull /*
 220 3e0d8fb3 2005-12-27 devnull  *  purge all records
 221 3e0d8fb3 2005-12-27 devnull  */
 222 3e0d8fb3 2005-12-27 devnull void
 223 3e0d8fb3 2005-12-27 devnull dnpurge(void)
 224 3e0d8fb3 2005-12-27 devnull {
 225 3e0d8fb3 2005-12-27 devnull 	DN *dp;
 226 3e0d8fb3 2005-12-27 devnull 	RR *rp, *srp;
 227 3e0d8fb3 2005-12-27 devnull 	int i;
 228 3e0d8fb3 2005-12-27 devnull 
 229 3e0d8fb3 2005-12-27 devnull 	lock(&dnlock);
 230 3e0d8fb3 2005-12-27 devnull 
 231 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < HTLEN; i++)
 232 3e0d8fb3 2005-12-27 devnull 		for(dp = ht[i]; dp; dp = dp->next){
 233 3e0d8fb3 2005-12-27 devnull 			srp = rp = dp->rr;
 234 3e0d8fb3 2005-12-27 devnull 			dp->rr = nil;
 235 3e0d8fb3 2005-12-27 devnull 			for(; rp != nil; rp = rp->next)
 236 3e0d8fb3 2005-12-27 devnull 				rp->cached = 0;
 237 3e0d8fb3 2005-12-27 devnull 			rrfreelist(srp);
 238 3e0d8fb3 2005-12-27 devnull 		}
 239 3e0d8fb3 2005-12-27 devnull 
 240 3e0d8fb3 2005-12-27 devnull 	unlock(&dnlock);
 241 3e0d8fb3 2005-12-27 devnull }
 242 3e0d8fb3 2005-12-27 devnull 
 243 3e0d8fb3 2005-12-27 devnull /*
 244 3e0d8fb3 2005-12-27 devnull  *  check the age of resource records, free any that have timed out
 245 3e0d8fb3 2005-12-27 devnull  */
 246 3e0d8fb3 2005-12-27 devnull void
 247 3e0d8fb3 2005-12-27 devnull dnage(DN *dp)
 248 3e0d8fb3 2005-12-27 devnull {
 249 3e0d8fb3 2005-12-27 devnull 	RR **l;
 250 3e0d8fb3 2005-12-27 devnull 	RR *rp, *next;
 251 3e0d8fb3 2005-12-27 devnull 	ulong diff;
 252 3e0d8fb3 2005-12-27 devnull 
 253 3e0d8fb3 2005-12-27 devnull 	diff = now - dp->referenced;
 254 3e0d8fb3 2005-12-27 devnull 	if(diff < Reserved)
 255 3e0d8fb3 2005-12-27 devnull 		return;
 256 3e0d8fb3 2005-12-27 devnull 
 257 3e0d8fb3 2005-12-27 devnull 	l = &dp->rr;
 258 3e0d8fb3 2005-12-27 devnull 	for(rp = dp->rr; rp; rp = next){
 259 3e0d8fb3 2005-12-27 devnull 		assert(rp->magic == RRmagic && rp->cached);
 260 3e0d8fb3 2005-12-27 devnull 		next = rp->next;
 261 3e0d8fb3 2005-12-27 devnull 		if(!rp->db)
 262 3e0d8fb3 2005-12-27 devnull 		if(rp->expire < now || diff > dnvars.oldest){
 263 3e0d8fb3 2005-12-27 devnull 			*l = next;
 264 3e0d8fb3 2005-12-27 devnull 			rp->cached = 0;
 265 3e0d8fb3 2005-12-27 devnull 			rrfree(rp);
 266 3e0d8fb3 2005-12-27 devnull 			continue;
 267 3e0d8fb3 2005-12-27 devnull 		}
 268 3e0d8fb3 2005-12-27 devnull 		l = &rp->next;
 269 3e0d8fb3 2005-12-27 devnull 	}
 270 3e0d8fb3 2005-12-27 devnull }
 271 3e0d8fb3 2005-12-27 devnull 
 272 3e0d8fb3 2005-12-27 devnull #define REF(x) if(x) x->refs++
 273 3e0d8fb3 2005-12-27 devnull 
 274 3e0d8fb3 2005-12-27 devnull /*
 275 3e0d8fb3 2005-12-27 devnull  *  our target is 4000 names cached, this should be larger on large servers
 276 3e0d8fb3 2005-12-27 devnull  */
 277 3e0d8fb3 2005-12-27 devnull #define TARGET 4000
 278 3e0d8fb3 2005-12-27 devnull 
 279 3e0d8fb3 2005-12-27 devnull /*
 280 3e0d8fb3 2005-12-27 devnull  *  periodicly sweep for old records and remove unreferenced domain names
 281 3e0d8fb3 2005-12-27 devnull  *
 282 3e0d8fb3 2005-12-27 devnull  *  only called when all other threads are locked out
 283 3e0d8fb3 2005-12-27 devnull  */
 284 3e0d8fb3 2005-12-27 devnull void
 285 3e0d8fb3 2005-12-27 devnull dnageall(int doit)
 286 3e0d8fb3 2005-12-27 devnull {
 287 3e0d8fb3 2005-12-27 devnull 	DN *dp, **l;
 288 3e0d8fb3 2005-12-27 devnull 	int i;
 289 3e0d8fb3 2005-12-27 devnull 	RR *rp;
 290 3e0d8fb3 2005-12-27 devnull 	static ulong nextage;
 291 3e0d8fb3 2005-12-27 devnull 
 292 3e0d8fb3 2005-12-27 devnull 	if(dnvars.names < TARGET && now < nextage && !doit){
 293 3e0d8fb3 2005-12-27 devnull 		dnvars.oldest = maxage;
 294 3e0d8fb3 2005-12-27 devnull 		return;
 295 3e0d8fb3 2005-12-27 devnull 	}
 296 3e0d8fb3 2005-12-27 devnull 
 297 3e0d8fb3 2005-12-27 devnull 	if(dnvars.names > TARGET)
 298 3e0d8fb3 2005-12-27 devnull 		dnvars.oldest /= 2;
 299 3e0d8fb3 2005-12-27 devnull 	nextage = now + maxage;
 300 3e0d8fb3 2005-12-27 devnull 
 301 3e0d8fb3 2005-12-27 devnull 	lock(&dnlock);
 302 3e0d8fb3 2005-12-27 devnull 
 303 3e0d8fb3 2005-12-27 devnull 	/* time out all old entries (and set refs to 0) */
 304 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < HTLEN; i++)
 305 3e0d8fb3 2005-12-27 devnull 		for(dp = ht[i]; dp; dp = dp->next){
 306 3e0d8fb3 2005-12-27 devnull 			dp->refs = 0;
 307 3e0d8fb3 2005-12-27 devnull 			dnage(dp);
 308 3e0d8fb3 2005-12-27 devnull 		}
 309 3e0d8fb3 2005-12-27 devnull 
 310 3e0d8fb3 2005-12-27 devnull 	/* mark all referenced domain names */
 311 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < HTLEN; i++)
 312 3e0d8fb3 2005-12-27 devnull 		for(dp = ht[i]; dp; dp = dp->next)
 313 3e0d8fb3 2005-12-27 devnull 			for(rp = dp->rr; rp; rp = rp->next){
 314 3e0d8fb3 2005-12-27 devnull 				REF(rp->owner);
 315 3e0d8fb3 2005-12-27 devnull 				if(rp->negative){
 316 3e0d8fb3 2005-12-27 devnull 					REF(rp->negsoaowner);
 317 3e0d8fb3 2005-12-27 devnull 					continue;
 318 3e0d8fb3 2005-12-27 devnull 				}
 319 3e0d8fb3 2005-12-27 devnull 				switch(rp->type){
 320 3e0d8fb3 2005-12-27 devnull 				case Thinfo:
 321 3e0d8fb3 2005-12-27 devnull 					REF(rp->cpu);
 322 3e0d8fb3 2005-12-27 devnull 					REF(rp->os);
 323 3e0d8fb3 2005-12-27 devnull 					break;
 324 3e0d8fb3 2005-12-27 devnull 				case Ttxt:
 325 3e0d8fb3 2005-12-27 devnull 					break;
 326 3e0d8fb3 2005-12-27 devnull 				case Tcname:
 327 3e0d8fb3 2005-12-27 devnull 				case Tmb:
 328 3e0d8fb3 2005-12-27 devnull 				case Tmd:
 329 3e0d8fb3 2005-12-27 devnull 				case Tmf:
 330 3e0d8fb3 2005-12-27 devnull 				case Tns:
 331 3e0d8fb3 2005-12-27 devnull 					REF(rp->host);
 332 3e0d8fb3 2005-12-27 devnull 					break;
 333 3e0d8fb3 2005-12-27 devnull 				case Tmg:
 334 3e0d8fb3 2005-12-27 devnull 				case Tmr:
 335 3e0d8fb3 2005-12-27 devnull 					REF(rp->mb);
 336 3e0d8fb3 2005-12-27 devnull 					break;
 337 3e0d8fb3 2005-12-27 devnull 				case Tminfo:
 338 3e0d8fb3 2005-12-27 devnull 					REF(rp->rmb);
 339 3e0d8fb3 2005-12-27 devnull 					REF(rp->mb);
 340 3e0d8fb3 2005-12-27 devnull 					break;
 341 3e0d8fb3 2005-12-27 devnull 				case Trp:
 342 3e0d8fb3 2005-12-27 devnull 					REF(rp->rmb);
 343 3e0d8fb3 2005-12-27 devnull 					REF(rp->rp);
 344 3e0d8fb3 2005-12-27 devnull 					break;
 345 3e0d8fb3 2005-12-27 devnull 				case Tmx:
 346 3e0d8fb3 2005-12-27 devnull 					REF(rp->host);
 347 3e0d8fb3 2005-12-27 devnull 					break;
 348 3e0d8fb3 2005-12-27 devnull 				case Ta:
 349 3e0d8fb3 2005-12-27 devnull 				case Taaaa:
 350 3e0d8fb3 2005-12-27 devnull 					REF(rp->ip);
 351 3e0d8fb3 2005-12-27 devnull 					break;
 352 3e0d8fb3 2005-12-27 devnull 				case Tptr:
 353 3e0d8fb3 2005-12-27 devnull 					REF(rp->ptr);
 354 3e0d8fb3 2005-12-27 devnull 					break;
 355 3e0d8fb3 2005-12-27 devnull 				case Tsoa:
 356 3e0d8fb3 2005-12-27 devnull 					REF(rp->host);
 357 3e0d8fb3 2005-12-27 devnull 					REF(rp->rmb);
 358 3e0d8fb3 2005-12-27 devnull 					break;
 359 3e0d8fb3 2005-12-27 devnull 				}
 360 3e0d8fb3 2005-12-27 devnull 			}
 361 3e0d8fb3 2005-12-27 devnull 
 362 3e0d8fb3 2005-12-27 devnull 	/* sweep and remove unreferenced domain names */
 363 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < HTLEN; i++){
 364 3e0d8fb3 2005-12-27 devnull 		l = &ht[i];
 365 3e0d8fb3 2005-12-27 devnull 		for(dp = *l; dp; dp = *l){
 366 3e0d8fb3 2005-12-27 devnull 			if(dp->rr == 0 && dp->refs == 0){
 367 3e0d8fb3 2005-12-27 devnull 				assert(dp->magic == DNmagic);
 368 3e0d8fb3 2005-12-27 devnull 				*l = dp->next;
 369 3e0d8fb3 2005-12-27 devnull 				if(dp->name)
 370 3e0d8fb3 2005-12-27 devnull 					free(dp->name);
 371 3e0d8fb3 2005-12-27 devnull 				dp->magic = ~dp->magic;
 372 3e0d8fb3 2005-12-27 devnull 				dnvars.names--;
 373 3e0d8fb3 2005-12-27 devnull 				free(dp);
 374 3e0d8fb3 2005-12-27 devnull 				continue;
 375 3e0d8fb3 2005-12-27 devnull 			}
 376 3e0d8fb3 2005-12-27 devnull 			l = &dp->next;
 377 3e0d8fb3 2005-12-27 devnull 		}
 378 3e0d8fb3 2005-12-27 devnull 	}
 379 3e0d8fb3 2005-12-27 devnull 
 380 3e0d8fb3 2005-12-27 devnull 	unlock(&dnlock);
 381 3e0d8fb3 2005-12-27 devnull }
 382 3e0d8fb3 2005-12-27 devnull 
 383 3e0d8fb3 2005-12-27 devnull /*
 384 3e0d8fb3 2005-12-27 devnull  *  timeout all database records (used when rereading db)
 385 3e0d8fb3 2005-12-27 devnull  */
 386 3e0d8fb3 2005-12-27 devnull void
 387 3e0d8fb3 2005-12-27 devnull dnagedb(void)
 388 3e0d8fb3 2005-12-27 devnull {
 389 3e0d8fb3 2005-12-27 devnull 	DN *dp;
 390 3e0d8fb3 2005-12-27 devnull 	int i;
 391 3e0d8fb3 2005-12-27 devnull 	RR *rp;
 392 3e0d8fb3 2005-12-27 devnull 
 393 3e0d8fb3 2005-12-27 devnull 	lock(&dnlock);
 394 3e0d8fb3 2005-12-27 devnull 
 395 3e0d8fb3 2005-12-27 devnull 	/* time out all database entries */
 396 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < HTLEN; i++)
 397 3e0d8fb3 2005-12-27 devnull 		for(dp = ht[i]; dp; dp = dp->next)
 398 3e0d8fb3 2005-12-27 devnull 			for(rp = dp->rr; rp; rp = rp->next)
 399 3e0d8fb3 2005-12-27 devnull 				if(rp->db)
 400 3e0d8fb3 2005-12-27 devnull 					rp->expire = 0;
 401 3e0d8fb3 2005-12-27 devnull 
 402 3e0d8fb3 2005-12-27 devnull 	unlock(&dnlock);
 403 3e0d8fb3 2005-12-27 devnull }
 404 3e0d8fb3 2005-12-27 devnull 
 405 3e0d8fb3 2005-12-27 devnull /*
 406 3e0d8fb3 2005-12-27 devnull  *  mark all local db records about my area as authoritative, time out any others
 407 3e0d8fb3 2005-12-27 devnull  */
 408 3e0d8fb3 2005-12-27 devnull void
 409 3e0d8fb3 2005-12-27 devnull dnauthdb(void)
 410 3e0d8fb3 2005-12-27 devnull {
 411 3e0d8fb3 2005-12-27 devnull 	DN *dp;
 412 3e0d8fb3 2005-12-27 devnull 	int i;
 413 3e0d8fb3 2005-12-27 devnull 	Area *area;
 414 3e0d8fb3 2005-12-27 devnull 	RR *rp;
 415 3e0d8fb3 2005-12-27 devnull 
 416 3e0d8fb3 2005-12-27 devnull 	lock(&dnlock);
 417 3e0d8fb3 2005-12-27 devnull 
 418 3e0d8fb3 2005-12-27 devnull 	/* time out all database entries */
 419 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < HTLEN; i++)
 420 3e0d8fb3 2005-12-27 devnull 		for(dp = ht[i]; dp; dp = dp->next){
 421 3e0d8fb3 2005-12-27 devnull 			area = inmyarea(dp->name);
 422 3e0d8fb3 2005-12-27 devnull 			for(rp = dp->rr; rp; rp = rp->next)
 423 3e0d8fb3 2005-12-27 devnull 				if(rp->db){
 424 3e0d8fb3 2005-12-27 devnull 					if(area){
 425 3e0d8fb3 2005-12-27 devnull 						if(rp->ttl < area->soarr->soa->minttl)
 426 3e0d8fb3 2005-12-27 devnull 							rp->ttl = area->soarr->soa->minttl;
 427 3e0d8fb3 2005-12-27 devnull 						rp->auth = 1;
 428 3e0d8fb3 2005-12-27 devnull 					}
 429 3e0d8fb3 2005-12-27 devnull 					if(rp->expire == 0){
 430 3e0d8fb3 2005-12-27 devnull 						rp->db = 0;
 431 3e0d8fb3 2005-12-27 devnull 						dp->referenced = now - Reserved - 1;
 432 3e0d8fb3 2005-12-27 devnull 					}
 433 3e0d8fb3 2005-12-27 devnull 				}
 434 3e0d8fb3 2005-12-27 devnull 		}
 435 3e0d8fb3 2005-12-27 devnull 
 436 3e0d8fb3 2005-12-27 devnull 	unlock(&dnlock);
 437 3e0d8fb3 2005-12-27 devnull }
 438 3e0d8fb3 2005-12-27 devnull 
 439 3e0d8fb3 2005-12-27 devnull /*
 440 3e0d8fb3 2005-12-27 devnull  *  keep track of other processes to know if we can
 441 3e0d8fb3 2005-12-27 devnull  *  garbage collect.  block while garbage collecting.
 442 3e0d8fb3 2005-12-27 devnull  */
 443 3e0d8fb3 2005-12-27 devnull int
 444 3e0d8fb3 2005-12-27 devnull getactivity(Request *req)
 445 3e0d8fb3 2005-12-27 devnull {
 446 3e0d8fb3 2005-12-27 devnull 	int rv;
 447 3e0d8fb3 2005-12-27 devnull 
 448 5c9f76b5 2006-02-14 devnull 	if(traceactivity) syslog(0, "dns", "get %d by %d.%d", dnvars.active, getpid(), threadid());
 449 3e0d8fb3 2005-12-27 devnull 	lock(&dnvars.lk);
 450 3e0d8fb3 2005-12-27 devnull 	while(dnvars.mutex){
 451 3e0d8fb3 2005-12-27 devnull 		unlock(&dnvars.lk);
 452 3e0d8fb3 2005-12-27 devnull 		sleep(200);
 453 3e0d8fb3 2005-12-27 devnull 		lock(&dnvars.lk);
 454 3e0d8fb3 2005-12-27 devnull 	}
 455 3e0d8fb3 2005-12-27 devnull 	rv = ++dnvars.active;
 456 3e0d8fb3 2005-12-27 devnull 	now = time(0);
 457 3e0d8fb3 2005-12-27 devnull 	req->id = ++dnvars.id;
 458 3e0d8fb3 2005-12-27 devnull 	unlock(&dnvars.lk);
 459 3e0d8fb3 2005-12-27 devnull 
 460 3e0d8fb3 2005-12-27 devnull 	return rv;
 461 3e0d8fb3 2005-12-27 devnull }
 462 3e0d8fb3 2005-12-27 devnull void
 463 3e0d8fb3 2005-12-27 devnull putactivity(void)
 464 3e0d8fb3 2005-12-27 devnull {
 465 5c9f76b5 2006-02-14 devnull 	if(traceactivity) syslog(0, "dns", "put %d by %d.%d", dnvars.active, getpid(), threadid());
 466 3e0d8fb3 2005-12-27 devnull 	lock(&dnvars.lk);
 467 3e0d8fb3 2005-12-27 devnull 	dnvars.active--;
 468 3e0d8fb3 2005-12-27 devnull 	assert(dnvars.active >= 0); /* "dnvars.active %d", dnvars.active */;
 469 3e0d8fb3 2005-12-27 devnull 
 470 3e0d8fb3 2005-12-27 devnull 	/*
 471 3e0d8fb3 2005-12-27 devnull 	 *  clean out old entries and check for new db periodicly
 472 3e0d8fb3 2005-12-27 devnull 	 */
 473 3e0d8fb3 2005-12-27 devnull 	if(dnvars.mutex || (needrefresh == 0 && dnvars.active > 0)){
 474 3e0d8fb3 2005-12-27 devnull 		unlock(&dnvars.lk);
 475 3e0d8fb3 2005-12-27 devnull 		return;
 476 3e0d8fb3 2005-12-27 devnull 	}
 477 3e0d8fb3 2005-12-27 devnull 
 478 3e0d8fb3 2005-12-27 devnull 	/* wait till we're alone */
 479 3e0d8fb3 2005-12-27 devnull 	dnvars.mutex = 1;
 480 3e0d8fb3 2005-12-27 devnull 	while(dnvars.active > 0){
 481 3e0d8fb3 2005-12-27 devnull 		unlock(&dnvars.lk);
 482 3e0d8fb3 2005-12-27 devnull 		sleep(100);
 483 3e0d8fb3 2005-12-27 devnull 		lock(&dnvars.lk);
 484 3e0d8fb3 2005-12-27 devnull 	}
 485 3e0d8fb3 2005-12-27 devnull 	unlock(&dnvars.lk);
 486 3e0d8fb3 2005-12-27 devnull 
 487 3e0d8fb3 2005-12-27 devnull 	db2cache(needrefresh);
 488 3e0d8fb3 2005-12-27 devnull 	dnageall(0);
 489 3e0d8fb3 2005-12-27 devnull 
 490 3e0d8fb3 2005-12-27 devnull 	/* let others back in */
 491 3e0d8fb3 2005-12-27 devnull 	needrefresh = 0;
 492 3e0d8fb3 2005-12-27 devnull 	dnvars.mutex = 0;
 493 3e0d8fb3 2005-12-27 devnull }
 494 3e0d8fb3 2005-12-27 devnull 
 495 3e0d8fb3 2005-12-27 devnull /*
 496 3e0d8fb3 2005-12-27 devnull  *  Attach a single resource record to a domain name.
 497 3e0d8fb3 2005-12-27 devnull  *	- Avoid duplicates with already present RR's
 498 3e0d8fb3 2005-12-27 devnull  *	- Chain all RR's of the same type adjacent to one another
 499 3e0d8fb3 2005-12-27 devnull  *	- chain authoritative RR's ahead of non-authoritative ones
 500 3e0d8fb3 2005-12-27 devnull  */
 501 3e0d8fb3 2005-12-27 devnull static void
 502 3e0d8fb3 2005-12-27 devnull rrattach1(RR *new, int auth)
 503 3e0d8fb3 2005-12-27 devnull {
 504 3e0d8fb3 2005-12-27 devnull 	RR **l;
 505 3e0d8fb3 2005-12-27 devnull 	RR *rp;
 506 3e0d8fb3 2005-12-27 devnull 	DN *dp;
 507 3e0d8fb3 2005-12-27 devnull 
 508 3e0d8fb3 2005-12-27 devnull 	assert(new->magic == RRmagic && !new->cached);
 509 3e0d8fb3 2005-12-27 devnull 
 510 3e0d8fb3 2005-12-27 devnull 	if(!new->db)
 511 3e0d8fb3 2005-12-27 devnull 		new->expire = new->ttl;
 512 3e0d8fb3 2005-12-27 devnull 	else
 513 3e0d8fb3 2005-12-27 devnull 		new->expire = now + Year;
 514 3e0d8fb3 2005-12-27 devnull 	dp = new->owner;
 515 3e0d8fb3 2005-12-27 devnull 	assert(dp->magic == DNmagic);
 516 3e0d8fb3 2005-12-27 devnull 	new->auth |= auth;
 517 3e0d8fb3 2005-12-27 devnull 	new->next = 0;
 518 3e0d8fb3 2005-12-27 devnull 
 519 3e0d8fb3 2005-12-27 devnull 	/*
 520 3e0d8fb3 2005-12-27 devnull 	 *  find first rr of the right type
 521 3e0d8fb3 2005-12-27 devnull 	 */
 522 3e0d8fb3 2005-12-27 devnull 	l = &dp->rr;
 523 3e0d8fb3 2005-12-27 devnull 	for(rp = *l; rp; rp = *l){
 524 3e0d8fb3 2005-12-27 devnull 		assert(rp->magic == RRmagic && rp->cached);
 525 3e0d8fb3 2005-12-27 devnull 		if(rp->type == new->type)
 526 3e0d8fb3 2005-12-27 devnull 			break;
 527 3e0d8fb3 2005-12-27 devnull 		l = &rp->next;
 528 3e0d8fb3 2005-12-27 devnull 	}
 529 3e0d8fb3 2005-12-27 devnull 
 530 3e0d8fb3 2005-12-27 devnull 	/*
 531 3e0d8fb3 2005-12-27 devnull 	 *  negative entries replace positive entries
 532 3e0d8fb3 2005-12-27 devnull 	 *  positive entries replace negative entries
 533 3e0d8fb3 2005-12-27 devnull 	 *  newer entries replace older entries with the same fields
 534 3e0d8fb3 2005-12-27 devnull 	 */
 535 3e0d8fb3 2005-12-27 devnull 	for(rp = *l; rp; rp = *l){
 536 3e0d8fb3 2005-12-27 devnull 		assert(rp->magic == RRmagic && rp->cached);
 537 3e0d8fb3 2005-12-27 devnull 		if(rp->type != new->type)
 538 3e0d8fb3 2005-12-27 devnull 			break;
 539 3e0d8fb3 2005-12-27 devnull 
 540 3e0d8fb3 2005-12-27 devnull 		if(rp->db == new->db && rp->auth == new->auth){
 541 3e0d8fb3 2005-12-27 devnull 			/* negative drives out positive and vice versa */
 542 3e0d8fb3 2005-12-27 devnull 			if(rp->negative != new->negative){
 543 3e0d8fb3 2005-12-27 devnull 				*l = rp->next;
 544 3e0d8fb3 2005-12-27 devnull 				rp->cached = 0;
 545 3e0d8fb3 2005-12-27 devnull 				rrfree(rp);
 546 3e0d8fb3 2005-12-27 devnull 				continue;
 547 3e0d8fb3 2005-12-27 devnull 			}
 548 3e0d8fb3 2005-12-27 devnull 
 549 3e0d8fb3 2005-12-27 devnull 			/* all things equal, pick the newer one */
 550 3e0d8fb3 2005-12-27 devnull 			if(rp->arg0 == new->arg0 && rp->arg1 == new->arg1){
 551 3e0d8fb3 2005-12-27 devnull 				/* new drives out old */
 552 3e0d8fb3 2005-12-27 devnull 				if(new->ttl > rp->ttl || new->expire > rp->expire){
 553 3e0d8fb3 2005-12-27 devnull 					*l = rp->next;
 554 3e0d8fb3 2005-12-27 devnull 					rp->cached = 0;
 555 3e0d8fb3 2005-12-27 devnull 					rrfree(rp);
 556 3e0d8fb3 2005-12-27 devnull 					continue;
 557 3e0d8fb3 2005-12-27 devnull 				} else {
 558 3e0d8fb3 2005-12-27 devnull 					rrfree(new);
 559 3e0d8fb3 2005-12-27 devnull 					return;
 560 3e0d8fb3 2005-12-27 devnull 				}
 561 3e0d8fb3 2005-12-27 devnull 			}
 562 3e0d8fb3 2005-12-27 devnull 
 563 3e0d8fb3 2005-12-27 devnull 			/*  Hack for pointer records.  This makes sure
 564 3e0d8fb3 2005-12-27 devnull 			 *  the ordering in the list reflects the ordering
 565 3e0d8fb3 2005-12-27 devnull 			 *  received or read from the database
 566 3e0d8fb3 2005-12-27 devnull 			 */
 567 3e0d8fb3 2005-12-27 devnull 			if(rp->type == Tptr){
 568 3e0d8fb3 2005-12-27 devnull 				if(!rp->negative && !new->negative
 569 3e0d8fb3 2005-12-27 devnull 				&& rp->ptr->ordinal > new->ptr->ordinal)
 570 3e0d8fb3 2005-12-27 devnull 					break;
 571 3e0d8fb3 2005-12-27 devnull 			}
 572 3e0d8fb3 2005-12-27 devnull 		}
 573 3e0d8fb3 2005-12-27 devnull 		l = &rp->next;
 574 3e0d8fb3 2005-12-27 devnull 	}
 575 3e0d8fb3 2005-12-27 devnull 
 576 3e0d8fb3 2005-12-27 devnull 	/*
 577 3e0d8fb3 2005-12-27 devnull 	 *  add to chain
 578 3e0d8fb3 2005-12-27 devnull 	 */
 579 3e0d8fb3 2005-12-27 devnull 	new->cached = 1;
 580 3e0d8fb3 2005-12-27 devnull 	new->next = *l;
 581 3e0d8fb3 2005-12-27 devnull 	*l = new;
 582 3e0d8fb3 2005-12-27 devnull }
 583 3e0d8fb3 2005-12-27 devnull 
 584 3e0d8fb3 2005-12-27 devnull /*
 585 3e0d8fb3 2005-12-27 devnull  *  Attach a list of resource records to a domain name.
 586 3e0d8fb3 2005-12-27 devnull  *	- Avoid duplicates with already present RR's
 587 3e0d8fb3 2005-12-27 devnull  *	- Chain all RR's of the same type adjacent to one another
 588 3e0d8fb3 2005-12-27 devnull  *	- chain authoritative RR's ahead of non-authoritative ones
 589 3e0d8fb3 2005-12-27 devnull  *	- remove any expired RR's
 590 3e0d8fb3 2005-12-27 devnull  */
 591 3e0d8fb3 2005-12-27 devnull void
 592 3e0d8fb3 2005-12-27 devnull rrattach(RR *rp, int auth)
 593 3e0d8fb3 2005-12-27 devnull {
 594 3e0d8fb3 2005-12-27 devnull 	RR *next;
 595 3e0d8fb3 2005-12-27 devnull 
 596 3e0d8fb3 2005-12-27 devnull 	lock(&dnlock);
 597 3e0d8fb3 2005-12-27 devnull 	for(; rp; rp = next){
 598 3e0d8fb3 2005-12-27 devnull 		next = rp->next;
 599 3e0d8fb3 2005-12-27 devnull 		rp->next = 0;
 600 3e0d8fb3 2005-12-27 devnull 
 601 3e0d8fb3 2005-12-27 devnull 		/* avoid any outside spoofing */
 602 3e0d8fb3 2005-12-27 devnull 		if(cachedb && !rp->db && inmyarea(rp->owner->name))
 603 3e0d8fb3 2005-12-27 devnull 			rrfree(rp);
 604 3e0d8fb3 2005-12-27 devnull 		else
 605 3e0d8fb3 2005-12-27 devnull 			rrattach1(rp, auth);
 606 3e0d8fb3 2005-12-27 devnull 	}
 607 3e0d8fb3 2005-12-27 devnull 	unlock(&dnlock);
 608 3e0d8fb3 2005-12-27 devnull }
 609 3e0d8fb3 2005-12-27 devnull 
 610 3e0d8fb3 2005-12-27 devnull /*
 611 3e0d8fb3 2005-12-27 devnull  *  allocate a resource record of a given type
 612 3e0d8fb3 2005-12-27 devnull  */
 613 3e0d8fb3 2005-12-27 devnull RR*
 614 3e0d8fb3 2005-12-27 devnull rralloc(int type)
 615 3e0d8fb3 2005-12-27 devnull {
 616 3e0d8fb3 2005-12-27 devnull 	RR *rp;
 617 3e0d8fb3 2005-12-27 devnull 
 618 3e0d8fb3 2005-12-27 devnull 	rp = emalloc(sizeof(*rp));
 619 3e0d8fb3 2005-12-27 devnull 	rp->magic = RRmagic;
 620 3e0d8fb3 2005-12-27 devnull 	rp->pc = getcallerpc(&type);
 621 3e0d8fb3 2005-12-27 devnull 	rp->type = type;
 622 3e0d8fb3 2005-12-27 devnull 	switch(type){
 623 3e0d8fb3 2005-12-27 devnull 	case Tsoa:
 624 3e0d8fb3 2005-12-27 devnull 		rp->soa = emalloc(sizeof(*rp->soa));
 625 3e0d8fb3 2005-12-27 devnull 		rp->soa->slaves = nil;
 626 3e0d8fb3 2005-12-27 devnull 		break;
 627 3e0d8fb3 2005-12-27 devnull 	case Tkey:
 628 3e0d8fb3 2005-12-27 devnull 		rp->key = emalloc(sizeof(*rp->key));
 629 3e0d8fb3 2005-12-27 devnull 		break;
 630 3e0d8fb3 2005-12-27 devnull 	case Tcert:
 631 3e0d8fb3 2005-12-27 devnull 		rp->cert = emalloc(sizeof(*rp->cert));
 632 3e0d8fb3 2005-12-27 devnull 		break;
 633 3e0d8fb3 2005-12-27 devnull 	case Tsig:
 634 3e0d8fb3 2005-12-27 devnull 		rp->sig = emalloc(sizeof(*rp->sig));
 635 3e0d8fb3 2005-12-27 devnull 		break;
 636 3e0d8fb3 2005-12-27 devnull 	case Tnull:
 637 3e0d8fb3 2005-12-27 devnull 		rp->null = emalloc(sizeof(*rp->null));
 638 3e0d8fb3 2005-12-27 devnull 		break;
 639 3e0d8fb3 2005-12-27 devnull 	}
 640 3e0d8fb3 2005-12-27 devnull 	rp->ttl = 0;
 641 3e0d8fb3 2005-12-27 devnull 	rp->expire = 0;
 642 3e0d8fb3 2005-12-27 devnull 	rp->next = 0;
 643 3e0d8fb3 2005-12-27 devnull 	return rp;
 644 3e0d8fb3 2005-12-27 devnull }
 645 3e0d8fb3 2005-12-27 devnull 
 646 3e0d8fb3 2005-12-27 devnull /*
 647 3e0d8fb3 2005-12-27 devnull  *  free a resource record and any related structs
 648 3e0d8fb3 2005-12-27 devnull  */
 649 3e0d8fb3 2005-12-27 devnull void
 650 3e0d8fb3 2005-12-27 devnull rrfree(RR *rp)
 651 3e0d8fb3 2005-12-27 devnull {
 652 3e0d8fb3 2005-12-27 devnull 	DN *dp;
 653 3e0d8fb3 2005-12-27 devnull 	RR *nrp;
 654 3e0d8fb3 2005-12-27 devnull 	Txt *t;
 655 3e0d8fb3 2005-12-27 devnull 
 656 3e0d8fb3 2005-12-27 devnull 	assert(rp->magic = RRmagic);
 657 3e0d8fb3 2005-12-27 devnull 	assert(!rp->cached);
 658 3e0d8fb3 2005-12-27 devnull 
 659 3e0d8fb3 2005-12-27 devnull 	dp = rp->owner;
 660 3e0d8fb3 2005-12-27 devnull 	if(dp){
 661 3e0d8fb3 2005-12-27 devnull 		assert(dp->magic == DNmagic);
 662 3e0d8fb3 2005-12-27 devnull 		for(nrp = dp->rr; nrp; nrp = nrp->next)
 663 3e0d8fb3 2005-12-27 devnull 			assert(nrp != rp); /* "rrfree of live rr" */;
 664 3e0d8fb3 2005-12-27 devnull 	}
 665 3e0d8fb3 2005-12-27 devnull 
 666 3e0d8fb3 2005-12-27 devnull 	switch(rp->type){
 667 3e0d8fb3 2005-12-27 devnull 	case Tsoa:
 668 3e0d8fb3 2005-12-27 devnull 		freeserverlist(rp->soa->slaves);
 669 3e0d8fb3 2005-12-27 devnull 		free(rp->soa);
 670 3e0d8fb3 2005-12-27 devnull 		break;
 671 3e0d8fb3 2005-12-27 devnull 	case Tkey:
 672 3e0d8fb3 2005-12-27 devnull 		free(rp->key->data);
 673 3e0d8fb3 2005-12-27 devnull 		free(rp->key);
 674 3e0d8fb3 2005-12-27 devnull 		break;
 675 3e0d8fb3 2005-12-27 devnull 	case Tcert:
 676 3e0d8fb3 2005-12-27 devnull 		free(rp->cert->data);
 677 3e0d8fb3 2005-12-27 devnull 		free(rp->cert);
 678 3e0d8fb3 2005-12-27 devnull 		break;
 679 3e0d8fb3 2005-12-27 devnull 	case Tsig:
 680 3e0d8fb3 2005-12-27 devnull 		free(rp->sig->data);
 681 3e0d8fb3 2005-12-27 devnull 		free(rp->sig);
 682 3e0d8fb3 2005-12-27 devnull 		break;
 683 3e0d8fb3 2005-12-27 devnull 	case Tnull:
 684 3e0d8fb3 2005-12-27 devnull 		free(rp->null->data);
 685 3e0d8fb3 2005-12-27 devnull 		free(rp->null);
 686 3e0d8fb3 2005-12-27 devnull 		break;
 687 3e0d8fb3 2005-12-27 devnull 	case Ttxt:
 688 3e0d8fb3 2005-12-27 devnull 		while(rp->txt != nil){
 689 3e0d8fb3 2005-12-27 devnull 			t = rp->txt;
 690 3e0d8fb3 2005-12-27 devnull 			rp->txt = t->next;
 691 3e0d8fb3 2005-12-27 devnull 			free(t->p);
 692 3e0d8fb3 2005-12-27 devnull 			free(t);
 693 3e0d8fb3 2005-12-27 devnull 		}
 694 3e0d8fb3 2005-12-27 devnull 		break;
 695 3e0d8fb3 2005-12-27 devnull 	}
 696 3e0d8fb3 2005-12-27 devnull 
 697 3e0d8fb3 2005-12-27 devnull 	rp->magic = ~rp->magic;
 698 3e0d8fb3 2005-12-27 devnull 	free(rp);
 699 3e0d8fb3 2005-12-27 devnull }
 700 3e0d8fb3 2005-12-27 devnull 
 701 3e0d8fb3 2005-12-27 devnull /*
 702 3e0d8fb3 2005-12-27 devnull  *  free a list of resource records and any related structs
 703 3e0d8fb3 2005-12-27 devnull  */
 704 3e0d8fb3 2005-12-27 devnull void
 705 3e0d8fb3 2005-12-27 devnull rrfreelist(RR *rp)
 706 3e0d8fb3 2005-12-27 devnull {
 707 3e0d8fb3 2005-12-27 devnull 	RR *next;
 708 3e0d8fb3 2005-12-27 devnull 
 709 3e0d8fb3 2005-12-27 devnull 	for(; rp; rp = next){
 710 3e0d8fb3 2005-12-27 devnull 		next = rp->next;
 711 3e0d8fb3 2005-12-27 devnull 		rrfree(rp);
 712 3e0d8fb3 2005-12-27 devnull 	}
 713 3e0d8fb3 2005-12-27 devnull }
 714 3e0d8fb3 2005-12-27 devnull 
 715 3e0d8fb3 2005-12-27 devnull extern RR**
 716 3e0d8fb3 2005-12-27 devnull rrcopy(RR *rp, RR **last)
 717 3e0d8fb3 2005-12-27 devnull {
 718 3e0d8fb3 2005-12-27 devnull 	RR *nrp;
 719 3e0d8fb3 2005-12-27 devnull 	SOA *soa;
 720 3e0d8fb3 2005-12-27 devnull 	Key *key;
 721 3e0d8fb3 2005-12-27 devnull 	Cert *cert;
 722 3e0d8fb3 2005-12-27 devnull 	Sig *sig;
 723 3e0d8fb3 2005-12-27 devnull 	Null *null;
 724 3e0d8fb3 2005-12-27 devnull 	Txt *t, *nt, **l;
 725 3e0d8fb3 2005-12-27 devnull 
 726 3e0d8fb3 2005-12-27 devnull 	nrp = rralloc(rp->type);
 727 3e0d8fb3 2005-12-27 devnull 	switch(rp->type){
 728 3e0d8fb3 2005-12-27 devnull 	case Ttxt:
 729 3e0d8fb3 2005-12-27 devnull 		*nrp = *rp;
 730 3e0d8fb3 2005-12-27 devnull 		l = &nrp->txt;
 731 3e0d8fb3 2005-12-27 devnull 		*l = nil;
 732 3e0d8fb3 2005-12-27 devnull 		for(t = rp->txt; t != nil; t = t->next){
 733 3e0d8fb3 2005-12-27 devnull 			nt = emalloc(sizeof(*nt));
 734 3e0d8fb3 2005-12-27 devnull 			nt->p = estrdup(t->p);
 735 3e0d8fb3 2005-12-27 devnull 			nt->next = nil;
 736 3e0d8fb3 2005-12-27 devnull 			*l = nt;
 737 3e0d8fb3 2005-12-27 devnull 			l = &nt->next;
 738 3e0d8fb3 2005-12-27 devnull 		}
 739 3e0d8fb3 2005-12-27 devnull 		break;
 740 3e0d8fb3 2005-12-27 devnull 	case Tsoa:
 741 3e0d8fb3 2005-12-27 devnull 		soa = nrp->soa;
 742 3e0d8fb3 2005-12-27 devnull 		*nrp = *rp;
 743 3e0d8fb3 2005-12-27 devnull 		nrp->soa = soa;
 744 3e0d8fb3 2005-12-27 devnull 		*nrp->soa = *rp->soa;
 745 3e0d8fb3 2005-12-27 devnull 		nrp->soa->slaves = copyserverlist(rp->soa->slaves);
 746 3e0d8fb3 2005-12-27 devnull 		break;
 747 3e0d8fb3 2005-12-27 devnull 	case Tkey:
 748 3e0d8fb3 2005-12-27 devnull 		key = nrp->key;
 749 3e0d8fb3 2005-12-27 devnull 		*nrp = *rp;
 750 3e0d8fb3 2005-12-27 devnull 		nrp->key = key;
 751 3e0d8fb3 2005-12-27 devnull 		*key = *rp->key;
 752 3e0d8fb3 2005-12-27 devnull 		key->data = emalloc(key->dlen);
 753 3e0d8fb3 2005-12-27 devnull 		memmove(key->data, rp->key->data, rp->key->dlen);
 754 3e0d8fb3 2005-12-27 devnull 		break;
 755 3e0d8fb3 2005-12-27 devnull 	case Tsig:
 756 3e0d8fb3 2005-12-27 devnull 		sig = nrp->sig;
 757 3e0d8fb3 2005-12-27 devnull 		*nrp = *rp;
 758 3e0d8fb3 2005-12-27 devnull 		nrp->sig = sig;
 759 3e0d8fb3 2005-12-27 devnull 		*sig = *rp->sig;
 760 3e0d8fb3 2005-12-27 devnull 		sig->data = emalloc(sig->dlen);
 761 3e0d8fb3 2005-12-27 devnull 		memmove(sig->data, rp->sig->data, rp->sig->dlen);
 762 3e0d8fb3 2005-12-27 devnull 		break;
 763 3e0d8fb3 2005-12-27 devnull 	case Tcert:
 764 3e0d8fb3 2005-12-27 devnull 		cert = nrp->cert;
 765 3e0d8fb3 2005-12-27 devnull 		*nrp = *rp;
 766 3e0d8fb3 2005-12-27 devnull 		nrp->cert = cert;
 767 3e0d8fb3 2005-12-27 devnull 		*cert = *rp->cert;
 768 3e0d8fb3 2005-12-27 devnull 		cert->data = emalloc(cert->dlen);
 769 3e0d8fb3 2005-12-27 devnull 		memmove(cert->data, rp->cert->data, rp->cert->dlen);
 770 3e0d8fb3 2005-12-27 devnull 		break;
 771 3e0d8fb3 2005-12-27 devnull 	case Tnull:
 772 3e0d8fb3 2005-12-27 devnull 		null = nrp->null;
 773 3e0d8fb3 2005-12-27 devnull 		*nrp = *rp;
 774 3e0d8fb3 2005-12-27 devnull 		nrp->null = null;
 775 3e0d8fb3 2005-12-27 devnull 		*null = *rp->null;
 776 3e0d8fb3 2005-12-27 devnull 		null->data = emalloc(null->dlen);
 777 3e0d8fb3 2005-12-27 devnull 		memmove(null->data, rp->null->data, rp->null->dlen);
 778 3e0d8fb3 2005-12-27 devnull 		break;
 779 3e0d8fb3 2005-12-27 devnull 	default:
 780 3e0d8fb3 2005-12-27 devnull 		*nrp = *rp;
 781 3e0d8fb3 2005-12-27 devnull 		break;
 782 3e0d8fb3 2005-12-27 devnull 	}
 783 3e0d8fb3 2005-12-27 devnull 	nrp->cached = 0;
 784 3e0d8fb3 2005-12-27 devnull 	nrp->next = 0;
 785 3e0d8fb3 2005-12-27 devnull 	*last = nrp;
 786 3e0d8fb3 2005-12-27 devnull 	return &nrp->next;
 787 3e0d8fb3 2005-12-27 devnull }
 788 3e0d8fb3 2005-12-27 devnull 
 789 3e0d8fb3 2005-12-27 devnull /*
 790 3e0d8fb3 2005-12-27 devnull  *  lookup a resource record of a particular type and
 791 3e0d8fb3 2005-12-27 devnull  *  class attached to a domain name.  Return copies.
 792 3e0d8fb3 2005-12-27 devnull  *
 793 3e0d8fb3 2005-12-27 devnull  *  Priority ordering is:
 794 3e0d8fb3 2005-12-27 devnull  *	db authoritative
 795 3e0d8fb3 2005-12-27 devnull  *	not timed out network authoritative
 796 3e0d8fb3 2005-12-27 devnull  *	not timed out network unauthoritative
 797 3e0d8fb3 2005-12-27 devnull  *	unauthoritative db
 798 3e0d8fb3 2005-12-27 devnull  *
 799 3e0d8fb3 2005-12-27 devnull  *  if flag NOneg is set, don't return negative cached entries.
 800 3e0d8fb3 2005-12-27 devnull  *  return nothing instead.
 801 3e0d8fb3 2005-12-27 devnull  */
 802 3e0d8fb3 2005-12-27 devnull RR*
 803 3e0d8fb3 2005-12-27 devnull rrlookup(DN *dp, int type, int flag)
 804 3e0d8fb3 2005-12-27 devnull {
 805 3e0d8fb3 2005-12-27 devnull 	RR *rp, *first, **last;
 806 3e0d8fb3 2005-12-27 devnull 
 807 3e0d8fb3 2005-12-27 devnull 	assert(dp->magic == DNmagic);
 808 3e0d8fb3 2005-12-27 devnull 
 809 3e0d8fb3 2005-12-27 devnull 	first = 0;
 810 3e0d8fb3 2005-12-27 devnull 	last = &first;
 811 3e0d8fb3 2005-12-27 devnull 	lock(&dnlock);
 812 3e0d8fb3 2005-12-27 devnull 
 813 3e0d8fb3 2005-12-27 devnull 	/* try for an authoritative db entry */
 814 3e0d8fb3 2005-12-27 devnull 	for(rp = dp->rr; rp; rp = rp->next){
 815 3e0d8fb3 2005-12-27 devnull 		assert(rp->magic == RRmagic && rp->cached);
 816 3e0d8fb3 2005-12-27 devnull 		if(rp->db)
 817 3e0d8fb3 2005-12-27 devnull 		if(rp->auth)
 818 3e0d8fb3 2005-12-27 devnull 		if(tsame(type, rp->type))
 819 3e0d8fb3 2005-12-27 devnull 			last = rrcopy(rp, last);
 820 3e0d8fb3 2005-12-27 devnull 	}
 821 3e0d8fb3 2005-12-27 devnull 	if(first)
 822 3e0d8fb3 2005-12-27 devnull 		goto out;
 823 3e0d8fb3 2005-12-27 devnull 
 824 3e0d8fb3 2005-12-27 devnull 	/* try for an living authoritative network entry */
 825 3e0d8fb3 2005-12-27 devnull 	for(rp = dp->rr; rp; rp = rp->next){
 826 3e0d8fb3 2005-12-27 devnull 		if(!rp->db)
 827 3e0d8fb3 2005-12-27 devnull 		if(rp->auth)
 828 3e0d8fb3 2005-12-27 devnull 		if(rp->ttl + 60 > now)
 829 3e0d8fb3 2005-12-27 devnull 		if(tsame(type, rp->type)){
 830 3e0d8fb3 2005-12-27 devnull 			if(flag == NOneg && rp->negative)
 831 3e0d8fb3 2005-12-27 devnull 				goto out;
 832 3e0d8fb3 2005-12-27 devnull 			last = rrcopy(rp, last);
 833 3e0d8fb3 2005-12-27 devnull 		}
 834 3e0d8fb3 2005-12-27 devnull 	}
 835 3e0d8fb3 2005-12-27 devnull 	if(first)
 836 3e0d8fb3 2005-12-27 devnull 		goto out;
 837 3e0d8fb3 2005-12-27 devnull 
 838 3e0d8fb3 2005-12-27 devnull 	/* try for an living unauthoritative network entry */
 839 3e0d8fb3 2005-12-27 devnull 	for(rp = dp->rr; rp; rp = rp->next){
 840 3e0d8fb3 2005-12-27 devnull 		if(!rp->db)
 841 3e0d8fb3 2005-12-27 devnull 		if(rp->ttl + 60 > now)
 842 3e0d8fb3 2005-12-27 devnull 		if(tsame(type, rp->type)){
 843 3e0d8fb3 2005-12-27 devnull 			if(flag == NOneg && rp->negative)
 844 3e0d8fb3 2005-12-27 devnull 				goto out;
 845 3e0d8fb3 2005-12-27 devnull 			last = rrcopy(rp, last);
 846 3e0d8fb3 2005-12-27 devnull 		}
 847 3e0d8fb3 2005-12-27 devnull 	}
 848 3e0d8fb3 2005-12-27 devnull 	if(first)
 849 3e0d8fb3 2005-12-27 devnull 		goto out;
 850 3e0d8fb3 2005-12-27 devnull 
 851 3e0d8fb3 2005-12-27 devnull 	/* try for an unauthoritative db entry */
 852 3e0d8fb3 2005-12-27 devnull 	for(rp = dp->rr; rp; rp = rp->next){
 853 3e0d8fb3 2005-12-27 devnull 		if(rp->db)
 854 3e0d8fb3 2005-12-27 devnull 		if(tsame(type, rp->type))
 855 3e0d8fb3 2005-12-27 devnull 			last = rrcopy(rp, last);
 856 3e0d8fb3 2005-12-27 devnull 	}
 857 3e0d8fb3 2005-12-27 devnull 	if(first)
 858 3e0d8fb3 2005-12-27 devnull 		goto out;
 859 3e0d8fb3 2005-12-27 devnull 
 860 3e0d8fb3 2005-12-27 devnull 	/* otherwise, settle for anything we got (except for negative caches)  */
 861 3e0d8fb3 2005-12-27 devnull 	for(rp = dp->rr; rp; rp = rp->next){
 862 3e0d8fb3 2005-12-27 devnull 		if(tsame(type, rp->type)){
 863 3e0d8fb3 2005-12-27 devnull 			if(rp->negative)
 864 3e0d8fb3 2005-12-27 devnull 				goto out;
 865 3e0d8fb3 2005-12-27 devnull 			last = rrcopy(rp, last);
 866 3e0d8fb3 2005-12-27 devnull 		}
 867 3e0d8fb3 2005-12-27 devnull 	}
 868 3e0d8fb3 2005-12-27 devnull 
 869 3e0d8fb3 2005-12-27 devnull out:
 870 3e0d8fb3 2005-12-27 devnull 	unlock(&dnlock);
 871 3e0d8fb3 2005-12-27 devnull 	unique(first);
 872 3e0d8fb3 2005-12-27 devnull 	return first;
 873 3e0d8fb3 2005-12-27 devnull }
 874 3e0d8fb3 2005-12-27 devnull 
 875 3e0d8fb3 2005-12-27 devnull /*
 876 3e0d8fb3 2005-12-27 devnull  *  convert an ascii RR type name to its integer representation
 877 3e0d8fb3 2005-12-27 devnull  */
 878 3e0d8fb3 2005-12-27 devnull int
 879 3e0d8fb3 2005-12-27 devnull rrtype(char *atype)
 880 3e0d8fb3 2005-12-27 devnull {
 881 3e0d8fb3 2005-12-27 devnull 	int i;
 882 3e0d8fb3 2005-12-27 devnull 
 883 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i <= Tall; i++)
 884 3e0d8fb3 2005-12-27 devnull 		if(rrtname[i] && strcmp(rrtname[i], atype) == 0)
 885 3e0d8fb3 2005-12-27 devnull 			return i;
 886 3e0d8fb3 2005-12-27 devnull 
 887 226d80b8 2006-04-01 devnull 	/* make any a synonym for all */
 888 3e0d8fb3 2005-12-27 devnull 	if(strcmp(atype, "any") == 0)
 889 3e0d8fb3 2005-12-27 devnull 		return Tall;
 890 3e0d8fb3 2005-12-27 devnull 	return atoi(atype);
 891 3e0d8fb3 2005-12-27 devnull }
 892 3e0d8fb3 2005-12-27 devnull 
 893 3e0d8fb3 2005-12-27 devnull /*
 894 3e0d8fb3 2005-12-27 devnull  *  convert an integer RR type to it's ascii name
 895 3e0d8fb3 2005-12-27 devnull  */
 896 3e0d8fb3 2005-12-27 devnull char*
 897 3e0d8fb3 2005-12-27 devnull rrname(int type, char *buf, int len)
 898 3e0d8fb3 2005-12-27 devnull {
 899 3e0d8fb3 2005-12-27 devnull 	char *t;
 900 3e0d8fb3 2005-12-27 devnull 
 901 3e0d8fb3 2005-12-27 devnull 	t = 0;
 902 3e0d8fb3 2005-12-27 devnull 	if(type <= Tall)
 903 3e0d8fb3 2005-12-27 devnull 		t = rrtname[type];
 904 3e0d8fb3 2005-12-27 devnull 	if(t==0){
 905 3e0d8fb3 2005-12-27 devnull 		snprint(buf, len, "%d", type);
 906 3e0d8fb3 2005-12-27 devnull 		t = buf;
 907 3e0d8fb3 2005-12-27 devnull 	}
 908 3e0d8fb3 2005-12-27 devnull 	return t;
 909 3e0d8fb3 2005-12-27 devnull }
 910 3e0d8fb3 2005-12-27 devnull 
 911 3e0d8fb3 2005-12-27 devnull /*
 912 3e0d8fb3 2005-12-27 devnull  *  return 0 if not a supported rr type
 913 3e0d8fb3 2005-12-27 devnull  */
 914 3e0d8fb3 2005-12-27 devnull int
 915 3e0d8fb3 2005-12-27 devnull rrsupported(int type)
 916 3e0d8fb3 2005-12-27 devnull {
 917 3e0d8fb3 2005-12-27 devnull 	if(type < 0 || type >Tall)
 918 3e0d8fb3 2005-12-27 devnull 		return 0;
 919 3e0d8fb3 2005-12-27 devnull 	return rrtname[type] != 0;
 920 3e0d8fb3 2005-12-27 devnull }
 921 3e0d8fb3 2005-12-27 devnull 
 922 3e0d8fb3 2005-12-27 devnull /*
 923 3e0d8fb3 2005-12-27 devnull  *  compare 2 types
 924 3e0d8fb3 2005-12-27 devnull  */
 925 3e0d8fb3 2005-12-27 devnull int
 926 3e0d8fb3 2005-12-27 devnull tsame(int t1, int t2)
 927 3e0d8fb3 2005-12-27 devnull {
 928 3e0d8fb3 2005-12-27 devnull 	return t1 == t2 || t1 == Tall;
 929 3e0d8fb3 2005-12-27 devnull }
 930 3e0d8fb3 2005-12-27 devnull 
 931 3e0d8fb3 2005-12-27 devnull /*
 932 3e0d8fb3 2005-12-27 devnull  *  Add resource records to a list, duplicate them if they are cached
 933 3e0d8fb3 2005-12-27 devnull  *  RR's since these are shared.
 934 3e0d8fb3 2005-12-27 devnull  */
 935 3e0d8fb3 2005-12-27 devnull RR*
 936 3e0d8fb3 2005-12-27 devnull rrcat(RR **start, RR *rp)
 937 3e0d8fb3 2005-12-27 devnull {
 938 3e0d8fb3 2005-12-27 devnull 	RR **last;
 939 3e0d8fb3 2005-12-27 devnull 
 940 3e0d8fb3 2005-12-27 devnull 	last = start;
 941 3e0d8fb3 2005-12-27 devnull 	while(*last != 0)
 942 3e0d8fb3 2005-12-27 devnull 		last = &(*last)->next;
 943 3e0d8fb3 2005-12-27 devnull 
 944 3e0d8fb3 2005-12-27 devnull 	*last = rp;
 945 3e0d8fb3 2005-12-27 devnull 	return *start;
 946 3e0d8fb3 2005-12-27 devnull }
 947 3e0d8fb3 2005-12-27 devnull 
 948 3e0d8fb3 2005-12-27 devnull /*
 949 3e0d8fb3 2005-12-27 devnull  *  remove negative cache rr's from an rr list
 950 3e0d8fb3 2005-12-27 devnull  */
 951 3e0d8fb3 2005-12-27 devnull RR*
 952 3e0d8fb3 2005-12-27 devnull rrremneg(RR **l)
 953 3e0d8fb3 2005-12-27 devnull {
 954 3e0d8fb3 2005-12-27 devnull 	RR **nl, *rp;
 955 3e0d8fb3 2005-12-27 devnull 	RR *first;
 956 3e0d8fb3 2005-12-27 devnull 
 957 3e0d8fb3 2005-12-27 devnull 	first = nil;
 958 3e0d8fb3 2005-12-27 devnull 	nl = &first;
 959 3e0d8fb3 2005-12-27 devnull 	while(*l != nil){
 960 3e0d8fb3 2005-12-27 devnull 		rp = *l;
 961 3e0d8fb3 2005-12-27 devnull 		if(rp->negative){
 962 3e0d8fb3 2005-12-27 devnull 			*l = rp->next;
 963 3e0d8fb3 2005-12-27 devnull 			*nl = rp;
 964 3e0d8fb3 2005-12-27 devnull 			nl = &rp->next;
 965 3e0d8fb3 2005-12-27 devnull 			*nl = nil;
 966 3e0d8fb3 2005-12-27 devnull 		} else
 967 3e0d8fb3 2005-12-27 devnull 			l = &rp->next;
 968 3e0d8fb3 2005-12-27 devnull 	}
 969 3e0d8fb3 2005-12-27 devnull 
 970 3e0d8fb3 2005-12-27 devnull 	return first;
 971 3e0d8fb3 2005-12-27 devnull }
 972 3e0d8fb3 2005-12-27 devnull 
 973 3e0d8fb3 2005-12-27 devnull /*
 974 3e0d8fb3 2005-12-27 devnull  *  remove rr's of a particular type from an rr list
 975 3e0d8fb3 2005-12-27 devnull  */
 976 3e0d8fb3 2005-12-27 devnull RR*
 977 3e0d8fb3 2005-12-27 devnull rrremtype(RR **l, int type)
 978 3e0d8fb3 2005-12-27 devnull {
 979 3e0d8fb3 2005-12-27 devnull 	RR **nl, *rp;
 980 3e0d8fb3 2005-12-27 devnull 	RR *first;
 981 3e0d8fb3 2005-12-27 devnull 
 982 3e0d8fb3 2005-12-27 devnull 	first = nil;
 983 3e0d8fb3 2005-12-27 devnull 	nl = &first;
 984 3e0d8fb3 2005-12-27 devnull 	while(*l != nil){
 985 3e0d8fb3 2005-12-27 devnull 		rp = *l;
 986 3e0d8fb3 2005-12-27 devnull 		if(rp->type == type){
 987 3e0d8fb3 2005-12-27 devnull 			*l = rp->next;
 988 3e0d8fb3 2005-12-27 devnull 			*nl = rp;
 989 3e0d8fb3 2005-12-27 devnull 			nl = &rp->next;
 990 3e0d8fb3 2005-12-27 devnull 			*nl = nil;
 991 3e0d8fb3 2005-12-27 devnull 		} else
 992 3e0d8fb3 2005-12-27 devnull 			l = &(*l)->next;
 993 3e0d8fb3 2005-12-27 devnull 	}
 994 3e0d8fb3 2005-12-27 devnull 
 995 3e0d8fb3 2005-12-27 devnull 	return first;
 996 3e0d8fb3 2005-12-27 devnull }
 997 3e0d8fb3 2005-12-27 devnull 
 998 3e0d8fb3 2005-12-27 devnull /*
 999 3e0d8fb3 2005-12-27 devnull  *  print conversion for rr records
1000 3e0d8fb3 2005-12-27 devnull  */
1001 3e0d8fb3 2005-12-27 devnull int
1002 3e0d8fb3 2005-12-27 devnull rrfmt(Fmt *f)
1003 3e0d8fb3 2005-12-27 devnull {
1004 3e0d8fb3 2005-12-27 devnull 	RR *rp;
1005 3e0d8fb3 2005-12-27 devnull 	char *strp;
1006 3e0d8fb3 2005-12-27 devnull 	Fmt fstr;
1007 3e0d8fb3 2005-12-27 devnull 	int rv;
1008 3e0d8fb3 2005-12-27 devnull 	char buf[Domlen];
1009 3e0d8fb3 2005-12-27 devnull 	Server *s;
1010 3e0d8fb3 2005-12-27 devnull 	Txt *t;
1011 3e0d8fb3 2005-12-27 devnull 
1012 3e0d8fb3 2005-12-27 devnull 	fmtstrinit(&fstr);
1013 3e0d8fb3 2005-12-27 devnull 
1014 3e0d8fb3 2005-12-27 devnull 	rp = va_arg(f->args, RR*);
1015 3e0d8fb3 2005-12-27 devnull 	if(rp == 0){
1016 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "<null>");
1017 3e0d8fb3 2005-12-27 devnull 		goto out;
1018 3e0d8fb3 2005-12-27 devnull 	}
1019 3e0d8fb3 2005-12-27 devnull 
1020 3e0d8fb3 2005-12-27 devnull 	fmtprint(&fstr, "%s %s", rp->owner->name,
1021 3e0d8fb3 2005-12-27 devnull 		rrname(rp->type, buf, sizeof buf));
1022 3e0d8fb3 2005-12-27 devnull 
1023 3e0d8fb3 2005-12-27 devnull 	if(rp->negative){
1024 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\tnegative - rcode %d", rp->negrcode);
1025 3e0d8fb3 2005-12-27 devnull 		goto out;
1026 3e0d8fb3 2005-12-27 devnull 	}
1027 3e0d8fb3 2005-12-27 devnull 
1028 3e0d8fb3 2005-12-27 devnull 	switch(rp->type){
1029 3e0d8fb3 2005-12-27 devnull 	case Thinfo:
1030 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%s %s", rp->cpu->name, rp->os->name);
1031 3e0d8fb3 2005-12-27 devnull 		break;
1032 3e0d8fb3 2005-12-27 devnull 	case Tcname:
1033 3e0d8fb3 2005-12-27 devnull 	case Tmb:
1034 3e0d8fb3 2005-12-27 devnull 	case Tmd:
1035 3e0d8fb3 2005-12-27 devnull 	case Tmf:
1036 3e0d8fb3 2005-12-27 devnull 	case Tns:
1037 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%s", rp->host->name);
1038 3e0d8fb3 2005-12-27 devnull 		break;
1039 3e0d8fb3 2005-12-27 devnull 	case Tmg:
1040 3e0d8fb3 2005-12-27 devnull 	case Tmr:
1041 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%s", rp->mb->name);
1042 3e0d8fb3 2005-12-27 devnull 		break;
1043 3e0d8fb3 2005-12-27 devnull 	case Tminfo:
1044 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%s %s", rp->mb->name, rp->rmb->name);
1045 3e0d8fb3 2005-12-27 devnull 		break;
1046 3e0d8fb3 2005-12-27 devnull 	case Tmx:
1047 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%lud %s", rp->pref, rp->host->name);
1048 3e0d8fb3 2005-12-27 devnull 		break;
1049 3e0d8fb3 2005-12-27 devnull 	case Ta:
1050 3e0d8fb3 2005-12-27 devnull 	case Taaaa:
1051 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%s", rp->ip->name);
1052 3e0d8fb3 2005-12-27 devnull 		break;
1053 3e0d8fb3 2005-12-27 devnull 	case Tptr:
1054 226d80b8 2006-04-01 devnull /*		fmtprint(&fstr, "\t%s(%lud)", rp->ptr->name, rp->ptr->ordinal); */
1055 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%s", rp->ptr->name);
1056 3e0d8fb3 2005-12-27 devnull 		break;
1057 3e0d8fb3 2005-12-27 devnull 	case Tsoa:
1058 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%s %s %lud %lud %lud %lud %lud", rp->host->name,
1059 3e0d8fb3 2005-12-27 devnull 			rp->rmb->name, rp->soa->serial, rp->soa->refresh, rp->soa->retry,
1060 3e0d8fb3 2005-12-27 devnull 			rp->soa->expire, rp->soa->minttl);
1061 3e0d8fb3 2005-12-27 devnull 		for(s = rp->soa->slaves; s != nil; s = s->next)
1062 3e0d8fb3 2005-12-27 devnull 			fmtprint(&fstr, " %s", s->name);
1063 3e0d8fb3 2005-12-27 devnull 		break;
1064 3e0d8fb3 2005-12-27 devnull 	case Tnull:
1065 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%.*H", rp->null->dlen, rp->null->data);
1066 3e0d8fb3 2005-12-27 devnull 		break;
1067 3e0d8fb3 2005-12-27 devnull 	case Ttxt:
1068 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t");
1069 3e0d8fb3 2005-12-27 devnull 		for(t = rp->txt; t != nil; t = t->next)
1070 3e0d8fb3 2005-12-27 devnull 			fmtprint(&fstr, "%s", t->p);
1071 3e0d8fb3 2005-12-27 devnull 		break;
1072 3e0d8fb3 2005-12-27 devnull 	case Trp:
1073 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%s %s", rp->rmb->name, rp->rp->name);
1074 3e0d8fb3 2005-12-27 devnull 		break;
1075 3e0d8fb3 2005-12-27 devnull 	case Tkey:
1076 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%d %d %d", rp->key->flags, rp->key->proto,
1077 3e0d8fb3 2005-12-27 devnull 			rp->key->alg);
1078 3e0d8fb3 2005-12-27 devnull 		break;
1079 3e0d8fb3 2005-12-27 devnull 	case Tsig:
1080 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%d %d %d %lud %lud %lud %d %s",
1081 3e0d8fb3 2005-12-27 devnull 			rp->sig->type, rp->sig->alg, rp->sig->labels, rp->sig->ttl,
1082 3e0d8fb3 2005-12-27 devnull 			rp->sig->exp, rp->sig->incep, rp->sig->tag, rp->sig->signer->name);
1083 3e0d8fb3 2005-12-27 devnull 		break;
1084 3e0d8fb3 2005-12-27 devnull 	case Tcert:
1085 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "\t%d %d %d",
1086 3e0d8fb3 2005-12-27 devnull 			rp->sig->type, rp->sig->tag, rp->sig->alg);
1087 3e0d8fb3 2005-12-27 devnull 		break;
1088 3e0d8fb3 2005-12-27 devnull 	default:
1089 3e0d8fb3 2005-12-27 devnull 		break;
1090 3e0d8fb3 2005-12-27 devnull 	}
1091 3e0d8fb3 2005-12-27 devnull out:
1092 3e0d8fb3 2005-12-27 devnull 	strp = fmtstrflush(&fstr);
1093 3e0d8fb3 2005-12-27 devnull 	rv = fmtstrcpy(f, strp);
1094 3e0d8fb3 2005-12-27 devnull 	free(strp);
1095 3e0d8fb3 2005-12-27 devnull 	return rv;
1096 3e0d8fb3 2005-12-27 devnull }
1097 3e0d8fb3 2005-12-27 devnull 
1098 3e0d8fb3 2005-12-27 devnull /*
1099 3e0d8fb3 2005-12-27 devnull  *  print conversion for rr records in attribute value form
1100 3e0d8fb3 2005-12-27 devnull  */
1101 3e0d8fb3 2005-12-27 devnull int
1102 3e0d8fb3 2005-12-27 devnull rravfmt(Fmt *f)
1103 3e0d8fb3 2005-12-27 devnull {
1104 3e0d8fb3 2005-12-27 devnull 	RR *rp;
1105 3e0d8fb3 2005-12-27 devnull 	char *strp;
1106 3e0d8fb3 2005-12-27 devnull 	Fmt fstr;
1107 3e0d8fb3 2005-12-27 devnull 	int rv;
1108 3e0d8fb3 2005-12-27 devnull 	Server *s;
1109 3e0d8fb3 2005-12-27 devnull 	Txt *t;
1110 3e0d8fb3 2005-12-27 devnull 	int quote;
1111 3e0d8fb3 2005-12-27 devnull 
1112 3e0d8fb3 2005-12-27 devnull 	fmtstrinit(&fstr);
1113 3e0d8fb3 2005-12-27 devnull 
1114 3e0d8fb3 2005-12-27 devnull 	rp = va_arg(f->args, RR*);
1115 3e0d8fb3 2005-12-27 devnull 	if(rp == 0){
1116 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "<null>");
1117 3e0d8fb3 2005-12-27 devnull 		goto out;
1118 3e0d8fb3 2005-12-27 devnull 	}
1119 3e0d8fb3 2005-12-27 devnull 
1120 3e0d8fb3 2005-12-27 devnull 	if(rp->type == Tptr)
1121 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "ptr=%s", rp->owner->name);
1122 3e0d8fb3 2005-12-27 devnull 	else
1123 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, "dom=%s", rp->owner->name);
1124 3e0d8fb3 2005-12-27 devnull 
1125 3e0d8fb3 2005-12-27 devnull 	switch(rp->type){
1126 3e0d8fb3 2005-12-27 devnull 	case Thinfo:
1127 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " cpu=%s os=%s", rp->cpu->name, rp->os->name);
1128 3e0d8fb3 2005-12-27 devnull 		break;
1129 3e0d8fb3 2005-12-27 devnull 	case Tcname:
1130 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " cname=%s", rp->host->name);
1131 3e0d8fb3 2005-12-27 devnull 		break;
1132 3e0d8fb3 2005-12-27 devnull 	case Tmb:
1133 3e0d8fb3 2005-12-27 devnull 	case Tmd:
1134 3e0d8fb3 2005-12-27 devnull 	case Tmf:
1135 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " mbox=%s", rp->host->name);
1136 3e0d8fb3 2005-12-27 devnull 		break;
1137 3e0d8fb3 2005-12-27 devnull 	case Tns:
1138 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr,  " ns=%s", rp->host->name);
1139 3e0d8fb3 2005-12-27 devnull 		break;
1140 3e0d8fb3 2005-12-27 devnull 	case Tmg:
1141 3e0d8fb3 2005-12-27 devnull 	case Tmr:
1142 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " mbox=%s", rp->mb->name);
1143 3e0d8fb3 2005-12-27 devnull 		break;
1144 3e0d8fb3 2005-12-27 devnull 	case Tminfo:
1145 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " mbox=%s mbox=%s", rp->mb->name, rp->rmb->name);
1146 3e0d8fb3 2005-12-27 devnull 		break;
1147 3e0d8fb3 2005-12-27 devnull 	case Tmx:
1148 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " pref=%lud mx=%s", rp->pref, rp->host->name);
1149 3e0d8fb3 2005-12-27 devnull 		break;
1150 3e0d8fb3 2005-12-27 devnull 	case Ta:
1151 3e0d8fb3 2005-12-27 devnull 	case Taaaa:
1152 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " ip=%s", rp->ip->name);
1153 3e0d8fb3 2005-12-27 devnull 		break;
1154 3e0d8fb3 2005-12-27 devnull 	case Tptr:
1155 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " dom=%s", rp->ptr->name);
1156 3e0d8fb3 2005-12-27 devnull 		break;
1157 3e0d8fb3 2005-12-27 devnull 	case Tsoa:
1158 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " ns=%s mbox=%s serial=%lud refresh=%lud retry=%lud expire=%lud ttl=%lud",
1159 3e0d8fb3 2005-12-27 devnull 			rp->host->name, rp->rmb->name, rp->soa->serial,
1160 3e0d8fb3 2005-12-27 devnull 			rp->soa->refresh, rp->soa->retry,
1161 3e0d8fb3 2005-12-27 devnull 			rp->soa->expire, rp->soa->minttl);
1162 3e0d8fb3 2005-12-27 devnull 		for(s = rp->soa->slaves; s != nil; s = s->next)
1163 3e0d8fb3 2005-12-27 devnull 			fmtprint(&fstr, " dnsslave=%s", s->name);
1164 3e0d8fb3 2005-12-27 devnull 		break;
1165 3e0d8fb3 2005-12-27 devnull 	case Tnull:
1166 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " null=%.*H", rp->null->dlen, rp->null->data);
1167 3e0d8fb3 2005-12-27 devnull 		break;
1168 3e0d8fb3 2005-12-27 devnull 	case Ttxt:
1169 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " txt=");
1170 3e0d8fb3 2005-12-27 devnull 		quote = 0;
1171 3e0d8fb3 2005-12-27 devnull 		for(t = rp->txt; t != nil; t = t->next)
1172 3e0d8fb3 2005-12-27 devnull 			if(strchr(t->p, ' '))
1173 3e0d8fb3 2005-12-27 devnull 				quote = 1;
1174 3e0d8fb3 2005-12-27 devnull 		if(quote)
1175 3e0d8fb3 2005-12-27 devnull 			fmtprint(&fstr, "\"");
1176 3e0d8fb3 2005-12-27 devnull 		for(t = rp->txt; t != nil; t = t->next)
1177 3e0d8fb3 2005-12-27 devnull 			fmtprint(&fstr, "%s", t->p);
1178 3e0d8fb3 2005-12-27 devnull 		if(quote)
1179 3e0d8fb3 2005-12-27 devnull 			fmtprint(&fstr, "\"");
1180 3e0d8fb3 2005-12-27 devnull 		break;
1181 3e0d8fb3 2005-12-27 devnull 	case Trp:
1182 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " rp=%s txt=%s", rp->rmb->name, rp->rp->name);
1183 3e0d8fb3 2005-12-27 devnull 		break;
1184 3e0d8fb3 2005-12-27 devnull 	case Tkey:
1185 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " flags=%d proto=%d alg=%d",
1186 3e0d8fb3 2005-12-27 devnull 			rp->key->flags, rp->key->proto, rp->key->alg);
1187 3e0d8fb3 2005-12-27 devnull 		break;
1188 3e0d8fb3 2005-12-27 devnull 	case Tsig:
1189 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " type=%d alg=%d labels=%d ttl=%lud exp=%lud incep=%lud tag=%d signer=%s",
1190 3e0d8fb3 2005-12-27 devnull 			rp->sig->type, rp->sig->alg, rp->sig->labels, rp->sig->ttl,
1191 3e0d8fb3 2005-12-27 devnull 			rp->sig->exp, rp->sig->incep, rp->sig->tag, rp->sig->signer->name);
1192 3e0d8fb3 2005-12-27 devnull 		break;
1193 3e0d8fb3 2005-12-27 devnull 	case Tcert:
1194 3e0d8fb3 2005-12-27 devnull 		fmtprint(&fstr, " type=%d tag=%d alg=%d",
1195 3e0d8fb3 2005-12-27 devnull 			rp->sig->type, rp->sig->tag, rp->sig->alg);
1196 3e0d8fb3 2005-12-27 devnull 		break;
1197 3e0d8fb3 2005-12-27 devnull 	default:
1198 3e0d8fb3 2005-12-27 devnull 		break;
1199 3e0d8fb3 2005-12-27 devnull 	}
1200 3e0d8fb3 2005-12-27 devnull out:
1201 3e0d8fb3 2005-12-27 devnull 	strp = fmtstrflush(&fstr);
1202 3e0d8fb3 2005-12-27 devnull 	rv = fmtstrcpy(f, strp);
1203 3e0d8fb3 2005-12-27 devnull 	free(strp);
1204 3e0d8fb3 2005-12-27 devnull 	return rv;
1205 3e0d8fb3 2005-12-27 devnull }
1206 3e0d8fb3 2005-12-27 devnull 
1207 3e0d8fb3 2005-12-27 devnull void
1208 3e0d8fb3 2005-12-27 devnull warning(char *fmt, ...)
1209 3e0d8fb3 2005-12-27 devnull {
1210 3e0d8fb3 2005-12-27 devnull 	char dnserr[128];
1211 3e0d8fb3 2005-12-27 devnull 	va_list arg;
1212 3e0d8fb3 2005-12-27 devnull 
1213 3e0d8fb3 2005-12-27 devnull 	va_start(arg, fmt);
1214 3e0d8fb3 2005-12-27 devnull 	vseprint(dnserr, dnserr+sizeof(dnserr), fmt, arg);
1215 3e0d8fb3 2005-12-27 devnull 	va_end(arg);
1216 3e0d8fb3 2005-12-27 devnull 	syslog(1, "dns", dnserr);
1217 3e0d8fb3 2005-12-27 devnull }
1218 3e0d8fb3 2005-12-27 devnull 
1219 3e0d8fb3 2005-12-27 devnull /*
1220 3e0d8fb3 2005-12-27 devnull  *  chasing down double free's
1221 3e0d8fb3 2005-12-27 devnull  */
1222 3e0d8fb3 2005-12-27 devnull void
1223 3e0d8fb3 2005-12-27 devnull dncheck(void *p, int dolock)
1224 3e0d8fb3 2005-12-27 devnull {
1225 3e0d8fb3 2005-12-27 devnull 	DN *dp;
1226 49a1496c 2006-02-20 devnull 	int i;
1227 3e0d8fb3 2005-12-27 devnull 	RR *rp;
1228 3e0d8fb3 2005-12-27 devnull 
1229 3e0d8fb3 2005-12-27 devnull 	if(p != nil){
1230 3e0d8fb3 2005-12-27 devnull 		dp = p;
1231 3e0d8fb3 2005-12-27 devnull 		assert(dp->magic == DNmagic);
1232 3e0d8fb3 2005-12-27 devnull 	}
1233 3e0d8fb3 2005-12-27 devnull 
1234 3e0d8fb3 2005-12-27 devnull 	if(!testing)
1235 3e0d8fb3 2005-12-27 devnull 		return;
1236 3e0d8fb3 2005-12-27 devnull 
1237 3e0d8fb3 2005-12-27 devnull 	if(dolock)
1238 3e0d8fb3 2005-12-27 devnull 		lock(&dnlock);
1239 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < HTLEN; i++)
1240 3e0d8fb3 2005-12-27 devnull 		for(dp = ht[i]; dp; dp = dp->next){
1241 3e0d8fb3 2005-12-27 devnull 			assert(dp != p);
1242 3e0d8fb3 2005-12-27 devnull 			assert(dp->magic == DNmagic);
1243 3e0d8fb3 2005-12-27 devnull 			for(rp = dp->rr; rp; rp = rp->next){
1244 3e0d8fb3 2005-12-27 devnull 				assert(rp->magic == RRmagic);
1245 3e0d8fb3 2005-12-27 devnull 				assert(rp->cached);
1246 3e0d8fb3 2005-12-27 devnull 				assert(rp->owner == dp);
1247 3e0d8fb3 2005-12-27 devnull 			}
1248 3e0d8fb3 2005-12-27 devnull 		}
1249 3e0d8fb3 2005-12-27 devnull 	if(dolock)
1250 3e0d8fb3 2005-12-27 devnull 		unlock(&dnlock);
1251 3e0d8fb3 2005-12-27 devnull }
1252 3e0d8fb3 2005-12-27 devnull 
1253 3e0d8fb3 2005-12-27 devnull static int
1254 3e0d8fb3 2005-12-27 devnull rrequiv(RR *r1, RR *r2)
1255 3e0d8fb3 2005-12-27 devnull {
1256 3e0d8fb3 2005-12-27 devnull 	return r1->owner == r2->owner
1257 3e0d8fb3 2005-12-27 devnull 		&& r1->type == r2->type
1258 3e0d8fb3 2005-12-27 devnull 		&& r1->arg0 == r2->arg0
1259 3e0d8fb3 2005-12-27 devnull 		&& r1->arg1 == r2->arg1;
1260 3e0d8fb3 2005-12-27 devnull }
1261 3e0d8fb3 2005-12-27 devnull 
1262 3e0d8fb3 2005-12-27 devnull void
1263 3e0d8fb3 2005-12-27 devnull unique(RR *rp)
1264 3e0d8fb3 2005-12-27 devnull {
1265 3e0d8fb3 2005-12-27 devnull 	RR **l, *nrp;
1266 3e0d8fb3 2005-12-27 devnull 
1267 3e0d8fb3 2005-12-27 devnull 	for(; rp; rp = rp->next){
1268 3e0d8fb3 2005-12-27 devnull 		l = &rp->next;
1269 3e0d8fb3 2005-12-27 devnull 		for(nrp = *l; nrp; nrp = *l){
1270 3e0d8fb3 2005-12-27 devnull 			if(rrequiv(rp, nrp)){
1271 3e0d8fb3 2005-12-27 devnull 				*l = nrp->next;
1272 3e0d8fb3 2005-12-27 devnull 				rrfree(nrp);
1273 3e0d8fb3 2005-12-27 devnull 			} else
1274 3e0d8fb3 2005-12-27 devnull 				l = &nrp->next;
1275 3e0d8fb3 2005-12-27 devnull 		}
1276 3e0d8fb3 2005-12-27 devnull 	}
1277 3e0d8fb3 2005-12-27 devnull }
1278 3e0d8fb3 2005-12-27 devnull 
1279 3e0d8fb3 2005-12-27 devnull /*
1280 3e0d8fb3 2005-12-27 devnull  *  true if second domain is subsumed by the first
1281 3e0d8fb3 2005-12-27 devnull  */
1282 3e0d8fb3 2005-12-27 devnull int
1283 3e0d8fb3 2005-12-27 devnull subsume(char *higher, char *lower)
1284 3e0d8fb3 2005-12-27 devnull {
1285 3e0d8fb3 2005-12-27 devnull 	int hn, ln;
1286 3e0d8fb3 2005-12-27 devnull 
1287 3e0d8fb3 2005-12-27 devnull 	ln = strlen(lower);
1288 3e0d8fb3 2005-12-27 devnull 	hn = strlen(higher);
1289 3e0d8fb3 2005-12-27 devnull 	if(ln < hn)
1290 3e0d8fb3 2005-12-27 devnull 		return 0;
1291 3e0d8fb3 2005-12-27 devnull 
1292 3e0d8fb3 2005-12-27 devnull 	if(cistrcmp(lower + ln - hn, higher) != 0)
1293 3e0d8fb3 2005-12-27 devnull 		return 0;
1294 3e0d8fb3 2005-12-27 devnull 
1295 3e0d8fb3 2005-12-27 devnull 	if(ln > hn && hn != 0 && lower[ln - hn - 1] != '.')
1296 3e0d8fb3 2005-12-27 devnull 		return 0;
1297 3e0d8fb3 2005-12-27 devnull 
1298 3e0d8fb3 2005-12-27 devnull 	return 1;
1299 3e0d8fb3 2005-12-27 devnull }
1300 3e0d8fb3 2005-12-27 devnull 
1301 3e0d8fb3 2005-12-27 devnull /*
1302 3e0d8fb3 2005-12-27 devnull  *  randomize the order we return items to provide some
1303 3e0d8fb3 2005-12-27 devnull  *  load balancing for servers.
1304 3e0d8fb3 2005-12-27 devnull  *
1305 3e0d8fb3 2005-12-27 devnull  *  only randomize the first class of entries
1306 3e0d8fb3 2005-12-27 devnull  */
1307 3e0d8fb3 2005-12-27 devnull RR*
1308 3e0d8fb3 2005-12-27 devnull randomize(RR *rp)
1309 3e0d8fb3 2005-12-27 devnull {
1310 3e0d8fb3 2005-12-27 devnull 	RR *first, *last, *x, *base;
1311 3e0d8fb3 2005-12-27 devnull 	ulong n;
1312 3e0d8fb3 2005-12-27 devnull 
1313 3e0d8fb3 2005-12-27 devnull 	if(rp == nil || rp->next == nil)
1314 3e0d8fb3 2005-12-27 devnull 		return rp;
1315 3e0d8fb3 2005-12-27 devnull 
1316 3e0d8fb3 2005-12-27 devnull 	/* just randomize addresses and mx's */
1317 3e0d8fb3 2005-12-27 devnull 	for(x = rp; x; x = x->next)
1318 3e0d8fb3 2005-12-27 devnull 		if(x->type != Ta && x->type != Tmx && x->type != Tns)
1319 3e0d8fb3 2005-12-27 devnull 			return rp;
1320 3e0d8fb3 2005-12-27 devnull 
1321 fa325e9b 2020-01-10 cross 	base = rp;
1322 3e0d8fb3 2005-12-27 devnull 
1323 3e0d8fb3 2005-12-27 devnull 	n = rand();
1324 3e0d8fb3 2005-12-27 devnull 	last = first = nil;
1325 3e0d8fb3 2005-12-27 devnull 	while(rp != nil){
1326 3e0d8fb3 2005-12-27 devnull 		/* stop randomizing if we've moved past our class */
1327 3e0d8fb3 2005-12-27 devnull 		if(base->auth != rp->auth || base->db != rp->db){
1328 3e0d8fb3 2005-12-27 devnull 			last->next = rp;
1329 3e0d8fb3 2005-12-27 devnull 			break;
1330 3e0d8fb3 2005-12-27 devnull 		}
1331 3e0d8fb3 2005-12-27 devnull 
1332 3e0d8fb3 2005-12-27 devnull 		/* unchain */
1333 3e0d8fb3 2005-12-27 devnull 		x = rp;
1334 3e0d8fb3 2005-12-27 devnull 		rp = x->next;
1335 3e0d8fb3 2005-12-27 devnull 		x->next = nil;
1336 3e0d8fb3 2005-12-27 devnull 
1337 3e0d8fb3 2005-12-27 devnull 		if(n&1){
1338 3e0d8fb3 2005-12-27 devnull 			/* add to tail */
1339 3e0d8fb3 2005-12-27 devnull 			if(last == nil)
1340 3e0d8fb3 2005-12-27 devnull 				first = x;
1341 3e0d8fb3 2005-12-27 devnull 			else
1342 3e0d8fb3 2005-12-27 devnull 				last->next = x;
1343 3e0d8fb3 2005-12-27 devnull 			last = x;
1344 3e0d8fb3 2005-12-27 devnull 		} else {
1345 3e0d8fb3 2005-12-27 devnull 			/* add to head */
1346 3e0d8fb3 2005-12-27 devnull 			if(last == nil)
1347 3e0d8fb3 2005-12-27 devnull 				last = x;
1348 3e0d8fb3 2005-12-27 devnull 			x->next = first;
1349 3e0d8fb3 2005-12-27 devnull 			first = x;
1350 3e0d8fb3 2005-12-27 devnull 		}
1351 3e0d8fb3 2005-12-27 devnull 
1352 3e0d8fb3 2005-12-27 devnull 		/* reroll the dice */
1353 3e0d8fb3 2005-12-27 devnull 		n >>= 1;
1354 3e0d8fb3 2005-12-27 devnull 	}
1355 3e0d8fb3 2005-12-27 devnull 	return first;
1356 3e0d8fb3 2005-12-27 devnull }
1357 3e0d8fb3 2005-12-27 devnull 
1358 3e0d8fb3 2005-12-27 devnull static int
1359 3e0d8fb3 2005-12-27 devnull sencodefmt(Fmt *f)
1360 3e0d8fb3 2005-12-27 devnull {
1361 3e0d8fb3 2005-12-27 devnull 	char *out;
1362 3e0d8fb3 2005-12-27 devnull 	char *buf;
1363 3e0d8fb3 2005-12-27 devnull 	int i, len;
1364 3e0d8fb3 2005-12-27 devnull 	int ilen;
1365 3e0d8fb3 2005-12-27 devnull 	int rv;
1366 3e0d8fb3 2005-12-27 devnull 	uchar *b;
1367 226d80b8 2006-04-01 devnull 	char obuf[64];	/* rsc optimization */
1368 3e0d8fb3 2005-12-27 devnull 
1369 3e0d8fb3 2005-12-27 devnull 	if(!(f->flags&FmtPrec) || f->prec < 1)
1370 3e0d8fb3 2005-12-27 devnull 		goto error;
1371 3e0d8fb3 2005-12-27 devnull 
1372 3e0d8fb3 2005-12-27 devnull 	b = va_arg(f->args, uchar*);
1373 3e0d8fb3 2005-12-27 devnull 	if(b == nil)
1374 3e0d8fb3 2005-12-27 devnull 		goto error;
1375 3e0d8fb3 2005-12-27 devnull 
1376 3e0d8fb3 2005-12-27 devnull 	/* if it's a printable, go for it */
1377 3e0d8fb3 2005-12-27 devnull 	len = f->prec;
1378 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < len; i++)
1379 3e0d8fb3 2005-12-27 devnull 		if(!isprint(b[i]))
1380 3e0d8fb3 2005-12-27 devnull 			break;
1381 3e0d8fb3 2005-12-27 devnull 	if(i == len){
1382 3e0d8fb3 2005-12-27 devnull 		if(len >= sizeof obuf)
1383 3e0d8fb3 2005-12-27 devnull 			len = sizeof(obuf)-1;
1384 3e0d8fb3 2005-12-27 devnull 		memmove(obuf, b, len);
1385 3e0d8fb3 2005-12-27 devnull 		obuf[len] = 0;
1386 3e0d8fb3 2005-12-27 devnull 		fmtstrcpy(f, obuf);
1387 3e0d8fb3 2005-12-27 devnull 		return 0;
1388 3e0d8fb3 2005-12-27 devnull 	}
1389 3e0d8fb3 2005-12-27 devnull 
1390 3e0d8fb3 2005-12-27 devnull 	ilen = f->prec;
1391 3e0d8fb3 2005-12-27 devnull 	f->prec = 0;
1392 3e0d8fb3 2005-12-27 devnull 	f->flags &= ~FmtPrec;
1393 3e0d8fb3 2005-12-27 devnull 	switch(f->r){
1394 3e0d8fb3 2005-12-27 devnull 	case '<':
1395 3e0d8fb3 2005-12-27 devnull 		len = (8*ilen+4)/5 + 3;
1396 3e0d8fb3 2005-12-27 devnull 		break;
1397 3e0d8fb3 2005-12-27 devnull 	case '[':
1398 3e0d8fb3 2005-12-27 devnull 		len = (8*ilen+5)/6 + 4;
1399 3e0d8fb3 2005-12-27 devnull 		break;
1400 3e0d8fb3 2005-12-27 devnull 	case 'H':
1401 3e0d8fb3 2005-12-27 devnull 		len = 2*ilen + 1;
1402 3e0d8fb3 2005-12-27 devnull 		break;
1403 3e0d8fb3 2005-12-27 devnull 	default:
1404 3e0d8fb3 2005-12-27 devnull 		goto error;
1405 3e0d8fb3 2005-12-27 devnull 	}
1406 3e0d8fb3 2005-12-27 devnull 
1407 3e0d8fb3 2005-12-27 devnull 	if(len > sizeof(obuf)){
1408 3e0d8fb3 2005-12-27 devnull 		buf = malloc(len);
1409 3e0d8fb3 2005-12-27 devnull 		if(buf == nil)
1410 3e0d8fb3 2005-12-27 devnull 			goto error;
1411 3e0d8fb3 2005-12-27 devnull 	} else
1412 3e0d8fb3 2005-12-27 devnull 		buf = obuf;
1413 3e0d8fb3 2005-12-27 devnull 
1414 226d80b8 2006-04-01 devnull 	/* convert */
1415 3e0d8fb3 2005-12-27 devnull 	out = buf;
1416 3e0d8fb3 2005-12-27 devnull 	switch(f->r){
1417 3e0d8fb3 2005-12-27 devnull 	case '<':
1418 3e0d8fb3 2005-12-27 devnull 		rv = enc32(out, len, b, ilen);
1419 3e0d8fb3 2005-12-27 devnull 		break;
1420 3e0d8fb3 2005-12-27 devnull 	case '[':
1421 3e0d8fb3 2005-12-27 devnull 		rv = enc64(out, len, b, ilen);
1422 3e0d8fb3 2005-12-27 devnull 		break;
1423 3e0d8fb3 2005-12-27 devnull 	case 'H':
1424 3e0d8fb3 2005-12-27 devnull 		rv = enc16(out, len, b, ilen);
1425 3e0d8fb3 2005-12-27 devnull 		break;
1426 3e0d8fb3 2005-12-27 devnull 	default:
1427 3e0d8fb3 2005-12-27 devnull 		rv = -1;
1428 3e0d8fb3 2005-12-27 devnull 		break;
1429 3e0d8fb3 2005-12-27 devnull 	}
1430 3e0d8fb3 2005-12-27 devnull 	if(rv < 0)
1431 3e0d8fb3 2005-12-27 devnull 		goto error;
1432 3e0d8fb3 2005-12-27 devnull 
1433 3e0d8fb3 2005-12-27 devnull 	fmtstrcpy(f, buf);
1434 3e0d8fb3 2005-12-27 devnull 	if(buf != obuf)
1435 3e0d8fb3 2005-12-27 devnull 		free(buf);
1436 3e0d8fb3 2005-12-27 devnull 	return 0;
1437 3e0d8fb3 2005-12-27 devnull 
1438 3e0d8fb3 2005-12-27 devnull error:
1439 3e0d8fb3 2005-12-27 devnull 	return fmtstrcpy(f, "<encodefmt>");
1440 3e0d8fb3 2005-12-27 devnull 
1441 3e0d8fb3 2005-12-27 devnull }
1442 3e0d8fb3 2005-12-27 devnull 
1443 3e0d8fb3 2005-12-27 devnull void*
1444 3e0d8fb3 2005-12-27 devnull emalloc(int size)
1445 3e0d8fb3 2005-12-27 devnull {
1446 3e0d8fb3 2005-12-27 devnull 	char *x;
1447 3e0d8fb3 2005-12-27 devnull 
1448 3e0d8fb3 2005-12-27 devnull 	x = mallocz(size, 1);
1449 3e0d8fb3 2005-12-27 devnull 	if(x == nil)
1450 3e0d8fb3 2005-12-27 devnull 		abort();
1451 3e0d8fb3 2005-12-27 devnull 	setmalloctag(x, getcallerpc(&size));
1452 3e0d8fb3 2005-12-27 devnull 	return x;
1453 3e0d8fb3 2005-12-27 devnull }
1454 3e0d8fb3 2005-12-27 devnull 
1455 3e0d8fb3 2005-12-27 devnull char*
1456 3e0d8fb3 2005-12-27 devnull estrdup(char *s)
1457 3e0d8fb3 2005-12-27 devnull {
1458 3e0d8fb3 2005-12-27 devnull 	int size;
1459 3e0d8fb3 2005-12-27 devnull 	char *p;
1460 3e0d8fb3 2005-12-27 devnull 
1461 3e0d8fb3 2005-12-27 devnull 	size = strlen(s)+1;
1462 3e0d8fb3 2005-12-27 devnull 	p = mallocz(size, 0);
1463 3e0d8fb3 2005-12-27 devnull 	if(p == nil)
1464 3e0d8fb3 2005-12-27 devnull 		abort();
1465 3e0d8fb3 2005-12-27 devnull 	memmove(p, s, size);
1466 3e0d8fb3 2005-12-27 devnull 	setmalloctag(p, getcallerpc(&s));
1467 3e0d8fb3 2005-12-27 devnull 	return p;
1468 3e0d8fb3 2005-12-27 devnull }
1469 3e0d8fb3 2005-12-27 devnull 
1470 3e0d8fb3 2005-12-27 devnull /*
1471 3e0d8fb3 2005-12-27 devnull  *  create a pointer record
1472 3e0d8fb3 2005-12-27 devnull  */
1473 3e0d8fb3 2005-12-27 devnull static RR*
1474 3e0d8fb3 2005-12-27 devnull mkptr(DN *dp, char *ptr, ulong ttl)
1475 3e0d8fb3 2005-12-27 devnull {
1476 3e0d8fb3 2005-12-27 devnull 	DN *ipdp;
1477 3e0d8fb3 2005-12-27 devnull 	RR *rp;
1478 3e0d8fb3 2005-12-27 devnull 
1479 3e0d8fb3 2005-12-27 devnull 	ipdp = dnlookup(ptr, Cin, 1);
1480 3e0d8fb3 2005-12-27 devnull 
1481 3e0d8fb3 2005-12-27 devnull 	rp = rralloc(Tptr);
1482 3e0d8fb3 2005-12-27 devnull 	rp->ptr = dp;
1483 3e0d8fb3 2005-12-27 devnull 	rp->owner = ipdp;
1484 3e0d8fb3 2005-12-27 devnull 	rp->db = 1;
1485 3e0d8fb3 2005-12-27 devnull 	if(ttl)
1486 3e0d8fb3 2005-12-27 devnull 		rp->ttl = ttl;
1487 3e0d8fb3 2005-12-27 devnull 	return rp;
1488 3e0d8fb3 2005-12-27 devnull }
1489 3e0d8fb3 2005-12-27 devnull 
1490 3e0d8fb3 2005-12-27 devnull /*
1491 3e0d8fb3 2005-12-27 devnull  *  look for all ip addresses in this network and make
1492 3e0d8fb3 2005-12-27 devnull  *  pointer records for them.
1493 3e0d8fb3 2005-12-27 devnull  */
1494 3e0d8fb3 2005-12-27 devnull void
1495 3e0d8fb3 2005-12-27 devnull dnptr(uchar *net, uchar *mask, char *dom, int bytes, int ttl)
1496 3e0d8fb3 2005-12-27 devnull {
1497 3e0d8fb3 2005-12-27 devnull 	int i, j;
1498 3e0d8fb3 2005-12-27 devnull 	DN *dp;
1499 3e0d8fb3 2005-12-27 devnull 	RR *rp, *nrp, *first, **l;
1500 3e0d8fb3 2005-12-27 devnull 	uchar ip[IPaddrlen];
1501 3e0d8fb3 2005-12-27 devnull 	uchar nnet[IPaddrlen];
1502 3e0d8fb3 2005-12-27 devnull 	char ptr[Domlen];
1503 3e0d8fb3 2005-12-27 devnull 	char *p, *e;
1504 3e0d8fb3 2005-12-27 devnull 
1505 3e0d8fb3 2005-12-27 devnull 	l = &first;
1506 3e0d8fb3 2005-12-27 devnull 	first = nil;
1507 3e0d8fb3 2005-12-27 devnull 	for(i = 0; i < HTLEN; i++){
1508 3e0d8fb3 2005-12-27 devnull 		for(dp = ht[i]; dp; dp = dp->next){
1509 3e0d8fb3 2005-12-27 devnull 			for(rp = dp->rr; rp; rp = rp->next){
1510 3e0d8fb3 2005-12-27 devnull 				if(rp->type != Ta || rp->negative)
1511 3e0d8fb3 2005-12-27 devnull 					continue;
1512 3e0d8fb3 2005-12-27 devnull 				parseip(ip, rp->ip->name);
1513 3e0d8fb3 2005-12-27 devnull 				maskip(ip, mask, nnet);
1514 3e0d8fb3 2005-12-27 devnull 				if(ipcmp(net, nnet) != 0)
1515 3e0d8fb3 2005-12-27 devnull 					continue;
1516 3e0d8fb3 2005-12-27 devnull 				p = ptr;
1517 3e0d8fb3 2005-12-27 devnull 				e = ptr+sizeof(ptr);
1518 3e0d8fb3 2005-12-27 devnull 				for(j = IPaddrlen-1; j >= IPaddrlen-bytes; j--)
1519 3e0d8fb3 2005-12-27 devnull 					p = seprint(p, e, "%d.", ip[j]);
1520 3e0d8fb3 2005-12-27 devnull 				seprint(p, e, "%s", dom);
1521 3e0d8fb3 2005-12-27 devnull 				nrp = mkptr(dp, ptr, ttl);
1522 3e0d8fb3 2005-12-27 devnull 				*l = nrp;
1523 3e0d8fb3 2005-12-27 devnull 				l = &nrp->next;
1524 3e0d8fb3 2005-12-27 devnull 			}
1525 3e0d8fb3 2005-12-27 devnull 		}
1526 3e0d8fb3 2005-12-27 devnull 	}
1527 3e0d8fb3 2005-12-27 devnull 
1528 3e0d8fb3 2005-12-27 devnull 	for(rp = first; rp != nil; rp = nrp){
1529 3e0d8fb3 2005-12-27 devnull 		nrp = rp->next;
1530 3e0d8fb3 2005-12-27 devnull 		rp->next = nil;
1531 3e0d8fb3 2005-12-27 devnull 		rrattach(rp, 1);
1532 3e0d8fb3 2005-12-27 devnull 	}
1533 3e0d8fb3 2005-12-27 devnull }
1534 3e0d8fb3 2005-12-27 devnull 
1535 3e0d8fb3 2005-12-27 devnull void
1536 3e0d8fb3 2005-12-27 devnull freeserverlist(Server *s)
1537 3e0d8fb3 2005-12-27 devnull {
1538 3e0d8fb3 2005-12-27 devnull 	Server *next;
1539 3e0d8fb3 2005-12-27 devnull 
1540 3e0d8fb3 2005-12-27 devnull 	for(; s != nil; s = next){
1541 3e0d8fb3 2005-12-27 devnull 		next = s->next;
1542 3e0d8fb3 2005-12-27 devnull 		free(s);
1543 3e0d8fb3 2005-12-27 devnull 	}
1544 3e0d8fb3 2005-12-27 devnull }
1545 3e0d8fb3 2005-12-27 devnull 
1546 3e0d8fb3 2005-12-27 devnull void
1547 3e0d8fb3 2005-12-27 devnull addserver(Server **l, char *name)
1548 3e0d8fb3 2005-12-27 devnull {
1549 3e0d8fb3 2005-12-27 devnull 	Server *s;
1550 3e0d8fb3 2005-12-27 devnull 
1551 3e0d8fb3 2005-12-27 devnull 	while(*l)
1552 3e0d8fb3 2005-12-27 devnull 		l = &(*l)->next;
1553 3e0d8fb3 2005-12-27 devnull 	s = malloc(sizeof(Server)+strlen(name)+1);
1554 3e0d8fb3 2005-12-27 devnull 	if(s == nil)
1555 3e0d8fb3 2005-12-27 devnull 		return;
1556 3e0d8fb3 2005-12-27 devnull 	s->name = (char*)(s+1);
1557 3e0d8fb3 2005-12-27 devnull 	strcpy(s->name, name);
1558 3e0d8fb3 2005-12-27 devnull 	s->next = nil;
1559 3e0d8fb3 2005-12-27 devnull 	*l = s;
1560 3e0d8fb3 2005-12-27 devnull }
1561 3e0d8fb3 2005-12-27 devnull 
1562 3e0d8fb3 2005-12-27 devnull Server*
1563 3e0d8fb3 2005-12-27 devnull copyserverlist(Server *s)
1564 3e0d8fb3 2005-12-27 devnull {
1565 3e0d8fb3 2005-12-27 devnull 	Server *ns;
1566 3e0d8fb3 2005-12-27 devnull 
1567 fa325e9b 2020-01-10 cross 
1568 3e0d8fb3 2005-12-27 devnull 	for(ns = nil; s != nil; s = s->next)
1569 3e0d8fb3 2005-12-27 devnull 		addserver(&ns, s->name);
1570 3e0d8fb3 2005-12-27 devnull 	return ns;
1571 3e0d8fb3 2005-12-27 devnull }