123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961 |
- /**************************************
- * AUTHOR: Federico Tomassini *
- * Copyright (C) Federico Tomassini *
- * Contact effetom@gmail.com *
- ***********************************************
- ******* BEGIN 3/2006 ********
- *************************************************************************
- * *
- * This program is free software; you can redistribute it and/or modify *
- * it under the terms of the GNU General Public License as published by *
- * the Free Software Foundation; either version 2 of the License, or *
- * (at your option) any later version. *
- * *
- * This program is distributed in the hope that it will be useful, *
- * but WITHOUT ANY WARRANTY; without even the implied warranty of *
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
- * GNU General Public License for more details. *
- * *
- ************************************************************************/
-
- #define _GNU_SOURCE
- #include <string.h>
- #include <netdb.h>
-
- #include "includes.h"
- #include "common.h"
- #include "andns.h"
- #include "err_errno.h"
- #include "andna.h"
- #include "andns_lib.h"
- #include "andns_net.h"
- #include "andns_snsd.h"
- #include "dnslib.h"
-
-
- static uint8_t _dns_forwarding_;
- static uint8_t _andns_ns_count_;
- static uint8_t _default_realm_;
-
- static struct addrinfo _ns_filter_;
- static struct addrinfo *_andns_ns_[MAXNSSERVERS];
-
- static int _ip_len_;
-
- /* Debugging Functions to isolate andns from andna
- snsd_service* debug_andna_resolve_hname(char *s,int service,u_char proto,int *records)
- {
- char *ciccio="111.222.123.123";
- debug(DBG_NORMAL,"Entering debug_andna_resolve.");
- snsd_service *ss;
- snsd_prio *sp;
- snsd_node *sn;
- ss=xmalloc(sizeof(snsd_service));
- ss->prio=xmalloc(sizeof(snsd_prio));
- sp=ss->prio;
- sp->node=xmalloc(sizeof(snsd_node));
- sn=sp->node;
- inet_pton(AF_INET,ciccio,sn->record);
- sn->flags|=SNSD_NODE_MAIN_IP;
- sn->flags|=SNSD_NODE_IP;
- ss->next=0;
- ss->prev=0;
- sp->next=0;
- sp->prev=0;
- sn->next=0;
- sn->prev=0;
- *records=1;
- return ss;
- }
- lcl_cache* debug_andna_reverse_resolve(inet_prefix addr)
- {
- lcl_cache *lc;
- debug(DBG_NORMAL,"Entering debug_andna_reverse.");
- lc=xmalloc(sizeof(lcl_cache));
- memset(lc,0,sizeof(lcl_cache));
- lc->hostname=xmalloc(12);
- strcpy(lc->hostname,"Ciao mamma");
- return lc;
- }*/
-
-
-
-
- /* INIT FUNCTIONS */
-
-
- /*
- * Saves on `nsbuf' and `ns_count' the ip
- * address ns: these infos will be used for DNS
- * forwarding.
- *
- * Returns:
- * -1 on error
- * 0 if OK
- */
- int store_ns(char *ns)
- {
- int res;
- struct addrinfo **ai;
-
- if (strstr(ns, "127.0.0.")) /* TODO: make it proto independent */
- return -1;
-
- ai=&_andns_ns_[_andns_ns_count_];
- res=getaddrinfo(ns, DNS_PORT_STR, &_ns_filter_, ai);
- if (res) {
- debug(DBG_NORMAL,"In store_ns(): gai `%s' -> %s",ns,gai_strerror(errno));
- return -1;
- }
- _andns_ns_count_++;
- return 0;
- }
- /*
- * Reads resolv.conf, searching nameserver lines.
- * Takes the ip address from these lines and calls store_ns.
- * "nameserver 127.0.0.1" is discarded to remove looping behaviors.
- * The number of stored nameservers is written in
- * `*ns_count' and it is returned.
- * If an error occurred or no hostnames are available, -1 is returned.
- */
- int collect_resolv_conf(char *resolve_conf)
- {
- FILE *erc;
- char buf[512],*crow;
-
- if (!(erc=fopen(resolve_conf,"r"))) {
- error("In collect_resolv_conf: "
- "error -> %s.", strerror(errno));
- err_ret(ERR_RSLERC,-1);
- }
- while ((crow=fgets(buf,512,erc)) && _andns_ns_count_<MAXNSSERVERS) {
- if (!(crow=strstr(buf,"nameserver "))) /* is a good line? */
- continue;
-
- /* Skip if the line is commented */
- *crow=0;
- if(strchr(buf, '#'))
- continue;
-
- crow+=11;
-
- /* remove unwanted chars */
- strip_char(crow, '\t');
- strip_char(crow, ' ');
- strip_char(crow, '\n');
-
- store_ns(crow); /* finally store nameserver */
- }
- if (fclose(erc)!=0) {
- error("In collect_resolv_conf: closing "
- "resolv.conf -> %s",strerror(errno));
- err_ret(ERR_RSLERC,-1);
- }
- if (!_andns_ns_count_)
- err_ret(ERR_RSLNNS,-1);
- return _andns_ns_count_;
- }
-
- void reset_andns_ns(void)
- {
- int i;
- for(i=0; i<_andns_ns_count_; i++)
- if(_andns_ns_[i])
- freeaddrinfo(_andns_ns_[i]);
- _andns_ns_count_=0;
- setzero(_andns_ns_, sizeof(struct addrinfo *)*MAXNSSERVERS);
- }
-
- /*
- * This function must be called before all.
- * Sets the default realm for domain name resolution
- * and stores infos about nameservers for dns query.
- * On error -1 is returned.
- */
- int andns_init(int restricted, char *resolv_conf,int family)
- {
- int i,res;
- char msg[(INET6_ADDRSTRLEN+2)*MAXNSSERVERS];
- char buf[INET6_ADDRSTRLEN];
- struct addrinfo *ai;
-
- memset(&_ns_filter_,0,sizeof(struct addrinfo));
-
- _ns_filter_.ai_socktype=SOCK_DGRAM;
- _ip_len_=family==AF_INET?4:16;
-
- _default_realm_=(restricted)?INET_REALM:NTK_REALM;
- _andns_ns_count_=0;
- setzero(_andns_ns_, sizeof(struct addrinfo *)*MAXNSSERVERS);
-
- memset(msg,0,(INET_ADDRSTRLEN+2)*MAXNSSERVERS);
-
- if(_default_realm_ == NTK_REALM) {
- /* We are in NTK realm, every IP is assigned to Netsukuku,
- * therefore dns forwarding is meaningless */
- _dns_forwarding_=0;
- return 0;
- }
-
- res=collect_resolv_conf(resolv_conf);
- if (res <=0) {
- _dns_forwarding_=0;
- debug(DBG_NORMAL,err_str);
- err_ret(ERR_RSLAIE,-1);
- }
-
- /*
- * Debug message
- */
- for (i=0;i<_andns_ns_count_;i++) {
- ai=_andns_ns_[i];
- res=idp_inet_ntop(ai->ai_family,ai->ai_addr,buf,
- INET6_ADDRSTRLEN);
- if (!res) {
- strncat(msg,buf,INET_ADDRSTRLEN);
- strncat(msg,i==_andns_ns_count_-1?". ":", ",2);
- } else
- error("In andns_init: error "
- "converting sockaddr -> %s.",\
- strerror(errno));
- }
- loginfo("Inet DNS queries will be forwarded to: %s",msg);
-
- _dns_forwarding_=1;
- return 0;
- }
-
- void andns_close(void)
- {
- reset_andns_ns();
- }
-
-
- /* NET FUNCTIONS */
-
- int ns_general_send(char *msg,int msglen,char *answer,int anslen)
- {
- int res,i;
-
- for (i=0; i<_andns_ns_count_;i++) {
- res=ai_send_recv_close(_andns_ns_[i],msg,msglen,
- answer,anslen,0,0,ANDNS_TIMEOUT);
- if(res != -1) {
- return res;
- }
- }
-
- err_ret(ERR_RSLFDQ,-1);
- }
-
- /* UTILS FUNCTIONS */
-
- /*
- * Make a copy of DNS pkt data. If prefix is not NULL,
- * the prefix is added to strings.
- */
- void dpktacpy(dns_pkt *dst,dns_pkt *src,const char *prefix)
- {
- dns_pkt_a *dpas,*dpad;
- int slen;
- int yet_pref=0;
- char temp[257];
-
- dpas=src->pkt_answ;
- while(dpas) {
- dpad=DP_ADD_ANSWER(dst);
- memcpy(dpad,dpas,sizeof(dns_pkt_a));
- dpad->next=NULL;
- if (prefix && !yet_pref) { /* TODO: yet_pref better */
- slen=strlen(dpad->name);
- if (dpas->type!=T_PTR)
- memcpy(dpad->name+slen,prefix,REALM_PREFIX_LEN);
- else {
- strcpy(temp,dpad->name);
- memcpy(dpad->name,prefix+1,REALM_PREFIX_LEN-1);
- dpad->name[REALM_PREFIX_LEN-1]='.';
- strcpy(dpad->name+REALM_PREFIX_LEN,temp);
- }
- *(dpad->name+slen+REALM_PREFIX_LEN)=0;
- yet_pref=1;
- }
- dpas=dpas->next;
- }
- dpas=src->pkt_auth;
- while(dpas) {
- dpad=DP_ADD_AUTH(dst);
- memcpy(dpad,dpas,sizeof(dns_pkt_a));
- dpad->next=NULL;
- dpas=dpas->next;
- }
- dpas=src->pkt_add;
- while(dpas) {
- dpad=DP_ADD_ADD(dst);
- memcpy(dpad,dpas,sizeof(dns_pkt_a));
- dpad->next=NULL;
- dpas=dpas->next;
- }
- }
-
- /*
- * Make a full copy of a dns pkt. If prefix is not
- * null, prefix is added to names.
- */
- dns_pkt* dpktcpy(dns_pkt *src,const char *prefix)
- {
- dns_pkt *dst;
- dns_pkt_qst *dpq,*dpq_src;
-
- dst=create_dns_pkt();
- memcpy(dst,src,sizeof(dns_pkt));
- dst->pkt_qst=NULL;
- dst->pkt_answ=NULL;
- dst->pkt_auth=NULL;
- dst->pkt_add=NULL;
-
- dpq_src=src->pkt_qst;
- while (dpq_src) {
- dpq=dns_add_qst(dst);
- memcpy(dpq,dpq_src,sizeof(dns_pkt_qst));
- dpq->next=NULL;
- dpq_src=dpq_src->next;
- }
- dpktacpy(dst,src,prefix);
- return dst;
- }
-
- /*
- * Remove the suffix realm, if any.
- * Writes the result on dst.
- */
- char* rm_realm_prefix(char *from,char *dst,int type)
- {
- int slen;
- slen=strlen(from);
-
- if (slen<5)
- strcpy(dst,from);
- else if (type==T_PTR) {
- if (strcasestr(from,PTR_INET_REALM_PREFIX)==from ||
- strcasestr(from,PTR_NTK_REALM_PREFIX)==from)
- strcpy(dst,from+REALM_PREFIX_LEN);
- else
- strcpy(dst,from);
-
- } else if (strcasestr(from+slen-REALM_PREFIX_LEN,INET_REALM_PREFIX) ||
- strcasestr(from+slen-REALM_PREFIX_LEN,NTK_REALM_PREFIX)) {
- strncpy(dst,from,slen-REALM_PREFIX_LEN);
- dst[slen-REALM_PREFIX_LEN]=0;
- } else
- strcpy(dst,from);
- return dst;
- }
-
- /* Make a copy of a dns pkt, only for headers and questions.
- * If the question is prefixed, the prefix is removed.
- */
- dns_pkt* dpktcpy_rm_pref(dns_pkt *src)
- {
- dns_pkt *dst;
- dns_pkt_qst *dpq;
- // char temp[DNS_MAX_HNAME_LEN];
-
- dst=dpktcpy(src,NULL);
- dpq=dst->pkt_qst;
- rm_realm_prefix(src->pkt_qst->qname,dpq->qname,dpq->qtype);
- // strcpy(dpq->qname,temp);
- return dst;
- }
- int andns_realm(dns_pkt_qst *dpq,int *prefixed)
- {
- int slen;
- char *qst;
-
- qst=dpq->qname;
-
- if (!qst)
- err_ret(ERR_UFOERR,-1);
- slen=strlen(qst);
-
- /* if qst is tto short, it's impossible to
- consider a prefix. */
- if (slen<5) return _default_realm_;
-
- if (dpq->qtype==T_PTR) {
- if (strcasestr(qst,PTR_INET_REALM_PREFIX)==qst) {
- if (prefixed) *prefixed=1;
- return INET_REALM;
- }
- if (strcasestr(qst,PTR_NTK_REALM_PREFIX)==qst) {
- if (prefixed) *prefixed=1;
- return NTK_REALM;
- }
- if (prefixed) *prefixed=0;
- return _default_realm_;
- }
- if (strcasestr(qst+slen-REALM_PREFIX_LEN,INET_REALM_PREFIX)) {
- if (prefixed) *prefixed=1;
- return INET_REALM;
- }
- if (strcasestr(qst+slen-REALM_PREFIX_LEN,NTK_REALM_PREFIX)) {
- if (prefixed) *prefixed=1;
- return NTK_REALM;
- }
- if (prefixed) *prefixed=0;
- return _default_realm_;
- }
- /*
- * Returns:
- * 0 if the question does not have a suffix
- * 1 if the question has suffix
- */
- int is_prefixed(dns_pkt *dp)
- {
- int prefix=0;
-
- andns_realm(dp->pkt_qst,&prefix);
- return prefix;
- }
-
- /*
- * A very stupid function that converts
- * ANDNS code to DNS code.
- */
- int qtype_a_to_d(andns_pkt *ap)
- {
- switch (ap->qtype) {
- case AT_PTR:
- return T_PTR;
- case AT_A:
- if (ap->service==25)
- return T_MX;
- else if (!ap->service)
- return T_A;
- else
- return -1;
- default:
- return -1;
- }
- }
- int apqsttodpqst(andns_pkt *ap,dns_pkt **dpsrc)
- {
- dns_pkt *dp;
- dns_pkt_hdr *dph;
- dns_pkt_qst *dpq;
- int res,qt;
- int qlen,family;
-
- qt=qtype_a_to_d(ap);
- if (qt==-1)
- err_ret(ERR_ANDNCQ,-1);
-
- *dpsrc=create_dns_pkt();
- dp=*dpsrc;
- dph=&(dp->pkt_hdr);
- dpq=dns_add_qst(dp);
-
- if (qt==T_A || qt==T_MX) {
- qlen=strlen(ap->qstdata);
- if (qlen>DNS_MAX_HNAME_LEN)
- goto incomp_err;
- strcpy(dpq->qname,ap->qstdata);
- }
- else if (qt==T_PTR) {
- char temp[DNS_MAX_HNAME_LEN];
- qlen=ap->qstlength;
- if (qlen==4)
- family=AF_INET;
- else if (qlen==16)
- family=AF_INET6;
- else
- goto incomp_err;
- if (!inet_ntop(family,ap->qstdata,temp,
- DNS_MAX_HNAME_LEN)) {
- debug(DBG_INSANE,err_str);
- goto incomp_err;
- }
- res=swapped_straddr_pref(temp,
- dpq->qname,family);
- if (res==-1) {
- debug(DBG_INSANE,err_str);
- goto incomp_err;
- }
- }
- else
- goto incomp_err;
- dph->id=ap->id;
- dph->rd=1;
- dph->qdcount++;
- dpq->qtype=qt;
- dpq->qclass=C_IN;
- return 0;
- incomp_err:
- destroy_dns_pkt(dp);
- err_ret(ERR_ANDNCQ,-1);
- }
- int dpanswtoapansw(dns_pkt *dp,andns_pkt *ap)
- {
- int i,rcode,qt,ancount,nan=0;
- dns_pkt_a *dpa;
- andns_pkt_data *apd;
-
- ancount=DNS_GET_ANCOUNT(dp);
- rcode=DNS_GET_RCODE(dp);
- ap->rcode=rcode;
- ap->qr=1;
-
- if (rcode!=DNS_RCODE_NOERR)
- return 0;
-
- qt=dp->pkt_qst->qtype;
- dpa=dp->pkt_answ;
- for (i=0;i<ancount;i++) {
- if (!dpa)
- break;
- apd=andns_add_answ(ap);
- if (qt==T_A) {
- apd->rdlength=_ip_len_;
- APD_ALIGN(apd);
- memcpy(apd->rdata,dpa->rdata,_ip_len_);
- nan++;
- }
- else if (qt==T_PTR ) {
- apd->rdlength=strlen(dpa->rdata);
- APD_ALIGN(apd);
- strcpy(apd->rdata,dpa->rdata);
- nan++;
- }
- else if (qt==T_MX) {
- struct hostent *h;
- uint16_t prio;
- h=gethostbyname(dpa->rdata+2);
- if (!h || !(h->h_length)) {
- andns_del_answ(ap);
- debug(DBG_INSANE,"MX Ip Record not found.");
- continue;
- }
- apd->rdlength=h->h_addrtype==AF_INET?4:16;
- APD_ALIGN(apd);
- memcpy(apd->rdata,h->h_addr_list[0],apd->rdlength);
- memcpy(&prio,dpa->rdata,sizeof(uint16_t));
- apd->prio=prio>>8;
- // (uint8_t)(ntohs((uint16_t)(*(dpa->rdata))));
- // memcpy(&(apd->prio),dpa->rdata,sizeof(uint16_t));
- nan++;
- }
- else
- andns_del_answ(ap);
- dpa=dpa->next;
- }
- if (i!=ancount || nan!=ancount)
- debug(DBG_INSANE,"In dpanswtoapansw: "
- "ancount=%d, andns answers=%d",\
- DNS_GET_ANCOUNT(dp),i);
- ap->ancount=nan;
-
- return 0;
- }
-
- /* FINALLY RESOLVING FUNCTIONS */
-
- /*
- * His goal is trivial.
- * DO NOT USE suffixes query, i.e. query with ".INT" or ".NTK".
- * NXDOMAIN otherwise.
- *
- * Returns:
- * -1 on error
- * 0 if OK
- */
- int andns_gethostbyname(char *hname, inet_prefix *ip)
- {
- dns_pkt *dp;
- dns_pkt_hdr *dph;
- dns_pkt_qst *dpq;
- int res;
- char msg[DNS_MAX_SZ],answ[DNS_MAX_SZ];
- uint32_t addr;
-
- dp=create_dns_pkt();
- dph=&(dp->pkt_hdr);
-
- dph->id=(rand() >> 16) ^ (rand() >> 16);
- dph->rd=1;
-
- dpq=dns_add_qst(dp);
- rm_realm_prefix(hname,dpq->qname,T_A);
- dpq->qtype=T_A;
- dpq->qclass=C_IN;
-
- DP_QDCOUNT(dp)++;
-
- memset(msg,0,DNS_MAX_SZ);
- memset(answ,0,DNS_MAX_SZ);
- if ((res=d_p(dp,msg))==-1) {
- error(err_str);
- err_ret(ERR_RSLRSL,-1);
- }
- if ((res=ns_general_send(msg,res,answ,DNS_MAX_SZ))==-1) {
- error(err_str);
- err_ret(ERR_RSLRSL,-1);
- }
- if ((res=d_u(answ,res,&dp))==-1) {
- error(err_str);
- err_ret(ERR_RSLRSL,-1);
- }
- fprintf(stderr, "Addr is %p, rdata is %p rawr %p hai %p\n", (void*)&addr, (void*) dp->pkt_answ->rdata, (void*) dp->pkt_answ, (void*) dp);
- if ((dp == NULL) || (dp->pkt_answ == NULL) || (dp->pkt_answ->rdata == NULL)) return -1;
- memcpy(&addr, dp->pkt_answ->rdata, sizeof(uint32_t));
- addr=ntohl(addr);
- if ((res=inet_setip_raw(ip,&addr, AF_INET))==-1) {
- error("In andns_gethostbyname: can not fill inet_prefix.");
- err_ret(ERR_RSLRSL,-1);
- }
- destroy_dns_pkt(dp);
- return 0;
- }
-
-
- /* There is a DNS query, internet realm.
- * I'm going to forward it, but first I have
- * to control suffix presence.
- *
- * After this function, `answer` is the answer to be
- * sent to the client.
- *
- * Returns:
- * answer len
- */
- int dns_forward(dns_pkt *dp,char *msg,int msglen,char* answer)
- {
- dns_pkt *dp_forward;
- char fwdbuf[DNS_MAX_SZ];
- int res;
-
- if (!_dns_forwarding_) {
- error("In rslv: dns forwardind is disable.");
- goto safe_failing;
- }
- debug(DBG_INSANE, "Forwarding dns query to inet nameservers...");
- if (!is_prefixed(dp)) {
- if((res=ns_general_send(msg,msglen,answer,ANDNS_MAX_SZ))==-1) {
- error(err_str);
- goto safe_failing;
- }
- destroy_dns_pkt(dp);
- return res;
- }
- /* prepare to re-format query without prefix */
- dp_forward=dpktcpy_rm_pref(dp);
- memset(fwdbuf,0,DNS_MAX_SZ);
- if ((res=d_p(dp_forward,fwdbuf))==-1) { /* dp_foward is destroyed */
- error(err_str);
- goto safe_failing;
- }
- res=ns_general_send(fwdbuf,res,answer,ANDNS_MAX_SZ);
- if (res==-1) {
- error(err_str);
- goto safe_failing;
- }
- res=d_u(answer,res,&dp_forward);
- if (res<=0) {
- error(err_str);
- goto safe_failing;
- }
- dpktacpy(dp,dp_forward,INET_REALM_PREFIX);
- destroy_dns_pkt(dp_forward);
- DNS_SET_NSCOUNT(dp,0);
- DNS_SET_ARCOUNT(dp,0);
- if ((res=d_p(dp,answer))==-1) {
- error(err_str);
- goto failing;
- }
- return res;
- safe_failing:
- destroy_dns_pkt(dp);
- goto failing;
- failing:
- memcpy(answer,msg,msglen);
- ANDNS_SET_RCODE(answer,RCODE_ESRVFAIL);
- ANDNS_SET_QR(answer);
- res=msglen;
- err_ret(ERR_RSLFDQ,res);
- }
-
- /* There is a DNS query, netsukuku realm.
- *
- * I'm going to resolve it in ANDNA.
- *
- * After this function, `answer` is the answer to be
- * sent to the client.
- *
- * Returns:
- * answer len
- */
-
- int inet_rslv(dns_pkt *dp,char *msg,int msglen,char *answer)
- {
- inet_prefix addr;
- int res,qt,rcode;
- u_short service;
- snsd_service *ss;
- snsd_prio *sp;
- int records;
- u_char proto;
- char temp[DNS_MAX_HNAME_LEN];
-
- qt=dp->pkt_qst->qtype;
- rm_realm_prefix(dp->pkt_qst->qname,temp,qt);
-
- if (qt==T_A || qt==T_MX) { /* snsd tcp resolution service */
- service= (qt==T_A)?0:25;
- proto = (qt!=T_A);
- //ss=andna_resolve_hname(temp,service,proto,&records);
- ss=andna_resolve_hname(temp,service,proto,&records);
- if (!ss) {
- rcode=RCODE_ENSDMN;
- goto safe_return_rcode;
- }
- sp=ss->prio;
- snsd_prio_to_dansws(dp,sp,_ip_len_);
- snsd_service_llist_del(&ss);
- } else if (qt==T_PTR) {
- char tomp[DNS_MAX_HNAME_LEN];
- lcl_cache *lc;
-
- res=swapped_straddr(temp,tomp);
- if (res==-1) {
- rcode=RCODE_EINTRPRT;
- goto safe_return_rcode;
- }
- res=str_to_inet(tomp,&addr);
- if (res==-1) {
- rcode=RCODE_ESRVFAIL;
- goto safe_return_rcode;
- }
- lc=andna_reverse_resolve(addr);
- res=lcl_cache_to_dansws(dp,lc); /* destroy lc */
- if (!res) {
- rcode=RCODE_ENSDMN;
- goto safe_return_rcode;
- }
- } else {
- rcode=RCODE_ENIMPL;
- goto safe_return_rcode;
- }
- DNS_SET_QR(dp,1);
- res=d_p(dp,answer);
- if (res==-1) {
- rcode=RCODE_ESRVFAIL;
- goto return_rcode;
- }
- return res;
- safe_return_rcode:
- destroy_dns_pkt(dp);
- goto return_rcode;
- return_rcode:
- memcpy(answer,msg,msglen);
- ANDNS_SET_RCODE(answer,rcode);
- ANDNS_SET_QR(answer);
- return msglen;
- }
-
- int nk_rslv(andns_pkt *ap,char *msg,int msglen,char *answer)
- {
- int qt,res,rcode,records;
- inet_prefix ipres;
- uint8_t recs;
- uint16_t s;
-
- qt=ap->qtype;
- if (qt==AT_A) {
- snsd_service *ss;
- ss=andna_resolve_hash((u_int *)ap->qstdata,
- ap->service,ap->p+1,&records);
- //ss=andna_resolve_hname(ap->qstdata, //USE HASH!
- // ap->service,ap->p,&records);
- if (!ss) {
- rcode=RCODE_ENSDMN;
- goto safe_return_rcode;
- }
- res=snsd_prio_to_aansws(answer+msglen,
- ss->prio,_ip_len_,ap->r,&records);
- if (!records) {
- rcode=RCODE_ENSDMN;
- goto safe_return_rcode;
- }
- snsd_service_llist_del(&ss);
- }
- else if (qt==AT_PTR) {
- lcl_cache *lc;
- int family;
-
- family=ap->qstlength==4?AF_INET:AF_INET6;
- res=inet_setip_raw(&ipres,(u_int*)ap->qstdata,family);
- if (res==-1) {
- rcode=RCODE_EINTRPRT;
- goto safe_return_rcode;
- }
- inet_ntohl(ipres.data,family);
- lc=andna_reverse_resolve(ipres);
- //lc=andna_reverse_resolve(ipres);
- if (!lc) {
- rcode=RCODE_ENSDMN;
- goto safe_return_rcode;
- }
- res=lcl_cache_to_aansws(answer+msglen,lc,&records); /* destroys lc */
- }
- else if (qt==AT_G) {
- snsd_service *ss;
- ss=andna_resolve_hash((u_int *)ap->qstdata,
- -1,0,&records);
- if (!ss) {
- rcode=RCODE_ENSDMN;
- goto safe_return_rcode;
- }
- res=snsd_service_to_aansws(answer+msglen+2,ss,
- _ip_len_,&records,ap->r);
- if (!res) {
- rcode=RCODE_ENSDMN;
- goto safe_return_rcode;
- }
- if (!records) {
- rcode=RCODE_ESRVFAIL;
- goto safe_return_rcode;
- }
- snsd_service_llist_del(&ss);
- } else {
- rcode=RCODE_EINTRPRT;
- goto safe_return_rcode;
- }
- memcpy(answer,msg,msglen);
- ANDNS_SET_RCODE(answer,RCODE_NOERR);
- ANDNS_SET_QR(answer);
- recs=records;
- if (qt==AT_G) {
- ANDNS_SET_ANCOUNT(answer,1);
- s=htons(recs);
- memcpy(answer+msglen,&s,2);
- res+=2;
- }
- else
- ANDNS_SET_ANCOUNT(answer,recs);
- return res+msglen;
- safe_return_rcode:
- destroy_andns_pkt(ap);
- /* goto return_rcode;
- return_rcode:*/
- memcpy(answer,msg,msglen);
- ANDNS_SET_RCODE(answer,rcode);
- ANDNS_SET_QR(answer);
- return msglen;
- }
- int nk_forward(andns_pkt *ap,char *msg,int msglen,char *answer)
- {
- int res,rcode;
- dns_pkt *dp;
- char new_answ[DNS_MAX_SZ];
-
- res=apqsttodpqst(ap,&dp);
- if (res==-1) {
- rcode=RCODE_EINTRPRT;
- goto safe_return_rcode;
- }
- res=d_p(dp,answer);
- if (res==-1) {
- rcode=RCODE_ESRVFAIL;
- goto safe_return_rcode;
- }
- res=ns_general_send(answer,res,new_answ,DNS_MAX_SZ);
- if (res==-1) {
- rcode=RCODE_ESRVFAIL;
- goto safe_return_rcode;
- }
- res=d_u(new_answ,res,&dp);
- if (res==-1) {
- rcode=RCODE_ESRVFAIL;
- goto safe_return_rcode;
- }
- res=dpanswtoapansw(dp,ap);
- if (res==-1) {
- rcode=RCODE_ESRVFAIL;
- destroy_dns_pkt(dp);
- goto safe_return_rcode;
- }
- destroy_dns_pkt(dp);
- res=a_p(ap,answer);
- if (res==-1) {
- rcode=RCODE_ESRVFAIL;
- goto safe_return_rcode;
- }
- return res;
- safe_return_rcode:
- debug(DBG_INSANE,err_str);
- destroy_andns_pkt(ap);
- memcpy(answer,msg,msglen);
- ANDNS_SET_QR(answer);
- ANDNS_SET_RCODE(answer,rcode);
- return msglen;
- }
- /*
- * This is the main function for the resolution: the dns_wrapper receive the
- * buffer and rslv builds the answer.
- * `answer' is the buffer where the answer will be stored, it must be at
- * least of `ANDNS_MAX_SZ' bytes.
- *
- * Returns:
- * NULL if the pkt has to be discarded.
- * A ptr to the answer to be sended if OK:
- * in this case, answ_len is filled with
- * the answer len.
- */
- char *andns_rslv(char *msg, int msglen,char *answer, int *answ_len)
- {
- int proto,res,r;
- dns_pkt *dp;
- andns_pkt *ap;
-
- proto=GET_NK_BIT(msg);
- if (proto==NK_DNS)
- res=d_u(msg,msglen,&dp);
- else if (proto==NK_INET || proto==NK_NTK)
- res=a_u(msg,msglen,&ap);
- else {
- debug(DBG_INSANE,"andns_rslv(): "
- "Which language are you speaking?");
- return NULL;
- }
- if (res==0)
- goto discard;
- memset(answer, 0, ANDNS_MAX_SZ);
- if (res==-1)
- goto intrprt;
- if (proto==NK_DNS) {
- r=andns_realm(dp->pkt_qst,NULL);
- if (r==INET_REALM)
- res=dns_forward(dp,msg,msglen,answer);
- else
- res=inet_rslv(dp,msg,msglen,answer);
- }
- else if (proto==NK_NTK)
- res=nk_rslv(ap,msg,msglen,answer);
- else if (proto==NK_INET)
- res=nk_forward(ap,msg,msglen,answer);
- *answ_len=res;
- return answer;
- discard:
- debug(DBG_INSANE,err_str);
- err_ret(ERR_RSLAQD,NULL);
- intrprt:
- debug(DBG_INSANE,err_str);
- memcpy(answer,msg,msglen);
- ANDNS_SET_RCODE(answer,1);
- //ANDNS_SET_RCODE(answer,RCODE_EINTRPRT);
- ANDNS_SET_QR(answer);
- *answ_len=msglen;
- return answer;
- }
-
-
-
|