+ n2p RRTypeDS = case domDs dom of
+ Nothing -> []
+ Just dss -> map (\x -> (name, "DS", dsStr x)) dss
+ where
+ dsStr x = (show (dsKeyTag x)) ++ " "
+ ++ (show (dsAlgo x)) ++ " "
+ ++ (show (dsHashType x)) ++ " "
+ ++ (dsHashValue x)
+
+ dotmail addr =
+ let (aname, adom) = break (== '@') addr
+ in case adom of
+ "" -> aname
+ _ -> aname ++ "." ++ (tail adom)