blob: 5e42bd295a1f0ad6620d49b969450e76539bee8d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
$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";
}
|