+Write down also: X-Forwarded-For

[www.jankratochvil.net.git] / product / hotelgate / OrderSubmit.pm

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