FW: use script variables in cleanup code?

[Tim Pushor]

Sorry, meant to send this to the list.

--

<snip>

>How would a script get aborted?  Unless you abort a script running 
>yourself, I believe mod_perl scripts will continue to run whether or 
>not the client is still connected.  You >might do something, like in 
>Script_OnEnd like a test for $Response->IsClientConnected to find out 
>if the client was still connected when the script ran to completion.

Interesting question. I guess I assumed that if the user clicks stop or
the connection gets dropped for whatever reason that the script stops
executing. My bad.

My app lets users choose and download files. I have a script that
actually sends the file to the user (using sysread and
$Response->BinaryWrite()).

So are you saying that if the user clicks the stop button on the
browser, that the script will continue to execute? 

I would assume then that $Response->BinaryWrite() will fail. I don't see
any way to test the success of this call in the docs..

I was thinking something along the lines of:

My ($done,$rv,$buffer);

Sub cleanup {
        my $dr=shift;
        if ($$dr) {
                app->dl_failed;
        } else {
                app->dl_succeeded;
        }
}

$Server->Register_cleanup (&cleanup(\$done);

$done=0;
Open (I,"$dlfile") || something ..

While (($rv=sysread(I,$buffer,$bufsz))!=0) {
         
        $Response->BinaryWrite($buffer);
}
$done=1;

--

I know that there is a race condition here. Havn't really thought about
that yet, I am still trying to determine how to detect whether the
download was succesfull.

Thanks,
Tim


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]