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...