Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^3: POE HTTP Server

by Anonymous Monk
on Aug 18, 2009 at 14:33 UTC ( [id://789478]=note: print w/replies, xml ) Need Help??


in reply to Re^2: POE HTTP Server
in thread POE HTTP Server

sorry, I should have specified that you post a self-contained runnable code which demonstrates the problem. Something like
# server.pl #!/usr/bin/perl -- use strict; use warnings; use POE; use POE::Component::Server::HTTP; my $poco = POE::Component::Server::HTTP->new( Address=>'localhost', Port => 8000, ContentHandler => { '/' => \&handler, }, ); $poe_kernel->run; sub handler { my ($request, $response) = @_; print $request->as_string,"\n"; $response->code(200); $response->content("You sent: ", $request->content); return 200;#RC_OK } __END__ # client.pl #!/usr/bin/perl -- use strict; use warnings; use LWP; print LWP::UserAgent->new->get( qw[ http://localhost:8000/user/ Accept text/x-json Content-Type text/x-json ], Content => q[{"Password":"blah","Username":"blah"}], )->as_string; __END__
I think it is a bug in POE::Component::Server::HTTP

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://789478]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2024-03-29 01:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found