diff options
Diffstat (limited to 'tests/docroot')
-rwxr-xr-x | tests/docroot/www/ip.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/docroot/www/ip.pl b/tests/docroot/www/ip.pl index b86cfb5a..6c9e993a 100755 --- a/tests/docroot/www/ip.pl +++ b/tests/docroot/www/ip.pl @@ -2,4 +2,12 @@ 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; |