note
zer
<code>
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
}
</code>
789456
789464