8 static RR* doextquery(DNSmsg*, Request*, int);
9 static void hint(RR**, RR*);
14 * answer a dns request
17 dnserver(DNSmsg *reqp, DNSmsg *repp, Request *req)
27 memset(repp, 0, sizeof(*repp));
29 repp->flags = Fresp | Fcanrec | Oquery;
31 /* move one question from reqp to repp */
37 if(!rrsupported(repp->qd->type)){
38 syslog(0, logfile, "server: request %s", rrname(repp->qd->type, tname, sizeof tname));
39 repp->flags = Runimplimented | Fresp | Fcanrec | Oquery;
43 if(repp->qd->owner->class != Cin){
44 syslog(0, logfile, "server: class %d", repp->qd->owner->class);
45 repp->flags = Runimplimented | Fresp | Fcanrec | Oquery;
49 myarea = inmyarea(repp->qd->owner->name);
50 if(myarea != nil && (repp->qd->type == Tixfr || repp->qd->type == Taxfr)){
51 syslog(0, logfile, "server: request %s", rrname(repp->qd->type, tname, sizeof tname));
52 repp->flags = Runimplimented | Fresp | Fcanrec | Oquery;
57 * get the answer if we can
59 if(reqp->flags & Frecurse)
60 neg = doextquery(repp, req, Recurse);
62 neg = doextquery(repp, req, Dontrecurse);
64 /* authority is transitive */
65 if(myarea != nil || (repp->an && repp->an->auth))
68 /* pass on error codes */
70 dp = dnlookup(repp->qd->owner->name, repp->qd->owner->class, 0);
72 if(reqp->flags & Frecurse)
73 repp->flags |= dp->nonexistent|Fauth;
78 * add name server if we know
80 for(cp = repp->qd->owner->name; cp; cp = walkup(cp)){
81 nsdp = dnlookup(cp, repp->qd->owner->class, 0);
85 repp->ns = rrlookup(nsdp, Tns, OKneg);
87 /* don't pass on anything we know is wrong */
88 if(repp->ns->negative){
95 repp->ns = dblookup(cp, repp->qd->owner->class, Tns, 0, 0);
102 * add ip addresses as hints
104 if(repp->qd->type != Taxfr && repp->qd->type != Tixfr){
105 for(tp = repp->ns; tp; tp = tp->next)
107 for(tp = repp->an; tp; tp = tp->next)
112 * add an soa to the authority section to help client with negative caching
116 rrcopy(myarea->soarr, &tp);
117 rrcat(&repp->ns, tp);
118 } else if(neg != nil) {
119 if(neg->negsoaowner != nil)
120 rrcat(&repp->ns, rrlookup(neg->negsoaowner, Tsoa, NOneg));
121 repp->flags |= neg->negrcode;
126 * get rid of duplicates
138 * satisfy a recursive request. dnlookup will handle cnames.
141 doextquery(DNSmsg *mp, Request *req, int recurse)
147 name = mp->qd->owner->name;
149 rp = dnresolve(name, Cin, type, req, &mp->an, 0, recurse, 1, 0);
151 /* don't return soa hints as answers, it's wrong */
152 if(rp && rp->db && !rp->auth && rp->type == Tsoa)
155 /* don't let negative cached entries escape */
162 hint(RR **last, RR *rp)
172 hp = rrlookup(rp->host, Ta, NOneg);
174 hp = dblookup(rp->host->name, Cin, Ta, 0, 0);