summaryrefslogtreecommitdiff
path: root/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/ip.pl
blob: fa56ddcf497ae12aa9dfafa61069a23183d26f63 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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;