[svn:mod_parrot] r588 - in mod_parrot/trunk: docs lib/ModParrot/HLL
[email protected] Sun, 11 Jan 2009 08:29:34 -0800 (PST)
| Newsgroups | perl.cvs.mod_parrot |
|---|---|
| Message-ID | <[email protected]> |
Author: jhorwitz
Date: Sun Jan 11 08:29:33 2009
New Revision: 588
Modified:
mod_parrot/trunk/docs/apache-conf.txt
mod_parrot/trunk/lib/ModParrot/HLL/pir.pir
Log:
remove ParrotCleanupHandler (keep spec PIR module aligned with real phases)
Modified: mod_parrot/trunk/docs/apache-conf.txt
==============================================================================
--- mod_parrot/trunk/docs/apache-conf.txt (original)
+++ mod_parrot/trunk/docs/apache-conf.txt Sun Jan 11 08:29:33 2009
@@ -169,10 +169,3 @@
Default: none
Context: directory config
Description: Sets the Parrot log handler
-
-ParrotCleanupHandler
-----------------
-Syntax: ParrotCleanupHandler handler
-Default: none
-Context: directory config
-Description: Sets the Parrot request cleanup handler
Modified: mod_parrot/trunk/lib/ModParrot/HLL/pir.pir
==============================================================================
--- mod_parrot/trunk/lib/ModParrot/HLL/pir.pir (original)
+++ mod_parrot/trunk/lib/ModParrot/HLL/pir.pir Sun Jan 11 08:29:33 2009
@@ -59,8 +59,6 @@
cmds.'push'($P0)
$P0 = new_cmd('ParrotLogHandler', 'TAKE1', 'cmd_parrotloghandler', 'OR_AUTHCFG', 'usage: ParrotlogHandler handler-name')
cmds.'push'($P0)
- $P0 = new_cmd('ParrotCleanupHandler', 'TAKE1', 'cmd_parrotcleanuphandler', 'OR_AUTHCFG', 'usage: ParrotCleanupHandler handler-name')
- cmds.'push'($P0)
# we want *all* the hooks
hooks = new 'ResizablePMCArray'
@@ -267,14 +265,6 @@
dircfg['log_handler'] = $S0
.end
-.sub cmd_parrotcleanuphandler
- .param pmc dircfg
- .param pmc args
-
- $S0 = args[0]
- # XXX waiting on APR;Pool implementation
-.end
-
.sub load
.param string path
load_bytecode path
@@ -907,42 +897,3 @@
# return status code
.return(status)
.end
-
-# cleanup handler
-.sub cleanup_handler
- .param pmc ctx
- .local pmc r, handler, cfg, dircfg, get_config, ap_const
- .local int status
-
- ap_const = get_root_global ['ModParrot'; 'Apache'; 'Constants'], 'table'
-
- # get the request_rec object
- r = ctx.'request_rec'()
-
- # get configs
- get_config = get_hll_global ['ModParrot'; 'Apache'; 'Module'], 'get_config'
- cfg = get_config('modparrot_pir_module')
- $P0 = r.'per_dir_config'()
- dircfg = get_config('modparrot_pir_module', $P0)
-
- # decline if we have no config in this section
- unless null dircfg goto get_handler
- status = ap_const['DECLINED']
- .return(status)
-
- get_handler:
- # decline if we have no handler in this section
- $S0 = dircfg['cleanup_handler']
- if $S0 goto run_handler
- status = ap_const['DECLINED']
- .return(status)
-
- run_handler:
- # find the handler sub and call it
- $P0 = split ';', $S0
- get_hll_global handler, $P0, 'handler'
- status = handler(r)
-
- # return status code
- .return(status)
-.end