- started some auto whitelist implementation
authorheiko
Sat, 13 Jan 2007 21:36:14 +0000
changeset 38 329e69e5c6dd
parent 37 85968da03d1f
child 39 6a273f1fc025
- started some auto whitelist implementation
- fixed 'unitialized' bug in exigrey.pl
exigrey.pl
exim-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...