git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
54e2991
)
HERE docs etc.
author
short
<>
Fri, 26 Sep 2003 23:28:08 +0000
(23:28 +0000)
committer
short
<>
Fri, 26 Sep 2003 23:28:08 +0000
(23:28 +0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
f6c9a79
..
b166e76
100644
(file)
--- a/
Web.pm
+++ b/
Web.pm
@@
-287,7
+287,7
@@
sub remote_ip ()
# As 'Apache::ForwardedFor' takes the first of $ENV{"HTTP_X_FORWARDED_FOR"}
# while the contents is '127.0.0.1, 213.220.195.171' if client has its own proxy.
# We must take the last item ourselves.
# As 'Apache::ForwardedFor' takes the first of $ENV{"HTTP_X_FORWARDED_FOR"}
# while the contents is '127.0.0.1, 213.220.195.171' if client has its own proxy.
# We must take the last item ourselves.
- my $r=$ENV{"HTTP_X_FORWARDED_FOR"};
+ my $r=$ENV{"HTTP_X_FORWARDED_FOR"}
|| $W->{"r"}->remote_host()
;
$r=~s/^.*,\s*//;
return $r;
}
$r=~s/^.*,\s*//;
return $r;
}