Re: Handling the User pressed Stop button case - problems

[prev] [thread] [next] [Date index for 2004/11/29]

Federico M. wrote:
> Hi, what's wrong whit this script.
> I need to detect when the user press the stop button.
> I read:
> 
> http://perl.apache.org/docs/1.0/guide/debug.html#Handling_the__User_pressed_Stop_button__case
> 
> 
> 
> SO: Debian Sarge.
> 
> This is my apache.http:
> -----------------------
> 
> # If the perl module is installed, this will be
> enabled.
> <IfModule mod_perl.c>
>   <IfModule mod_alias.c>
>    Alias /perl/ /var/www/perl/
>   </IfModule>
>   <Location /perl>
>     SetHandler perl-script
>     PerlHandler Apache::Registry
>     PerlFixupHandler Apache::SIG LogFormat "%h %l %u
> %t \"%r\" %s %b &{SIGPIPE}e"
>     Options +ExecCGI
>   </Location>
> </IfModule>
> 
> I have mod_perl.so, but don't have mod_perl.c
> 
> This is my script:
> ------------------
> 
> #!/usr/bin/perl

you need to assign the request object to $r

   my $r = shift;

> $r->send_http_header;
> print"PID=$$\n";
> $r->rflush;
> while(1)
> {
> $r->print("\0");
> $r->rflush;
> last if $r->connection->aborted;
> $i++;
> sleep 1;
> }

If you had put a 'use strict' in there at the top it might have been 
easier to see this.

        -- 
        Michael Peters
Developer
Plus Three, LP


-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html