stas 2003/04/03 16:08:38
Modified: src/modules/perl modperl_filter.c
xs/Apache/Filter Apache__Filter.h
Log:
more debug tracing printouts for filters and response handlers
Revision Changes Path
1.59 +2 -0 modperl-2.0/src/modules/perl/modperl_filter.c
Index: modperl_filter.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_filter.c,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -r1.58 -r1.59
--- modperl_filter.c 3 Apr 2003 06:23:53 -0000 1.58
+++ modperl_filter.c 4 Apr 2003 00:08:36 -0000 1.59
@@ -180,6 +180,8 @@
apr_size_t len = *wlen;
*wlen = 0;
+ MP_TRACE_f(MP_FUNC, "\n\n\tbuffer out: %d bytes\n", len);
+
if ((len + wb->outcnt) > sizeof(wb->outbuf)) {
apr_status_t rv;
if ((rv = modperl_wbucket_flush(wb, FALSE)) != APR_SUCCESS) {
1.28 +5 -0 modperl-2.0/xs/Apache/Filter/Apache__Filter.h
Index: Apache__Filter.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/Apache/Filter/Apache__Filter.h,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- Apache__Filter.h 3 Apr 2003 06:21:43 -0000 1.27
+++ Apache__Filter.h 4 Apr 2003 00:08:37 -0000 1.28
@@ -16,6 +16,8 @@
mpxs_usage_va_1(modperl_filter, "$filter->print(...)");
+ MP_TRACE_f(MP_FUNC, "%s::print\n",
+ ((modperl_filter_ctx_t *)modperl_filter->f->ctx)->handler->name);
if (modperl_filter->mode == MP_OUTPUT_FILTER_MODE) {
mpxs_write_loop(modperl_output_filter_write, modperl_filter);
}
@@ -37,6 +39,9 @@
mpxs_usage_va_2(modperl_filter, buffer, "$filter->read(buf, [len])");
+ MP_TRACE_f(MP_FUNC, "%s::read\n",
+ ((modperl_filter_ctx_t *)modperl_filter->f->ctx)->handler->name);
+
if (items > 2) {
wanted = SvIV(*MARK);
}
