Re^2: POE HTTP Server

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]

Comment on Re^2: POE HTTP Server Download Code

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]

Replies are listed 'Best First'.

Re^3: POE HTTP Server
by Anonymous Monk on Aug 18, 2009 at 14:33 UTC

#  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]

[reply]
[d/l]

In Section Seekers of Perl Wisdom