, remoteIpAddress :: String
, localIpAddress :: Maybe String
, ednsSubnetAddress :: Maybe String
}
, remoteIpAddress :: String
, localIpAddress :: Maybe String
, ednsSubnetAddress :: Maybe String
}
, remoteIpAddress = rip
, localIpAddress = getLIp ver xs
, ednsSubnetAddress = getRIp ver xs
, remoteIpAddress = rip
, localIpAddress = getLIp ver xs
, ednsSubnetAddress = getRIp ver xs
pdnsOut ver id name rrtype edom = case edom of
Left err -> pdnsReport $ err ++ " in a query for " ++ name
Right dom -> foldr addLine "END\n" $ n2p rrtype
where
addLine (nm, ty, dt) accum =
"DATA\t" ++ v3ext ++ nm ++ "\tIN\t" ++ ty ++ "\t" ++ ttl ++
pdnsOut ver id name rrtype edom = case edom of
Left err -> pdnsReport $ err ++ " in a query for " ++ name
Right dom -> foldr addLine "END\n" $ n2p rrtype
where
addLine (nm, ty, dt) accum =
"DATA\t" ++ v3ext ++ nm ++ "\tIN\t" ++ ty ++ "\t" ++ ttl ++
takejust rrstr maybestr = case maybestr of
Nothing -> []
Just str -> [(name, rrstr, str)]
takejust rrstr maybestr = case maybestr of
Nothing -> []
Just str -> [(name, rrstr, str)]
+
+pdnsOutXfr :: Int -> Int -> String -> Either String NmcDom -> String
+pdnsOutXfr ver id name edom = case edom of
+ Left err -> pdnsReport $ err ++ " in a query for " ++ name
+ Right dom -> pdnsReport $ "AXFR unsupported in a query for " ++ name