exim-exigrey.pl
changeset 38 329e69e5c6dd
parent 36 4c717800f8ef
child 44 70d21f5411cc
--- 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...