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     ! 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;