Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: POE HTTP Server

by zer (Deacon)
on Aug 18, 2009 at 13:54 UTC ( [id://789465]=note: print w/replies, xml ) Need Help??


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

sub _load{
    my ($self, %args)= @_;
    print "Loading Server: ";
    if ($args{config} && $args{EventHandler}){
        $self->{config}=$args{config};
        $self->{EH}=$args{EventHandler};
    }else{
        die 'Config not set!'
    }
    $self->{EH}->setWWW($SELF->{www});
    $self->{www} = POE::Component::Server::HTTPServer->new();
    $self->{www}->port($self->{config}->{Port});
    $self->{www}->handlers([
           '/' => \&handler]);
}
sub start{
    print "Server Running\n";
    $poe_kernel->run();
}
sub handler {
    my ( $context)=@_;
  print $context->{request}->content
}

[download]

Replies are listed 'Best First'.
Re^3: POE HTTP Server
by Anonymous Monk on Aug 18, 2009 at 14:33 UTC
    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__

    [download]
    I think it is a bug in POE::Component::Server::HTTP
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://789465]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others lurking in the Monastery: (None)
    As of 2024-04-25 02:05 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      No recent polls found