X-Git-Url: http://average.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=NmcDom.hs;h=d053954683006f51e35f68af83c2ffb348752af5;hb=b89115632b984f03837a9f079b339fd88dbcfbbc;hp=6594b7d3776f76a95ef58b67913f3fdcbbf6010c;hpb=37084c2c7ca994c3690cc8729e7849a6c7177ea4;p=pdns-pipe-nmc.git

diff --git a/NmcDom.hs b/NmcDom.hs
index 6594b7d..d053954 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'