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	joko	1.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