[svn:mod_parrot] r597 - mod_parrot/trunk/src
[email protected] Sat, 24 Jan 2009 13:34:41 -0800 (PST)
| Newsgroups | perl.cvs.mod_parrot |
|---|---|
| Message-ID | <[email protected]> |
Author: jhorwitz
Date: Sat Jan 24 13:34:41 2009
New Revision: 597
Modified:
mod_parrot/trunk/src/mod_parrot.c
Log:
add hook activity tracing
Modified: mod_parrot/trunk/src/mod_parrot.c
==============================================================================
--- mod_parrot/trunk/src/mod_parrot.c (original)
+++ mod_parrot/trunk/src/mod_parrot.c Sat Jan 24 13:34:41 2009
@@ -293,6 +293,8 @@
{
modparrot_context *ctxp;
+ MP_TRACE_h(r->server, "in modparrot_request_phase_handler");
+
/* initialize context */
if (!(ctxp = init_ctx(r->server, r->connection->pool))) {
MPLOG_ERROR(r->server, "context initialization failed");
@@ -312,6 +314,8 @@
{
modparrot_context *ctxp;
+ MP_TRACE_h(c->base_server, "in modparrot_pre_connection_handler");
+
/* initialize context */
if (!(ctxp = init_ctx(c->base_server, c->pool))) {
MPLOG_ERROR(c->base_server, "context initialization failed");
@@ -367,6 +371,7 @@
modparrot_module_info *minfo; \
Parrot_PMC sub; \
int status; \
+ MP_TRACE_h(r->server, "in modparrot_meta_%s", #hname); \
/* initialize context */ \
if (!(ctxp = init_ctx(r->server, r->connection->pool))) { \
MPLOG_ERROR(r->server, "context initialization failed"); \
@@ -397,6 +402,7 @@
dircfg = (modparrot_module_config *)ap_get_module_config( \
r->per_dir_config, modp); \
/* call meta handler */ \
+ MP_TRACE_h(r->server, "calling %s for %s", #hname, minfo->namespace); \
if (!modparrot_call_meta_handler(ctxp->interp, minfo->namespace, \
#hname , &status)) { \
MPLOG_ERRORF(r->server, \
@@ -429,6 +435,8 @@
Parrot_PMC sub;
int status;
+ MP_TRACE_h(c->base_server, "in modparrot_meta_pre_connection_handler");
+
/* initialize context */
if (!(ctxp = init_ctx(c->base_server, c->pool))) {
MPLOG_ERROR(c->base_server, "context initialization failed");
@@ -448,6 +456,7 @@
/* get HLL config */
minfo = (modparrot_module_info *)modp->dynamic_load_handle;
/* call meta handler */
+ MP_TRACE_h(c->base_server, "calling pre_connection_handler for %s", minfo->namespace);
if (!modparrot_call_meta_handler(ctxp->interp, minfo->namespace,
"pre_connection_handler", &status)) {
MPLOG_ERRORF(c->base_server,
@@ -463,6 +472,8 @@
{
modparrot_context *ctxp;
+ MP_TRACE_h(c->base_server, "in modparrot_process_connection_handler");
+
/* initialize context */
if (!(ctxp = init_ctx(c->base_server, c->pool))) {
MPLOG_ERROR(c->base_server, "context initialization failed");
@@ -488,6 +499,8 @@
Parrot_PMC sub;
int status;
+ MP_TRACE_h(c->base_server, "in modparrot_meta_process_connection_handler");
+
/* initialize context */
if (!(ctxp = init_ctx(c->base_server, c->pool))) {
MPLOG_ERROR(c->base_server, "context initialization failed");
@@ -506,6 +519,7 @@
/* get HLL config */
minfo = (modparrot_module_info *)modp->dynamic_load_handle;
/* call meta handler */
+ MP_TRACE_h(c->base_server, "calling process_connection_handler for %s", minfo->namespace);
if (!modparrot_call_meta_handler(ctxp->interp, minfo->namespace,
"process_connection_handler", &status)) {
MPLOG_ERRORF(c->base_server,
@@ -522,6 +536,8 @@
{
modparrot_context *ctxp;
+ MP_TRACE_h(s, "in modparrot_child_init_handler");
+
/* initialize context */
if (!(ctxp = init_ctx(s, NULL))) {
MPLOG_ERROR(s, "context initialization failed");
@@ -556,6 +572,8 @@
Parrot_PMC sub;
int status;
+ MP_TRACE_h(s, "in modparrot_meta_child_init_handler");
+
/* initialize context */
if (!(ctxp = init_ctx(s, NULL))) {
MPLOG_ERROR(s, "context initialization failed");
@@ -575,6 +593,7 @@
/* get HLL config */
minfo = (modparrot_module_info *)modp->dynamic_load_handle;
/* call meta handler */
+ MP_TRACE_h(s, "calling child_init_handler for %s", minfo->namespace);
if (!modparrot_call_meta_handler(ctxp->interp, minfo->namespace,
"child_init_handler", &status)) {
MPLOG_ERRORF(s, "no child_init metahandler found for module '%s'",
@@ -589,6 +608,8 @@
{
modparrot_context *ctxp;
+ MP_TRACE_h(s, "in modparrot_post_config_handler");
+
/* add our version component */
ap_add_version_component(pconf, "mod_parrot/" MODPARROT_VERSION);
@@ -618,6 +639,8 @@
Parrot_PMC sub;
int status;
+ MP_TRACE_h(s, "in modparrot_meta_post_config_handler");
+
/* initialize context */
if (!(ctxp = init_ctx(s, ptemp))) {
MPLOG_ERROR(s, "context initialization failed");
@@ -639,6 +662,7 @@
/* get HLL config */
minfo = (modparrot_module_info *)modp->dynamic_load_handle;
/* call meta handler */
+ MP_TRACE_h(s, "calling post_config_handler for %s", minfo->namespace);
if (!modparrot_call_meta_handler(ctxp->interp, minfo->namespace,
"post_config_handler", &status)) {
MPLOG_ERRORF(s, "no post_config metahandler found for module '%s'",
@@ -658,6 +682,7 @@
Parrot_Interp parent_interp;
server_rec *vs;
+ MP_TRACE_h(s, "in modparrot_open_logs_handler");
/* get apache configs */
mpcfg = ap_get_module_config(s->module_config, &parrot_module);
@@ -735,6 +760,8 @@
Parrot_PMC sub;
int status;
+ MP_TRACE_h(s, "in modparrot_meta_open_logs_handler");
+
/* initialize context */
if (!(ctxp = init_ctx(s, ptemp))) {
MPLOG_ERROR(s, "context initialization failed");
@@ -756,6 +783,7 @@
/* get HLL config */
minfo = (modparrot_module_info *)modp->dynamic_load_handle;
/* call meta handler */
+ MP_TRACE_h(s, "calling open_logs_handler for %s", minfo->namespace);
if (!modparrot_call_meta_handler(ctxp->interp, minfo->namespace,
"open_logs_handler", &status)) {
MPLOG_ERRORF(s, "no open_logs metahandler found for module '%s'",
@@ -769,6 +797,8 @@
static void register_hooks(apr_pool_t *p)
{
+ MP_TRACE_h(base_server, "in register_hooks");
+
/* this allows <IfDefine MODPARROT> blocks */
*(char **)apr_array_push(ap_server_config_defines) =
(char *)apr_pstrdup(p, "MODPARROT");