cvs commit: modperl-2.0/xs/Apache/Filter Apache__Filter.h

[stas]

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);
       }