From: short <> Date: Fri, 26 Sep 2003 23:28:08 +0000 (+0000) Subject: HERE docs etc. X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=d283af4f7bd7659deae058ab1e07ee06ffd114b8;hp=54e2991bea930095e7f7ab4f033b387a11a03898 HERE docs etc. --- diff --git a/Web.pm b/Web.pm index f6c9a79..b166e76 100644 --- 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. - my $r=$ENV{"HTTP_X_FORWARDED_FOR"}; + my $r=$ENV{"HTTP_X_FORWARDED_FOR"} || $W->{"r"}->remote_host(); $r=~s/^.*,\s*//; return $r; }