X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=pdns-pipe-nmc.hs;h=e62a1e7d438f3d145da076b748856aa4fc2d527b;hp=8f26fa72864557e48b0bf04c16af4dd54068bfaf;hb=1ee46aba2ad401d2b9b11fe57eef1fb5697c905c;hpb=17e4165f2d7cd287e2d49ef2ceac494f9236fd61

diff --git a/pdns-pipe-nmc.hs b/pdns-pipe-nmc.hs
index 8f26fa7..e62a1e7 100644
--- a/pdns-pipe-nmc.hs
+++ b/pdns-pipe-nmc.hs
@@ -127,6 +127,7 @@ mainPdnsNmc = do
             PdnsRequestQ qname qtype id _ _ _ -> do
               io $ queryDom (queryOpNmc cfg mgr id) qname
                      >>= putStr . (pdnsOutQ ver count gen qname qtype)
+  {-
   -- debug
               io $ putStrLn $ "LOG\tRequest number " ++ (show count)
                            ++ " id: " ++ (show id)
@@ -134,6 +135,7 @@ mainPdnsNmc = do
                            ++ " qtype: " ++ (show qtype)
                            ++ " cache size: " ++ (show (size cache))
   -- end debug
+  -}
               put $ stow qname (count, cache)
             PdnsRequestAXFR xrq ->
               case fetch xrq cache of