POE/net/server_http.pl

        #use POE::Component::Server::HTTP;
        use POE qw(Component::Server::HTTP);
        use HTTP::Status;

        sub handler {
            my ($request, $response) = @_;
            $response->code(RC_OK);
            $response->content("Hi, you fetched ". $request->uri);
            return RC_OK;
        }

        POE::Component::Server::HTTP->new(
           Port => 8000,
           ContentHandler => { '/' => \&handler },
           Headers => { Server => 'My Server' },
          );

        
$poe_kernel->run();
1	#use POE::Component::Server::HTTP;
2	use POE qw(Component::Server::HTTP);
3	use HTTP::Status;
4
5	sub handler {
6	my ($request, $response) = @_;
7	$response->code(RC_OK);
8	$response->content("Hi, you fetched ". $request->uri);
9	return RC_OK;
10	}
11
12	POE::Component::Server::HTTP->new(
13	Port => 8000,
14	ContentHandler => { '/' => \&handler },
15	Headers => { Server => 'My Server' },
16	);
17
18
19	$poe_kernel->run();
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26