# HG changeset patch
# User heiko
# Date 1168724174 0
# Node ID 329e69e5c6dde394b93cb4654a1a2ec271f4f6d1
# Parent  85968da03d1f7772305c11f287970f4a89ec4e51
- started some auto whitelist implementation
- fixed 'unitialized' bug in exigrey.pl

diff -r 85968da03d1f -r 329e69e5c6dd 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) = @_;
diff -r 85968da03d1f -r 329e69e5c6dd exim-exigrey.pl
--- 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...