POE/net/client_http_does-not-work.pl

#use HTTP::Request;
use HTTP::Request::Common qw(GET POST);
sub POE::Kernel::ASSERT_DEFAULT () { 1 }
use POE qw(Component::Client::HTTP);

sub DEBUG          () { 0 }


      POE::Component::Client::HTTP->spawn(
        Agent    => 'SpiffCrawler/0.90',    # defaults to something long
        Alias    => 'ua',                   # defaults to 'weeble'
        From     => 'spiffster@perl.org',   # defaults to undef (no header)
        Protocol => 'HTTP/0.9',             # defaults to 'HTTP/1.0'
        Timeout  => 60,                     # defaults to 180 seconds
      );

      # a http-request
      my $request = HTTP::Request->new(GET => 'http://www.ilo.de/');
      # post request to POE-Kernel
      $poe_kernel->post( 'ua',        # posts to the 'ua' alias
                     'request',   # posts to ua's 'request' state
                     'response_handler',  # which of our states will receive the response
                     $request,    # an HTTP::Request object
                   );

      # This is the sub which is called when the session receives a
      # 'response' event.
      sub response_handler {
        my ($request_packet, $response_packet) = @_[ARG0, ARG1];
        my $request_object  = $request_packet->[0];  # HTTP::Request
        my $response_object = $response_packet->[0]; # HTTP::Response

        print "*" x 78, "\n";
        print "*** my request:\n";
        print "-" x 78, "\n";
        print $request_object->as_string();
        print "*" x 78, "\n";

        print "*" x 78, "\n";
        print "*** their response:\n";
        print "-" x 78, "\n";
        print $response_object->as_string();
        print "*" x 78, "\n";
      }
      
      $poe_kernel->run();
1	#use HTTP::Request;
2	use HTTP::Request::Common qw(GET POST);
3	sub POE::Kernel::ASSERT_DEFAULT () { 1 }
4	use POE qw(Component::Client::HTTP);
5
6	sub DEBUG () { 0 }
7
8
9	POE::Component::Client::HTTP->spawn(
10	Agent => 'SpiffCrawler/0.90', # defaults to something long
11	Alias => 'ua', # defaults to 'weeble'
12	From => 'spiffster@perl.org', # defaults to undef (no header)
13	Protocol => 'HTTP/0.9', # defaults to 'HTTP/1.0'
14	Timeout => 60, # defaults to 180 seconds
15	);
16
17	# a http-request
18	my $request = HTTP::Request->new(GET => 'http://www.ilo.de/');
19	# post request to POE-Kernel
20	$poe_kernel->post( 'ua', # posts to the 'ua' alias
21	'request', # posts to ua's 'request' state
22	'response_handler', # which of our states will receive the response
23	$request, # an HTTP::Request object
24	);
25
26	# This is the sub which is called when the session receives a
27	# 'response' event.
28	sub response_handler {
29	my ($request_packet, $response_packet) = @_[ARG0, ARG1];
30	my $request_object = $request_packet->[0]; # HTTP::Request
31	my $response_object = $response_packet->[0]; # HTTP::Response
32
33	print "*" x 78, "\n";
34	print "*** my request:\n";
35	print "-" x 78, "\n";
36	print $request_object->as_string();
37	print "*" x 78, "\n";
38
39	print "*" x 78, "\n";
40	print "*** their response:\n";
41	print "-" x 78, "\n";
42	print $response_object->as_string();
43	print "*" x 78, "\n";
44	}
45
46	$poe_kernel->run();
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26