Question

Some quote to pick from practical mod_perl

“Usually, a single process serves many requests before it exits, so END blocks cannot be used if they are expected to do something at the end of each request’s processing.”

So, in my a.cgi script :

my $flag = 1;

END {
    # Value for $flag is undefined, if this script is run under mod_perl. 
    # END block code only executed when process to handle a.cgi exit. 
    # I wish to execute some code, just before process to handle a.cgi exit.
    if ($flag) {
        # clean up code.
    }
}

The book recommences $r->register_cleanup(sub { #cleanup } );

However,

1. How I can obtain $r in a.cgi script?
2. Can the subroutine access the my scope flag variable?
3. Is this $r->register_cleanup shall be placed at a.cgi script? I only want the cleanup code to be executed for a.cgi script. Not the rest.

Answer 1

1. my $r = Apache->request;

2. Yes, but see http://modperlbook.org/html/6-2-Exposing-Apache-Registry-Secrets.html and the next couple of pages, regarding scoping of local variables and functions.

3. Yes, only register the function if you want it to run.