I tried that and it didn't work. I have this code:
my $len = $sock->recv($buff, $want);
warn "got the message\n";
sleep 10;
warn "sending the response\n";
my $wlen = eval { $sock->send( "I heard $buff\n" ) };
if ($@) {
warn "They hung up!\n";
}
else {
warn "sent $wlen bytes\n";
$sock->send( "It's been good talking to you. Good-bye\n" );
$sock->close();
}
I get the following in the log:
got the message
sending the response
sent 13 bytes
[Mon Dec 19 17:07:23 2005] [error] APR::Socket::send: (32) Broken pipe
at /home/iheffner/proto/lib/ProtoConnection.pm line 55
I need to know that the client app just stopped listening. There is
no explicit timeout on the socket.
Ivan
On 12/19/05, Philip M. Gollucci <[EMAIL PROTECTED]> wrote:
> On Mon, 19 Dec 2005, Ivan Heffner wrote:
> > Any ideas or pointers on how to do this. Even a redirect to some
> > (helpful) docs (Not the "Possible values: XXXX" docs) would be
> > helpful.
>
> t/protocol/TestProtocol/echo_timeout.pm
>
>
> ------------------------------------------------------------------------
> "Love is not the one you can picture yourself marrying,
> but the one you can't picture the rest of your life without."
>
> "It takes a minute to have a crush on someone, an hour to like someone,
> and a day to love someone, but it takes a lifetime to forget someone..."
>
> Philip M. Gollucci ([EMAIL PROTECTED]) 301.254.5198
> Consultant / http://p6m7g8.net/Resume/resume.shtml
> Senior Software Engineer - TicketMaster - http://ticketmaster.com
>
>
