Return to ip.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests / docroot / www

Annotation of embedaddon/lighttpd/tests/docroot/www/ip.pl, revision 1.1.1.1

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;