diff options
author | MCApollo <34170230+MCApollo@users.noreply.github.com> | 2019-04-29 17:53:00 +0000 |
---|---|---|
committer | MCApollo <34170230+MCApollo@users.noreply.github.com> | 2019-04-29 17:53:00 +0000 |
commit | 59f5fd20e2f59ae186d5a461aef7782dd55e4e7b (patch) | |
tree | 10475faf0b6dcb812b64da679f4ae8ff01c45874 /data/lighttpd/lighttpd-1.4.53/tests/docroot/www/ip.pl | |
parent | f06e297cd175cca39745f6d1970225ae88aa68f1 (diff) |
Updated lighttpd.
Diffstat (limited to 'data/lighttpd/lighttpd-1.4.53/tests/docroot/www/ip.pl')
-rwxr-xr-x | data/lighttpd/lighttpd-1.4.53/tests/docroot/www/ip.pl | 13 |
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; |