trunk/bin/server-http-engine.pl

#!/usr/bin/perl

use warnings;
use strict;

use HTTP::Engine;
use lib 'lib';
use Frey::Bootstrap;
use Frey::Server;

my $engine = HTTP::Engine->new(
        interface => {
                module => 'ServerSimple',
                args   => {
                        host => 'localhost',
                        port =>  3001,
                },
                request_handler => 'main::handle_request',# or CODE ref
        },
);

$engine->run;

sub handle_request {
        my $req = shift;

        my $server = Frey::Server->new;
        my $body;
        $server->{_print} = sub {
                $body .= join("\n", @_);
        };

        $server->request( $req->uri, $req->params );

        HTTP::Engine::Response->new( body => $body );
}

1	dpavlin	628	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use HTTP::Engine;
7			use lib 'lib';
8	dpavlin	630	use Frey::Bootstrap;
9	dpavlin	628	use Frey::Server;
10
11			my $engine = HTTP::Engine->new(
12			interface => {
13			module => 'ServerSimple',
14			args => {
15			host => 'localhost',
16			port => 3001,
17			},
18			request_handler => 'main::handle_request',# or CODE ref
19			},
20			);
21
22			$engine->run;
23
24			sub handle_request {
25			my $req = shift;
26
27			my $server = Frey::Server->new;
28			my $body;
29			$server->{_print} = sub {
30			$body .= join("\n", @_);
31			};
32
33			$server->request( $req->uri, $req->params );
34
35			HTTP::Engine::Response->new( body => $body );
36			}
37