X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fharbl.git;a=blobdiff_plain;f=src%2FDnsblSite.hs;fp=src%2FDnsblSite.hs;h=df4437d23be1ba77ea16e0c601c9756f18353606;hp=0000000000000000000000000000000000000000;hb=9c0dbbefd192b1fe55181c33f7052c978d18cd38;hpb=f953f2f72cf545ad7ade50d42df696829908a783

diff --git a/src/DnsblSite.hs b/src/DnsblSite.hs
new file mode 100644
index 0000000..df4437d
--- /dev/null
+++ b/src/DnsblSite.hs
@@ -0,0 +1,18 @@
+-- | This module contains the 'DnsblSite' data type representing one
+--   blacklist with its associated return codes and multiplier. For example,
+--   in Postfix's main.cf you might have,
+--
+--     postscreen_dnsbl_sites = bl.mailspike.net=127.0.0.[2;10;11]*2, ...
+--
+--   Here, the 'Domain' is \"bl.mailspike.net\", the return code
+--   pattern is \"127.0.0.[2;10;11]\", and the multiplier is \"2".
+--
+module DnsblSite
+where
+
+import IPv4Pattern ( IPv4Pattern )
+
+newtype Domain = Domain String
+newtype Multiplier = Multiplier Int
+
+data DnsblSite = DnsblSite Domain IPv4Pattern Multiplier