5c83741ff6
* Updated default timeouts
* Added support for matching IPs based on class-C (/24) address,
rather than the full IP address - enabled by default
* Added support for whitelists
* Wait for the envelope before sending tempfail (helps for some buggy MTAs)
* Removed qgreylist-info script (doesn't work with new class-C greylisting)
32 lines
895 B
Text
32 lines
895 B
Text
$NetBSD: patch-aa,v 1.2 2005/10/13 17:01:47 schmonz Exp $
|
|
|
|
--- greylist.orig 2005-01-17 08:38:07.000000000 -0500
|
|
+++ greylist
|
|
@@ -27,8 +27,9 @@ my $version = "0.3";
|
|
|
|
# TODO: alternative logging options, instead of syslog?
|
|
|
|
-use Sys::Syslog;
|
|
+use Sys::Syslog qw(:DEFAULT setlogsock);
|
|
|
|
+setlogsock('unix');
|
|
|
|
openlog "greylist", "pid", "mail";
|
|
|
|
@@ -338,14 +339,14 @@ cleanup_maybe;
|
|
# TODO: change to an immediate error here..?
|
|
unless ( defined $ENV{TCPREMOTEIP} )
|
|
{
|
|
- syslog "err", "ENV{TCPREMOEIP} not set!";
|
|
+ syslog "err", "ENV{TCPREMOTEIP} not set!";
|
|
smtp_temp_fail "Cannot find remote IP";
|
|
}
|
|
|
|
# now this should never happen...
|
|
unless ( $ENV{TCPREMOTEIP} =~ m{^(\d+\.\d+\.\d+\.\d+)$} )
|
|
{
|
|
- syslog "err", "ENV{TCPREMOEIP} = $ENV{TCPREMOTEIP} - bad format!";
|
|
+ syslog "err", "ENV{TCPREMOTEIP} = $ENV{TCPREMOTEIP} - bad format!";
|
|
smtp_temp_fail "Bad format for remote IP";
|
|
}
|
|
|