Re: Callback to delay a Server::TCP component?

[Mike Schilli]

On Mon, 19 Apr 2010, p...@0ne.us wrote:

Yeah, I agree that using run_one_timeslice() is a path to insanity,
ha!

Ha! :)

What I would recommend is the "tried and true" method of... buffering
the request?

Yeah, that's the way to go ... although in my case it was even simpler,
as with the protocol I'm using, the server makes the first move (and
a ServerError closes the client connection), so I'm simply dropping
client requests until the server is up:

    sub client_request {
      my ($kernel, $heap, $request) = @_[ KERNEL, HEAP, ARG0 ];

      # discard if server isn't up yet
      return if ! $heap->{client_heap}->{connected};

      # forward to server
      $heap->{client_heap}-> {server}->put( $request );
    }

Thanks!

-- Mike

Mike Schilli
m...@perlmeister.com