[ViewVC] Diff of: cvs/AnyEvent-HTTP/HTTP.pm

Comparing AnyEvent-HTTP/HTTP.pm (file contents):
Revision 1.3 by root, Wed Jun 4 11:58:36 2008 UTC vs.
Revision 1.5 by root, Wed Jun 4 12:03:47 2008 UTC

 =item http_get $url, key => value..., $cb->($data, $headers)
 Executes an HTTP-GET request. See the http_request function for details on
 additional parameters.
+=item http_head $url, key => value..., $cb->($data, $headers)
+Executes an HTTP-HEAD request. See the http_request function for details on
+additional parameters.
-=item http_get $url, $body, key => value..., $cb->($data, $headers)
+=item http_post $url, $body, key => value..., $cb->($data, $headers)
 Executes an HTTP-POST request with a requets body of C<$bod>. See the
 http_request function for details on additional parameters.
 =item http_request $method => $url, key => value..., $cb->($data, $headers)
             }
             substr $_, 0, 1, ""
                for values %hdr;
-            if ($method ne "HEAD") {
+            if ($method eq "HEAD") {
+               %state = ();
+               $cb->(undef, \%hdr);
+            } else {
                if (exists $hdr{"content-length"}) {
                   $_[0]->unshift_read (chunk => $hdr{"content-length"}, sub {
                      # could cache persistent connection now
                      if ($hdr{connection} =~ /\bkeep-alive\b/i) {
                         # but we don't, due to misdesigns, this is annoyingly complex
 sub http_get($$;@) {
    unshift @_, "GET";
    &http_request
 }
+sub http_head($$;@) {
+   unshift @_, "HEAD";
+   &http_request
+}
 sub http_post($$$;@) {
    unshift @_, "POST", "body";
    &http_request
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines