From: Eugene Crosser <crosser@average.org>
Date: Sun, 13 Apr 2014 17:17:09 +0000 (+0400)
Subject: SRV hack part 1
X-Git-Tag: 0.9.0.0~76
X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=commitdiff_plain;h=872bc32bd00e61d432e578e14637bb2def005f37

SRV hack part 1
---

diff --git a/NmcDom.hs b/NmcDom.hs
index 6594b7d..c32a16e 100644
--- a/NmcDom.hs
+++ b/NmcDom.hs
@@ -245,6 +245,8 @@ descendNmcDom queryOp subdom base = do
   base' <- mergeImport queryOp 10 base
   case subdom of
     []   -> return $ fmap normalizeDom base'
+    -- A hack to handle SRV records: don't descend if ["_prot","_serv"]
+    [('_':_),('-':_)] -> return $ fmap normalizeDom base'
     d:ds ->
       case base' of
         Left err     -> return base'