Re: Updating $r->connection->aborted before $r->print() ?

[Joshua Chamas]

Geoffrey Young wrote:
> 
> my $fileno = $r->connection->fileno;
> 
> $s = IO::Select->new($fileno);
> 
> die "aborted" if grep { m/$fileno/ } $s->can_read(1);
> 
> HTH
> 

Thanks for this.  The code that I ended up using for Apache::ASP was:

    # IsClientConnected ?  Might already be disconnected for busy site, if
    # a user hits stop/reload
    my $is_connected = 1;
    my $fileno = $r->connection->fileno;
    if(defined $fileno) {
        my $s = IO::Select->new($fileno);
        if($s->can_read(0)) {
            $is_connected = 0;
        }
    }

The difference being the can_read(0) from can_read(1).
The 1 would create an unnecessary wait of 1 second I found,
whereas 0 does not, yet reports the aborted condition
accurately.

Thanks again!

-- Josh
_________________________________________________________________
Joshua Chamas                           Chamas Enterprises Inc.
NodeWorks Founder                       Huntington Beach, CA  USA 
http://www.nodeworks.com                1-714-625-4051