package serv;

import addr.addrIP;
import addr.addrIPv4;
import cfg.cfgAceslst;
import cfg.cfgAll;
import clnt.clntDns;
import java.util.Comparator;
import java.util.List;
import pack.packDns;
import pack.packDnsZone;
import pack.packDnsRec;
import pack.packHolder;
import pack.packSize;
import pipe.pipeLine;
import pipe.pipeSide;
import prt.prtGenConn;
import prt.prtServS;
import tab.tabAceslstN;
import tab.tabGen;
import tab.tabListing;
import user.userFilter;
import user.userHelping;
import util.bits;
import util.cmds;
import util.debugger;
import util.logger;

/**
 * domain name protocol (rfc1035) server
 *
 * @author matecsaba
 */
public class servDns extends servGeneric implements prtServS {

    /**
     * list of zones
     */
    public tabGen<packDnsZone> zones = new tabGen<packDnsZone>();

    /**
     * list of resolvers
     */
    public tabGen<servDnsResolv> resolvs = new tabGen<servDnsResolv>();

    /**
     * name of last
     */
    public String lastZone = "";

    /**
     * recursion available
     */
    protected boolean recursEna = false;

    /**
     * access list to use
     */
    protected tabListing<tabAceslstN<addrIP>, addrIP> recursAcl;

    /**
     * 6to4 prefix
     */
    protected addrIP recurs6to4;

    /**
     * defaults text
     */
    public final static String defaultL[] = {
        "server dns .*! port " + packDns.portNum,
        "server dns .*! protocol " + proto2string(protoAll),
        "server dns .*! recursion access-all",
        "server dns .*! recursion 6to4nothing",
        "server dns .*! recursion disable"
    };

    /**
     * defaults filter
     */
    public static tabGen<userFilter> defaultF;

    public tabGen<userFilter> srvDefFlt() {
        return defaultF;
    }

    public boolean srvAccept(pipeSide pipe, prtGenConn id) {
        pipe.timeout = 10000;
        new servDnsDoer(this, pipe, id);
        return false;
    }

    public String srvName() {
        return "dns";
    }

    public int srvPort() {
        return packDns.portNum;
    }

    public int srvProto() {
        return protoAll;
    }

    public boolean srvInit() {
        dynBlckMod = true;
        return genStrmStart(this, new pipeLine(32768, false), 0);
    }

    public boolean srvDeinit() {
        return genericStop(0);
    }

    public void srvShRun(String beg, List<String> lst) {
        if (recursAcl != null) {
            lst.add(beg + "recursion access-class " + recursAcl.listName);
        } else {
            lst.add(beg + "recursion access-all");
        }
        if (recurs6to4 != null) {
            lst.add(beg + "recursion 6to4prefix " + recurs6to4);
        } else {
            lst.add(beg + "recursion 6to4nothing");
        }
        if (recursEna) {
            lst.add(beg + "recursion enable");
        } else {
            lst.add(beg + "recursion disable");
        }
        for (int i = 0; i < resolvs.size(); i++) {
            servDnsResolv res = resolvs.get(i);
            lst.add(beg + "resolver " + res);
        }
        for (int i = 0; i < zones.size(); i++) {
            packDnsZone zon = zones.get(i);
            lst.addAll(zon.saveZone(beg + "zone " + zon.name));
        }
    }

    public void srvHelp(userHelping l) {
        l.add(" 1 2   delzone               delete one zone");
        l.add(" 2 .     <name>              zone name");
        l.add(" 1 2   delresolver           delete one resolver");
        l.add(" 2 .     <name>              zone name");
        l.add(" 1 2   recursion             recursive parameters");
        l.add(" 2 .     enable              allow recursion");
        l.add(" 2 .     disable             forbid recursion");
        l.add(" 2 .     access-all          clear access list");
        l.add(" 2 3     access-class        set access list");
        l.add(" 3 .       <name>            port number to use");
        l.add(" 2 3     6to4prefix          setup 6to4 prefix");
        l.add(" 3 .       <addr>            address to prepend");
        l.add(" 2 .     6to4nothing         clear 6to4 prefix");
        l.add(" 1 2   resolver              define resolver");
        l.add(" 2 3     <name>              zone name");
        l.add(" 3 .       <addr>            address of resolver");
        l.add(" 1 2   zone                  name of a zone");
        l.add(" 2 1,.   <name>              zone name");
        l.add(" 1 3   defttl                specify time to live");
        l.add(" 3 .     <num>               time to live");
        l.add(" 1 .   clear                 clear all records from zone");
        l.add(" 1 3   reverse               generate reverse zone");
        l.add(" 3 .     <name>              name of zone");
        l.add(" 1 3   download              download zone with dns axfr if changed");
        l.add(" 3 .     <name>              name of server");
        l.add(" 1 3   redownload            download zone with dns axfr anyway");
        l.add(" 3 .     <name>              name of server");
        l.add(" 1 3   rr                    specify a record");
        l.add(" 3 4     <name>              domain name");
        l.add(" 4 5   soa                   specify a start of authority");
        l.add(" 5 6     <ns>                name server");
        l.add(" 6 7       <email>           email of author");
        l.add(" 7 8         <seq>           sequence number");
        l.add(" 8 9           <refresh>     refresh interval");
        l.add(" 9 10             <retry>    retry interval");
        l.add("10 11               <expire> expire interval");
        l.add("11 .                  <min>  minimum ttl value");
        l.add(" 4 5   hinfo                 specify a host information");
        l.add(" 5 6     <os>                oerating system");
        l.add(" 6 .       <cpu>             hardware platform");
        l.add(" 4 5   cname                 specify a canonical name");
        l.add(" 5 .     <name>              name of host");
        l.add(" 4 5   rp                    specify a responsible person");
        l.add(" 5 6     <srv>               mail server");
        l.add(" 6 .       <email>           email of author");
        l.add(" 4 5   srv                   specify a responsible person");
        l.add(" 5 6     <pri>               priority");
        l.add(" 6 7       <wei>             weight");
        l.add(" 7 8         <prt>           port");
        l.add(" 8 .           <srv>         server");
        l.add(" 4 5   mx                    specify a mailbox server");
        l.add(" 5 6     <prf>               preference");
        l.add(" 6 .       <srv>             mail server");
        l.add(" 4 5   txt                   specify a description");
        l.add(" 5 .     <text>              description");
        l.add(" 4 5   ns                    specify a name server");
        l.add(" 5 .     <srv>               name server");
        l.add(" 4 5   ptr                   specify a pointer");
        l.add(" 5 .     <name>              name of address");
        l.add(" 4 5   ip4a                  specify an ip4 address");
        l.add(" 5 .     <addr>              address of server");
        l.add(" 4 5   ip6a                  specify an ip6 address");
        l.add(" 5 .     <addr>              address of server");
        l.add(" 4 5   ip4i                  specify an ip4 interface");
        l.add(" 5 .     <name>              address of interface");
        l.add(" 4 5   ip6i                  specify an ip6 interface");
        l.add(" 5 .     <name>              address of interface");
    }

    public boolean srvCfgStr(cmds cmd) {
        cmds old = cmd.copyBytes(false);
        String s = cmd.word();
        boolean negated = s.equals("no");
        if (negated) {
            s = cmd.word();
        }
        if (s.length() < 1) {
            return false;
        }
        if (s.equals("delzone")) {
            zones.del(new packDnsZone(cmd.word()));
            return false;
        }
        if (s.equals("delresolver")) {
            servDnsResolv res = new servDnsResolv();
            res.fromString(cmd);
            resolvs.del(res);
            return false;
        }
        if (s.equals("resolver")) {
            servDnsResolv res = new servDnsResolv();
            if (res.fromString(cmd)) {
                return false;
            }
            if (negated) {
                resolvs.del(res);
                return false;
            }
            resolvs.put(res);
            return false;
        }
        if (s.equals("recursion")) {
            s = cmd.word();
            if (s.equals("enable")) {
                recursEna = !negated;
                return false;
            }
            if (s.equals("disable")) {
                recursEna = negated;
                return false;
            }
            if (s.equals("access-class")) {
                if (negated) {
                    recursAcl = null;
                    return false;
                }
                cfgAceslst ntry = cfgAll.aclsFind(cmd.word(), false);
                if (ntry == null) {
                    cmd.error("no such access list");
                    return false;
                }
                recursAcl = ntry.aceslst;
                return false;
            }
            if (s.equals("access-all")) {
                recursAcl = null;
                return false;
            }
            if (s.equals("6to4prefix")) {
                if (negated) {
                    recurs6to4 = null;
                    return false;
                }
                recurs6to4 = new addrIP();
                recurs6to4.fromString(cmd.word());
                return false;
            }
            if (s.equals("6to4nothing")) {
                recurs6to4 = null;
                return false;
            }
            cmd.badCmd();
            return false;
        }
        if (s.equals("zone")) {
            lastZone = cmd.word();
            old = cmd.copyBytes(false);
            s = cmd.word();
        }
        if (lastZone.length() < 1) {
            return true;
        }
        packDnsZone zon = new packDnsZone(lastZone);
        packDnsZone prv = zones.add(zon);
        if (prv != null) {
            zon = prv;
        }
        if (s.equals("reverse")) {
            s = cmd.word();
            prv = zones.find(new packDnsZone(s));
            if (prv == null) {
                return true;
            }
            zon.addZone(prv.reverseZone());
            return false;
        }
        if (s.equals("download")) {
            addrIP adr = new addrIP();
            adr.fromString(cmd.word());
            clntDns clnt = new clntDns();
            zon = clnt.doZoneXfer(adr, zon, false);
            if (zon == null) {
                return true;
            }
            zones.put(zon);
            return false;
        }
        if (s.equals("redownload")) {
            addrIP adr = new addrIP();
            adr.fromString(cmd.word());
            clntDns clnt = new clntDns();
            zon = clnt.doZoneXfer(adr, zon, true);
            if (zon == null) {
                return true;
            }
            zones.put(zon);
            return false;
        }
        if (s.equals("clear")) {
            zon.clear();
            return false;
        }
        if (negated) {
            packDnsRec ntry = new packDnsRec();
            if (ntry.fromUserStr(cmd)) {
                return true;
            }
            return zon.delBin(ntry);
        }
        return zon.addUser(old.getRemaining());
    }

}

class servDnsResolv implements Comparator<servDnsResolv> {

    public String name;

    public addrIP addr;

    public int compare(servDnsResolv o1, servDnsResolv o2) {
        return o1.name.toLowerCase().compareTo(o2.name.toLowerCase());
    }

    public String toString() {
        return name + " " + addr;
    }

    public boolean fromString(cmds cmd) {
        name = cmd.word();
        addr = new addrIP();
        return addr.fromString(cmd.word());
    }

}

class servDnsDoer implements Runnable {

    private servDns parent;

    private pipeSide pipe;

    private prtGenConn conn;

    private boolean recurse;

    public servDnsDoer(servDns lower, pipeSide stream, prtGenConn id) {
        parent = lower;
        pipe = stream;
        conn = id;
        new Thread(this).start();
    }

    public void sendReply(packDns pckD) {
        if (debugger.servDnsTraf) {
            logger.debug("tx " + pckD);
        }
        packHolder pckB = new packHolder(true, true);
        pckB.clear();
        pckD.createHeader(pckB);
        pckB.merge2beg();
        if (pipe.isBlockMode()) {
            pckB.pipeSend(pipe, 0, pckB.dataSize(), 2);
        } else {
            packSize blck = new packSize(pipe, 2, true, 1, 0);
            blck.sendPacket(pckB);
        }
    }

    private void addAnswer(packDns pck, packDnsZone zon, String s, int typ) {
        packDnsRec rr = zon.findUser(s, typ);
        if (rr == null) {
            return;
        }
        pck.answers.add(rr);
    }

    private boolean doSlaves(List<packDnsRec> res, int typ, String nam) {
        nam = nam.toLowerCase();
        int num = -1;
        int len = -1;
        servDnsResolv ntry;
        for (int i = 0; i < parent.resolvs.size(); i++) {
            ntry = parent.resolvs.get(i);
            if (!nam.endsWith(ntry.name.toLowerCase())) {
                continue;
            }
            if (ntry.name.length() < len) {
                continue;
            }
            num = i;
            len = ntry.name.length();
        }
        if (len < 1) {
            return false;
        }
        ntry = parent.resolvs.get(num);
        clntDns clnt = new clntDns();
        if (clnt.doResolvOne(ntry.addr, nam, typ)) {
            return false;
        }
        if (typ == packDnsRec.typeANY) {
            clnt.getAnswers(res);
            return true;
        }
        packDnsRec rr = clnt.findAnswer(typ);
        if (rr == null) {
            return false;
        }
        rr = rr.copyBytes();
        rr.name = nam;
        res.add(rr);
        return true;
    }

    private boolean doResolve(List<packDnsRec> res, int typ, String nam) { // true if authoritative
        if (doSlaves(res, typ, nam)) {
            return true;
        }
        packDnsZone zon = parent.zones.find(new packDnsZone(nam));
        String old = nam;
        String a = "";
        for (; zon == null;) {
            int i = nam.indexOf(".");
            if (i >= 0) {
                a = nam.substring(0, i);
                nam = nam.substring(i + 1, nam.length());
            } else {
                a = nam;
                nam = "";
            }
            zon = parent.zones.find(new packDnsZone(nam));
            if (i < 0) {
                break;
            }
        }
        if (zon == null) {
            if (!recurse) {
                return false;
            }
            if ((parent.recurs6to4 != null) && (typ == packDnsRec.typeA)) {
                return false;
            }
            clntDns clnt = new clntDns();
            if (clnt.doResolvOne(cfgAll.nameServerAddr, old, typ)) {
                return false;
            }
            if (typ == packDnsRec.typeANY) {
                clnt.getAnswers(res);
                return false;
            }
            packDnsRec rr = clnt.findAnswer(typ);
            if (rr != null) {
                rr = rr.copyBytes();
                rr.name = old;
                res.add(rr);
                return false;
            }
            if (parent.recurs6to4 == null) {
                return false;
            }
            if (typ != packDnsRec.typeAAAA) {
                return false;
            }
            clnt = new clntDns();
            if (clnt.doResolvOne(cfgAll.nameServerAddr, old, packDnsRec.typeA)) {
                return false;
            }
            rr = clnt.findAnswer(packDnsRec.typeA);
            if (rr == null) {
                return false;
            }
            rr = rr.copyBytes();
            bits.byteFill(rr.addr.getBytes(), 0, addrIP.size - addrIPv4.size, 0);
            rr.addr.setOr(rr.addr, parent.recurs6to4);
            rr.typ = packDnsRec.typeAAAA;
            rr.name = old;
            res.add(rr);
            return false;
        }
        if (a.length() > 0) {
            a += ".";
        }
        nam = a + zon.name;
        packDnsRec rep = zon.findUser(nam, typ);
        if (rep == null) {
            rep = zon.findUser(nam, packDnsRec.typeCNAME);
        }
        if (rep == null) {
            rep = zon.findUser("*." + zon.name, typ);
        }
        if (rep == null) {
            rep = zon.findUser("*." + zon.name, packDnsRec.typeCNAME);
        }
        if (rep == null) {
            rep = zon.findUser(nam, packDnsRec.typeSOA);
        }
        if (rep == null) {
            rep = zon.findUser("*." + zon.name, packDnsRec.typeSOA);
        }
        if (rep == null) {
            rep = zon.findUser(nam, packDnsRec.typeNS);
        }
        if (rep == null) {
            rep = zon.findUser("*." + zon.name, packDnsRec.typeNS);
        }
        if (rep == null) {
            rep = zon.findUser(zon.name, packDnsRec.typeSOA);
        }
        if (rep == null) {
            return true;
        }
        res.add(rep);
        if (typ != packDnsRec.typeNS) {
            return true;
        }
        rep = zon.findUser(nam, packDnsRec.typeSOA);
        if (rep == null) {
            return true;
        }
        packDnsRec ns = new packDnsRec();
        ns.typ = packDnsRec.typeNS;
        ns.name = rep.name;
        ns.target = rep.target;
        ns.ttl = rep.ttl;
        res.add(ns);
        return true;
    }

    private boolean doer() {
        packHolder pckB = null;
        packDns pckD = new packDns();
        if (pipe.isBlockMode()) {
            pckB = pipe.readPacket(true);
        } else {
            packSize blck = new packSize(pipe, 2, true, 1, 0);
            pckB = blck.recvPacket();
        }
        if (pckB == null) {
            return true;
        }
        if (pckD.parseHeader(pckB)) {
            logger.info("got bad packet");
            return false;
        }
        if (debugger.servDnsTraf) {
            logger.debug("rx " + pckD);
        }
        recurse = parent.recursEna;
        if (parent.recursAcl != null) {
            recurse &= parent.recursAcl.matches(conn);
        }
        int i = pckD.opcode;
        pckD.opcode = packDns.opcodeQuery;
        pckD.result = packDns.resultSupport;
        pckD.response = true;
        pckD.recAvail = recurse;
        packDnsRec req = new packDnsRec();
        if (i != packDns.opcodeQuery) {
            sendReply(pckD);
            return false;
        }
        if (pckD.queries.size() < 1) {
            sendReply(pckD);
            return false;
        }
        pckD.result = packDns.resultName;
        pckD.addition.clear();
        pckD.answers.clear();
        pckD.servers.clear();
        req = pckD.queries.get(0);
        switch (req.typ) {
            case packDnsRec.typeAXFR:
                packDnsZone zon = parent.zones.find(new packDnsZone(req.name));
                if (zon == null) {
                    sendReply(pckD);
                    return false;
                }
                packDnsRec soa = zon.findUser(zon.name, packDnsRec.typeSOA);
                if (soa == null) {
                    sendReply(pckD);
                    return false;
                }
                pckD.result = packDns.resultSuccess;
                pckD.queries.clear();
                pckD.answers.clear();
                pckD.answers.add(soa);
                sendReply(pckD);
                pckD.answers.clear();
                packDnsRec ns = new packDnsRec();
                ns.typ = packDnsRec.typeNS;
                ns.name = soa.name;
                ns.target = soa.target;
                ns.ttl = soa.ttl;
                pckD.answers.add(ns);
                sendReply(pckD);
                for (i = 0; i < zon.size(); i++) {
                    if (pipe.isClosed() != 0) {
                        break;
                    }
                    packDnsRec ntry = zon.get(i);
                    if (ntry.compare(ntry, soa) == 0) {
                        continue;
                    }
                    pckD.answers.clear();
                    pckD.answers.add(ntry);
                    sendReply(pckD);
                }
                pckD.answers.clear();
                pckD.answers.add(soa);
                sendReply(pckD);
                return false;
            case packDnsRec.typeANY:
                zon = parent.zones.find(new packDnsZone(req.name));
                if (zon == null) {
                    i = req.name.indexOf(".");
                    if (i > 0) {
                        zon = parent.zones.find(new packDnsZone(req.name.substring(i + 1, req.name.length())));
                    }
                }
                if (zon == null) {
                    pckD.authoritative = doResolve(pckD.answers, req.typ, req.name);
                    sendReply(pckD);
                    return false;
                }
                addAnswer(pckD, zon, req.name, packDnsRec.typeA);
                addAnswer(pckD, zon, req.name, packDnsRec.typeAAAA);
                addAnswer(pckD, zon, req.name, packDnsRec.typeCNAME);
                addAnswer(pckD, zon, req.name, packDnsRec.typeHINFO);
                addAnswer(pckD, zon, req.name, packDnsRec.typeTXT);
                addAnswer(pckD, zon, req.name, packDnsRec.typeSRV);
                addAnswer(pckD, zon, req.name, packDnsRec.typeNS);
                addAnswer(pckD, zon, req.name, packDnsRec.typeMX);
                addAnswer(pckD, zon, req.name, packDnsRec.typeSOA);
                pckD.authoritative = true;
                pckD.result = packDns.resultSuccess;
                sendReply(pckD);
                return false;
        }
        pckD.authoritative = doResolve(pckD.answers, req.typ, req.name);
        if (pckD.answers.size() < 1) {
            sendReply(pckD);
            return false;
        }
        pckD.result = packDns.resultSuccess;
        int typ = req.typ;
        for (;;) {
            int p = pckD.answers.size();
            req = pckD.answers.get(p - 1);
            if (req.typ != packDnsRec.typeCNAME) {
                break;
            }
            doResolve(pckD.answers, typ, req.target);
            if (p >= pckD.answers.size()) {
                break;
            }
        }
        sendReply(pckD);
        return false;
    }

    public void run() {
        try {
            pipe.wait4ready(0);
            for (;;) {
                if (doer()) {
                    break;
                }
            }
        } catch (Exception e) {
            logger.traceback(e);
        }
        pipe.setClose();
    }

}
