| 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(); |
Parent Directory
| 
Revision Log
