--- a/debian/changelog Mon Jan 01 19:35:37 2007 +0000
+++ b/debian/changelog Mon Jan 01 22:20:03 2007 +0000
@@ -1,4 +1,4 @@
-exigrey (0.1-2) stable; urgency=low
+exigrey (0.1-3) stable; urgency=low
* Initial release
--- a/debian/control Mon Jan 01 19:35:37 2007 +0000
+++ b/debian/control Mon Jan 01 22:20:03 2007 +0000
@@ -7,7 +7,7 @@
Package: exigrey
Architecture: all
-Depends: perl, ${shlibs:Depends}, ${misc:Depends}
+Depends: ${shlibs:Depends}, ${misc:Depends}, libberkeleydb-perl
Suggests: exim4
Description: greylist implementation for exim (perl)
Yet another greylist implementation for exim, using Exims
--- a/greylist.pl Mon Jan 01 19:35:37 2007 +0000
+++ b/greylist.pl Mon Jan 01 22:20:03 2007 +0000
@@ -23,8 +23,9 @@
# ${perl{unseen}{$sender_host_address}{600}{seen.db}}
# ${perl{unseen}{$sender_host_address}{600}{/some/dir/seen.db}}
#
-# record structure: item\0 timestamp(creation)\0 timestamp(usage)\0
-# (This way we're compatible with ${lookup{...}dbm{...}}
+# record structure: key: item\0
+# value: timestamp(creation) timestamp(usage)\0
+# (This way we're compatible with ${lookup{...}dbm{...}})
sub unseen($;$$) {
my ($item, $delay, $db) = @_;
$item .= "\0";