| … | |
… | |
| 15 | This module is an L<AnyEvent> user, you need to make sure that you use and |
15 | This module is an L<AnyEvent> user, you need to make sure that you use and |
| 16 | run a supported event loop. |
16 | run a supported event loop. |
| 17 | |
17 | |
| 18 | This module implements a simple, stateless and non-blocking HTTP |
18 | This module implements a simple, stateless and non-blocking HTTP |
| 19 | client. It supports GET, POST and other request methods, cookies and more, |
19 | client. It supports GET, POST and other request methods, cookies and more, |
| 20 | all on a very low level. It can follow redirects supports proxies and |
20 | all on a very low level. It can follow redirects, supports proxies, and |
| 21 | automatically limits the number of connections to the values specified in |
21 | automatically limits the number of connections to the values specified in |
| 22 | the RFC. |
22 | the RFC. |
| 23 | |
23 | |
| 24 | It should generally be a "good client" that is enough for most HTTP |
24 | It should generally be a "good client" that is enough for most HTTP |
| 25 | tasks. Simple tasks should be simple, but complex tasks should still be |
25 | tasks. Simple tasks should be simple, but complex tasks should still be |
| … | |
… | |
| 46 | use AnyEvent::Util (); |
46 | use AnyEvent::Util (); |
| 47 | use AnyEvent::Handle (); |
47 | use AnyEvent::Handle (); |
| 48 | |
48 | |
| 49 | use base Exporter::; |
49 | use base Exporter::; |
| 50 | |
50 | |
| 51 | our $VERSION = '2.01'; |
51 | our $VERSION = '2.02'; |
| 52 | |
52 | |
| 53 | our @EXPORT = qw(http_get http_post http_head http_request); |
53 | our @EXPORT = qw(http_get http_post http_head http_request); |
| 54 | |
54 | |
| 55 | our $USERAGENT = "Mozilla/5.0 (compatible; U; AnyEvent-HTTP/$VERSION; +http://software.schmorp.de/pkg/AnyEvent)"; |
55 | our $USERAGENT = "Mozilla/5.0 (compatible; U; AnyEvent-HTTP/$VERSION; +http://software.schmorp.de/pkg/AnyEvent)"; |
| 56 | our $MAX_RECURSE = 10; |
56 | our $MAX_RECURSE = 10; |
| … | |
… | |
| 546 | # quoted |
546 | # quoted |
| 547 | $value = $3; |
547 | $value = $3; |
| 548 | $value =~ s/\\(.)/$1/gs; |
548 | $value =~ s/\\(.)/$1/gs; |
| 549 | } |
549 | } |
| 550 | |
550 | |
| 551 | push @kv, lc $name, $value; |
551 | push @kv, @kv ? lc $name : $name, $value; |
| 552 | |
552 | |
| 553 | last unless /\G\s*;/gc; |
553 | last unless /\G\s*;/gc; |
| 554 | } |
554 | } |
| 555 | |
555 | |
| 556 | last unless @kv; |
556 | last unless @kv; |
