+Write down also: X-Forwarded-For

 - "_remote_ip" is always 127.0.0.1 for us.

diff --git a/product/hotelgate/OrderSubmit.pm b/product/hotelgate/OrderSubmit.pm
index 553f247..f68908e 100644 (file)
--- a/product/hotelgate/OrderSubmit.pm
+++ b/product/hotelgate/OrderSubmit.pm
@@ -76,7 +76,9 @@ for (qw(
        User-Agent
        Referer
        _remote_ip
+       X-Forwarded-For
        )) {
+       next if !defined $W->{"headers_in"}{$_};
        $data.=<<"HERE"
 headers_in::$_=@{[ $W->{"headers_in"}{$_} ]}
 HERE

diff --git a/project/captive/DriverSurvey.pm b/project/captive/DriverSurvey.pm
index 8698403..5e20ff3 100755 (executable)
--- a/project/captive/DriverSurvey.pm
+++ b/project/captive/DriverSurvey.pm
@@ -108,6 +108,7 @@ HERE
                User-Agent
                Referer
                _remote_ip
+               X-Forwarded-For
                )) {
                next if !defined (my $val=$W->{"headers_in"}{$key});
                $data.=<<"HERE"