Return to ip.pl CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests / docroot / www |
1.1 misho 1: #!/usr/bin/env perl 2: print "Content-Type: text/html\r\n\r\n"; 3: print $ENV{'REMOTE_ADDR'}; 4: 5: if ($ENV{'QUERY_STRING'} eq 'info') { 6: print "\nF:",$ENV{'HTTP_X_FORWARDED_FOR'},"\n"; 7: 8: while (my($key, $value) = each %ENV) { 9: printf "%s => %s\n", $key, $value; 10: } 11: } 12: 13: 0;