Change 208
Change 208 by nullbyte@nullbyte-gentoo on 2005/09/17 18:05:36
greylistd 0.4: point people at a page explaining the 450 instead of just being rude
Affected files ...| //depot/projects/greylistd/lib/Mail/Greylist.pm#6 |  edit | ktext |
| //depot/projects/greylistd/Changes#5 | edit | text |
==== //depot/projects/greylistd/lib/Mail/Greylist.pm#6 (ktext) ====
| @@ -11,10 +11,11 @@ | ||
| 11 | 11 | use DB_File; |
| 12 | 12 | use Fcntl; |
| 13 | 13 | |
| 14 | our $VERSION = '0.31'; | |
| 14 | our $VERSION = '0.4'; | |
| 15 | 15 | |
| 16 | 16 | my $DELAY = 300; # seconds a new triplet must wait |
| 17 | 17 | my $LIFETIME = 36 * 86400; # forget triplets after this long |
| 18 | my $MSG = "DEFER_IF_PERMIT Greylisted, see http://ttul.org/greylisting.html"; | |
| 18 | 19 | |
| 19 | 20 | sub new { |
| 20 | 21 | my ($class, %args) = @_; |
| @@ -48,10 +49,10 @@ | ||
| 48 | 49 | my $first = $self->{db}{$key}; |
| 49 | 50 | if (!defined $first) { |
| 50 | 51 | $self->{db}{$key} = $now; |
| 51 | return "DEFER_IF_PERMIT Greylisted, please try again later"; | |
| 52 | return $MSG; | |
| 52 | 53 | } |
| 53 | 54 | if ($now - $first < $self->{delay}) { |
| 54 | return "DEFER_IF_PERMIT Greylisted, please try again later"; | |
| 55 | return $MSG; | |
| 55 | 56 | } |
| 56 | 57 | return "DUNNO"; |
| 57 | 58 | } |
==== //depot/projects/greylistd/Changes#5 (text) ====
| @@ -1,5 +1,8 @@ | ||
| 1 | 1 | Revision history for Mail::Greylist |
| 2 | 2 | |
| 3 | 0.4 Sat Sep 17 2005 | |
| 4 | - defer message links to an explanation page | |
| 5 | ||
| 3 | 6 | 0.31 Fri Dec 24 2004 |
| 4 | 7 | - /etc/greylistd/whitelist: one network prefix per line |
| 5 | 8 | - tests for the /24 behaviour and the whitelist |