forked from Lainports/opnsense-ports
21 lines
582 B
Text
21 lines
582 B
Text
--- scripts/dkimproxy.out.orig 2010-11-15 16:54:28 UTC
|
|
+++ scripts/dkimproxy.out
|
|
@@ -314,17 +314,11 @@ sub process_request
|
|
{
|
|
my $self = shift;
|
|
|
|
- # try to determine peer's address
|
|
- use Socket;
|
|
- my $peersockaddr = getpeername(STDOUT);
|
|
- my ($port, $iaddr) = sockaddr_in($peersockaddr);
|
|
- $ENV{REMOTE_ADDR} = inet_ntoa($iaddr);
|
|
-
|
|
# initialize syslog
|
|
eval
|
|
{
|
|
openlog("dkimproxy.out", "perror,pid,ndelay", "mail");
|
|
- syslog("debug", '%s', "connect from $ENV{REMOTE_ADDR}");
|
|
+ syslog("debug", '%s', "connect from $self->{server}->{peeraddr}");
|
|
};
|
|
if (my $E = $@)
|
|
{
|