X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2Fdaemon.pl;h=c71848736f60afa70bb00f97c6857c75d308fbdd;hb=b332ee65fb155a11c72da7544e44ee632c6f577d;hp=bd4c2356c823e10cba2fe80761ac1195282851d7;hpb=d61872c8fd0b2f3990f0f91f8fd65e61f20eff8a;p=catagits%2FHTTP-Request-AsCGI.git diff --git a/examples/daemon.pl b/examples/daemon.pl index bd4c235..c718487 100644 --- a/examples/daemon.pl +++ b/examples/daemon.pl @@ -18,7 +18,7 @@ my $server = HTTP::Daemon->new( LocalPort => 3000, ReuseAddr => 1 ) print "Please contact me at: url, ">\n"; while ( my $client = $server->accept ) { - + my %e = ( REMOTE_ADDR => $client->peerhost, REMOTE_HOST => $client->peerhost, @@ -53,7 +53,7 @@ while ( my $client = $server->accept ) { $q->end_form, $q->h2('Parameters'), $q->Dump, - $q->h2('Environment'), + $q->h2('Enviroment'), $q->table( $q->Tr( [ map{ $q->td( [ $_, $ENV{$_} ] ) } sort keys %ENV