+ dom <- queryDom (queryOpNmc cfg mgr "_") key
+ putStrLn $ ppShow dom
+ putStr $ pdnsOut 1 "_" key RRTypeANY dom
+
+-- using file backend for testing json domain data
+
+mainFile key = do
+ dom <- queryDom queryOpFile key
+ putStrLn $ ppShow dom
+ putStr $ pdnsOut 1 "+" key RRTypeANY dom
+
+-- Entry point
+
+main = do
+ args <- getArgs
+ case args of
+ [] -> mainPdnsNmc
+ [key] -> mainOne key
+ ["-f",key] -> mainFile key
+ _ -> error $ "usage: empty args, or \"[-f] <fqdn>\""