- started some auto whitelist implementation
- fixed 'unitialized' bug in exigrey.pl
--- a/exigrey.pl Wed Jan 03 21:22:00 2007 +0000
+++ b/exigrey.pl Sat Jan 13 21:36:14 2007 +0000
@@ -85,6 +85,7 @@
my $db = connectDB(\%h, $_);
my ($seen, $returned, $oldest_c, $oldest_u);
+ $seen = $returned = 0;
$oldest_c = $oldest_u = time();
iterate(%h, sub {
my ($item, $v0, $v1, $c) = @_;
--- a/exim-exigrey.pl Wed Jan 03 21:22:00 2007 +0000
+++ b/exim-exigrey.pl Sat Jan 13 21:36:14 2007 +0000
@@ -16,6 +16,7 @@
my %DEFAULT = (
delay => 600,
db => "seen",
+ white => "white",
);
sub unseen($;$$);
@@ -68,6 +69,12 @@
return $rc;
}
+sub white($;$) {
+ unseen($_[0], 0, defined $_[1] ? $_[1] : $DEFAULT{white});
+ return "yes";
+}
+
+
# Get the directory where we could store the database file(s)
# If we're running under exim it's easy, otherwise we've to find exim
# and then ask...