refactor pdnsOut

[pdns-pipe-nmc.git] / pdns-pipe-nmc.hs

diff --git a/pdns-pipe-nmc.hs b/pdns-pipe-nmc.hs
index a0d5fa23d417dbf4203d6812382e350a9b959163..2ef82c239e837a484c28b4b180b106a265055dd4 100644 (file)
--- a/pdns-pipe-nmc.hs
+++ b/pdns-pipe-nmc.hs
@@ -110,11 +110,13 @@ mainPdnsNmc = do
             PdnsRequestQ qname qtype id _ _ _ -> do
               io $ queryDom (queryOpNmc cfg mgr id) qname
                      >>= putStr . (pdnsOut ver count qname qtype)
+  -- debug
               io $ putStrLn $ "LOG\tRequest number " ++ (show count)
                            ++ " id: " ++ (show id)
                            ++ " qname: " ++ qname
                            ++ " qtype: " ++ (show qtype)
                            ++ " cache size: " ++ (show (size cache))
+  -- end debug
               put (if count >= 99 then 0 else count + 1,
                    newcache count qname cache)
             PdnsRequestAXFR xrq ->