1 files changed, 13 insertions, 0 deletions
diff --git a/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/ip.pl b/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/ip.pl
new file mode 100755
index 000000000..fa56ddcf4
--- /dev/null
+++ b/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/ip.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+print "Content-Type: text/html\r\n\r\n";
+print $ENV{'REMOTE_ADDR'};
+
+if ($ENV{'QUERY_STRING'} eq 'info') {
+	print "\nF:",$ENV{'HTTP_X_FORWARDED_FOR'},"\n";
+
+	while (my($key, $value) = each %ENV) {
+		printf "%s => %s\n", $key, $value;
+	}
+}
+
+0;