X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fharbl.git;a=blobdiff_plain;f=src%2FNetwork%2FDNS%2FRBL.hs;fp=src%2FNetwork%2FDNS%2FRBL.hs;h=5775c47f8464deb66079eaa1c55149f5014d9089;hp=0000000000000000000000000000000000000000;hb=bc28c407970d9ff1bfeacc88363fd6d23c0af440;hpb=e093d003defb7948f17927091c3e73a250d53e6c

diff --git a/src/Network/DNS/RBL.hs b/src/Network/DNS/RBL.hs
new file mode 100644
index 0000000..5775c47
--- /dev/null
+++ b/src/Network/DNS/RBL.hs
@@ -0,0 +1,10 @@
+module Network.DNS.RBL ( lookup_simple )
+where
+
+-- | Look up the given @host@ on all of the white/blacklists contained
+--   in @rbls@. If the results, multiplied by their weights, add up to
+--   (at least) @threshold@, then @True@ is returned; that is, the
+--   @host@ is \"listed\". Otherwise, @False@ is returned.
+--
+lookup_simple :: String -> Int -> String -> Bool
+lookup_simple rbls threshold host = undefined