#!/usr/bin/python3
"""
Convert tinydns and dnscache logs to human-readable form
"""

import re, typing
from struct import pack
from time import strftime, gmtime
from subprocess import Popen, PIPE


## Regular expressions for matching tinydns/dnscache log lines. We
## compile these once here rather than within the corresponding
## matching functions, because the latter get executed repeatedly.

# This first pattern is used to match the timestamp format that the
# tai64nlocal program produces. It appears in both dnscache and
# tinydns lines, after they've been piped through tai64nlocal, of
# course.
timestamp_pat = r'[\d-]+ [\d:\.]+'

# The regex to match dnscache log lines.
dnscache_log_re = re.compile(fr'({timestamp_pat}) (\w+)(.*)')

# The "hex4" pattern matches a string of four hexadecimal digits. This
# is used, for example, by tinydns to encode the query type
# identifier.
hex4_pat = r'[0-9a-f]{4}'

# The IP pattern matches a string of either 8 or 32 hexadecimal
# characters, which correspond to IPv4 and IPv6 addresses,
# respectively, in tinydns logs.
ip_pat = r'[0-9a-f]{8,32}'

# The regex to match tinydns log lines.
tinydns_log_re = re.compile(
    rf'({timestamp_pat}) ({ip_pat}):({hex4_pat}):({hex4_pat}) ([\+\-IC/]) ({hex4_pat}) (.*)'
)

# A dictionary mapping query type identifiers, in decimal, to their
# friendly names for tinydns. Reference:
#
#   https://en.wikipedia.org/wiki/List_of_DNS_record_types
#
# Note that mapping here is non-exhaustive, and that tinydns will
# log responses for record types that it does not know about.
query_type = {
      1: "a",
      2: "ns",
      5: "cname",
      6: "soa",
     12: "ptr",
     13: "hinfo",
     15: "mx",
     16: "txt",
     17: "rp",
     24: "sig",
     25: "key",
     28: "aaaa",
     33: "srv",
     35: "naptr",
     38: "a6",
     48: "dnskey",
     52: "tlsa",
     65: "https",
    252: "axfr",
    255: "any",
    257: "caa"
}

# tinydns can drop a query for one of three reasons; this dictionary
# maps the symbol that gets logged in each case to a human-readable
# reason. We include the "+" case here, indicating that the query was
# NOT dropped, to avoid a special case later on when we're formatting
# the human-readable output.
query_drop_reason = {
    "+": None,
    "-": "no authority",
    "I": "invalid query",
    "C": "invalid class",
    "/": "couldn't parse"
}


def convert_ip(ip : str):
    """
    Convert a hex string representing an IP address to conventional
    human-readable form, ie. dotted-quad decimal for IPv4, and
    8 colon-separated hex shorts for IPv6.

    Examples
    --------

        >>> convert_ip("7f000001")
        '127.0.0.1'
        >>> convert_ip("00000000000000000000ffff7f000001")
        '0000:0000:0000:0000:0000:ffff:7f00:0001'

    """
    if len(ip) == 8:
        # IPv4, eg. "7f000001" -> "7f 00 00 01" -> "127.0.0.1"
        return "%d.%d.%d.%d" % tuple(pack(">L", int(ip, 16)))
    elif len(ip) == 32:
        # IPv6 is actually simpler -- it's just a string-slicing operation.
        return ":".join([ip[(4*i) : (4*i+4)] for i in range(8)])


def decode_client(words, i):
    chunks = words[i].split(":")
    if len(chunks) == 2:                # ip:port
        words[i] = "%s:%d" % (convert_ip(chunks[0]), int(chunks[1], 16))
    elif len(chunks) == 3:
        words[i] = "%s:%d (id %d)" % (convert_ip(chunks[0]),
                                      int(chunks[1], 16),
                                      int(chunks[2], 16))

def decode_ip(words, i):
    words[i] = convert_ip(words[i])

def decode_ttl(words, i):
    words[i] = "TTL=%s" % words[i]

def decode_serial(words, i):
    serial = int(words[i])
    words[i] = "#%d" % serial

def decode_type(words, i):
    qt = words[i]
    words[i] = query_type.get(int(qt), qt)

def handle_dnscache_log(line, match):
    (timestamp, event, data) = match.groups()

    words = data.split()
    if event == "cached":
        if words[0] not in ("cname", "ns", "nxdomain"):
            decode_type(words, 0)

    elif event == "drop":
        decode_serial(words, 0)

    elif event == "lame":
        decode_ip(words, 0)

    elif event == "nodata":
        decode_ip(words, 0)
        decode_ttl(words, 1)
        decode_type(words, 2)

    elif event == "nxdomain":
        decode_ip(words, 0)
        decode_ttl(words, 1)

    elif event == "query":
        decode_serial(words, 0)
        decode_client(words, 1)
        decode_type(words, 2)

    elif event == "rr":
        decode_ip(words, 0)
        decode_ttl(words, 1)
        if words[2] not in ("cname", "mx", "ns", "ptr", "soa"):
            decode_type(words, 2)
            if words[2] == "a":         # decode answer to an A query
                decode_ip(words, 4)
            if words[2] == "txt":       # text record
                response = words[4]
                if response.endswith("..."):
                    ellipsis = "..."
                    response = response[0:-3]
                else:
                    ellipsis = ""
                length = int(response[0:2], 16)
                chars = []
                for i in range(1, len(response)/2):
                    chars.append(chr(int(response[2*i : (2*i)+2], 16)))
                words[4] = "%d:\"%s%s\"" % (length, "".join(chars), ellipsis)

    elif event == "sent":
        decode_serial(words, 0)

    elif event == "stats":
        words[0] = "count=%s" % words[0]
        words[1] = "motion=%s" % words[1]
        words[2] = "udp-active=%s" % words[2]
        words[3] = "tcp-active=%s" % words[3]

    elif event == "tx":
        words[0] = "g=%s" % words[0]
        decode_type(words, 1)
        # words[2] = name
        # words[3] = control (domain for which these servers are believed
        #            to be authoritative)
        for i in range(4, len(words)):
            decode_ip(words, i)

    elif event in ("tcpopen", "tcpclose"):
        decode_client(words, 0)

    print(timestamp, event, " ".join(words))


def handle_tinydns_log(line : str, match: re.Match):
    """
    Handle a line that matched the ``tinydns_log_re`` regex.

    Parameters
    ----------

    line : string
        The tinydns log line that matched ``tinydns_log_re``.

    match : re.Match
        The match object that was returned when ``line`` was
        tested against ``tinydns_log_re``.

    Examples
    --------

        >>> line = "2022-09-14 21:04:40.206516500 7f000001:9d61:be69 - 0001 www.example.com"
        >>> match = tinydns_log_re.match(line)
        >>> handle_tinydns_log(line, match)
        2022-09-14 21:04:40.206516500 dropped query (no authority) from 127.0.0.1:40289 (id 48745): a www.example.com

    """
    (timestamp, ip, port, id, code, type, name) = match.groups()
    ip = convert_ip(ip)
    port = int(port, 16)
    id = int(id, 16)

    # Convert the "type" field to a human-readable record type name
    # using the query_type dictionary. If the right name isn't present
    # in the dictionary, we use the (decimal) type id instead.
    type = int(type, 16)                # "001c" -> 28
    type = query_type.get(type, type)   # 28 -> "aaaa"

    print(timestamp, end=' ')

    reason = query_drop_reason[code]
    if code == "+":
        line_tpl = "sent response to {ip}:{port} (id {id}): {type} {name}"
    else:
        line_tpl = "dropped query ({reason}) from {ip}:{port}"
        if code != "/":
            # If the query can actually be parsed, the log line is a
            # bit more informative than it would have been otherwise.
            line_tpl += " (id {id}): {type} {name}"

    print(line_tpl.format(reason=reason,
                          ip=ip,
                          port=port,
                          id=id,
                          type=type,
                          name=name))


def parse_logfile(file : typing.TextIO):
    r"""
    Process a single log ``file``.

    Parameters
    ----------

    file : typing.TextIO
        An open log file, or stdin.

    Examples
    --------

        >>> line = "@4000000063227a320c4f3114 7f000001:9d61:be69 - 0001 www.example.com\n"
        >>> from tempfile import NamedTemporaryFile
        >>> with NamedTemporaryFile(mode="w", delete=False) as f:
        ...     _ = f.write(line)
        >>> f = open(f.name, 'r')
        >>> parse_logfile(f)
        2022-09-14 21:04:40.206516500 dropped query (no authority) from 127.0.0.1:40289 (id 48745): a www.example.com
        >>> f.close()
        >>> from os import remove
        >>> remove(f.name)

    """
    # Open pipe to tai64nlocal: we will write lines of our input (the
    # raw log file) to it, and read log lines with readable timestamps
    # from it.
    tai = Popen(["tai64nlocal"], stdin=PIPE, stdout=PIPE, text=True, bufsize=0)

    for line in file:
        tai.stdin.write(line)
        line = tai.stdout.readline()

        match = tinydns_log_re.match(line)
        if match:
            handle_tinydns_log(line, match)
            continue

        match = dnscache_log_re.match(line)
        if match:
            handle_dnscache_log(line, match)
            continue

        print(line)

def main():
    r"""
    The entry point to the program.

    This function is responsible only for parsing any command-line
    arguments, and then calling :func`parse_logfile` on them.
    """
    # Create an argument parser using the file's docsctring as its
    # description.
    from argparse import ArgumentParser, FileType
    parser = ArgumentParser(description = __doc__)

    # Parse zero or more positional arguments into a list of
    # "logfiles". If none are given, read from stdin instead.
    from sys import stdin
    parser.add_argument("logfiles",
                        metavar="LOGFILE",
                        type=FileType("r"),
                        nargs="*",
                        default=[stdin],
                        help="djbdns logfile to process (default: stdin)")

    # Warning: argparse automatically opens its file arguments here,
    # and they only get closed when the program terminates. There's no
    # real benefit to closing them one-at-a-time after calling
    # parse_logfile(), because the "scarce" resource of open file
    # descriptors gets consumed immediately, before any processing has
    # happened. In other words, if you're going to run out of file
    # descriptors, it's going to happen right now.
    #
    # So anyway, don't run this on several million logfiles.
    args = parser.parse_args()
    for f in args.logfiles:
        parse_logfile(f)


if __name__ == "__main__":
    main()