From 07d0890ce342502a19e0514d872bc995b04567b8 Mon Sep 17 00:00:00 2001
From: lace <>
Date: Thu, 29 Dec 2005 06:31:15 +0000
Subject: [PATCH] +Write down also: X-Forwarded-For  - "_remote_ip" is always
 127.0.0.1 for us.

---
 product/hotelgate/OrderSubmit.pm | 2 ++
 project/captive/DriverSurvey.pm  | 1 +
 2 files changed, 3 insertions(+)

diff --git a/product/hotelgate/OrderSubmit.pm b/product/hotelgate/OrderSubmit.pm
index 553f247..f68908e 100644
--- 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
--- 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"
-- 
1.8.3.1