Add PING HTTP Method

Author: Mons

META.yml

@@ -22,4 +22,4 @@ requires:
   Digest::SHA1: '2'
   HTTP::Easy: '0.03'
   JSON::XS: '3'
-version: '1.9999'
+version: '1.99992'

lib/AnyEvent/HTTP/Server.pm

@@ -7,7 +7,7 @@ AnyEvent::HTTP::Server - AnyEvent HTTP/1.1 Server
 =cut
 
 BEGIN{
-our $VERSION = '1.99991';
+our $VERSION = '1.99992';
 }
 
 #use common::sense;
@@ -410,6 +410,14 @@ sub incoming {
 								$self->{active_requests}--;
 								$ixx = $pos + $h{'content-length'};
 							}
+							elsif ( $method eq 'PING' ) {
+								my ( $header_str, $content ) = ref $self->{ping_sub} eq 'CODE' ? $self->{ping_sub}->() : ('200 OK', 'Pong '.time()."\n");
+								my $str = "HTTP/1.1 $header_str${LF}Connection:close${LF}Content-Type:text/plain${LF}Content-Length:".length($content)."${LF}${LF}".$content;
+								$write->(\$str);
+								$write->(\undef);
+								$self->{active_requests}--;
+								$ixx = $pos + $h{'content-length'};
+							}
 							elsif ( $self->{ping} and $method eq "GET" and $uri =~ m{^/ping( \Z | \? )}sox ) {
 								my ( $header_str, $content ) = ref $self->{ping_sub} eq 'CODE' ? $self->{ping_sub}->() : ('200 OK', 'Pong');
 								my $str = "HTTP/1.1 $header_str${LF}Connection:close${LF}Content-Type:text/plain${LF}Content-Length:".length($content)."${LF}${LF}".$content;