Changeset 816

Timestamp:

02/11/09 21:36:03 (10 months ago)

Author:

hachi

Message:

need to call end_proxy_request during keepalives

Location:

trunk/lib/Perlbal

Files:

• ClientHTTPBase.pm (modified) (2 diffs)
• ClientProxy.pm (modified) (1 diff)

trunk/lib/Perlbal/ClientHTTPBase.pm

@@ -143 +143 @@
 }
 
+# Called when this client is entering a persist_wait state, but before we are returned to base.
+sub persist_wait {
+    
+}
+
 # called when we've finished writing everything to a client and we need
 # to reset our state for another request.  returns 1 to mean that we should
@@ -192 +197 @@
     $self->{post_sendfile_cb} = undef;
     $self->state('persist_wait');
+
+    $self->persist_wait;
 
     if (my $selector_svc = $self->{selector_svc}) {

trunk/lib/Perlbal/ClientProxy.pm

@@ -444 +444 @@
 }
 
+# Called when this client is entering a persist_wait state, but before we are returned to base.
+sub persist_wait {
+    my Perlbal::ClientProxy $self = $_[0];
+    # We're in keepalive, and just completed a proxy request
+    $self->{service}->run_hooks('end_proxy_request', $self);
+}
+
 # called when we've sent a response to a user fully and we need to reset state
 sub http_response_sent {