projects
/
pdns-pipe-nmc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
17e4165
)
comment out debug log
author
Eugene Crosser
<crosser@average.org>
Mon, 21 Apr 2014 14:04:14 +0000
(18:04 +0400)
committer
Eugene Crosser
<crosser@average.org>
Mon, 21 Apr 2014 14:04:14 +0000
(18:04 +0400)
pdns-pipe-nmc.hs
patch
|
blob
|
history
diff --git
a/pdns-pipe-nmc.hs
b/pdns-pipe-nmc.hs
index 8f26fa72864557e48b0bf04c16af4dd54068bfaf..e62a1e7d438f3d145da076b748856aa4fc2d527b 100644
(file)
--- 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