cvs commit: modperl-2.0/src/modules/perl mod_perl.c modperl_cmd.c modperl_cmd.h

[dougm]

dougm       01/10/06 12:43:40

  Modified:    src/modules/perl mod_perl.c modperl_cmd.c modperl_cmd.h
  Log:
  implement PerlInitHandler
  
  Revision  Changes    Path
  1.86      +1 -0      modperl-2.0/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
  retrieving revision 1.85
  retrieving revision 1.86
  diff -u -r1.85 -r1.86
  --- mod_perl.c        2001/09/28 19:51:40     1.85
  +++ mod_perl.c        2001/10/06 19:43:40     1.86
  @@ -415,6 +415,7 @@
       MP_CMD_SRV_ITERATE("PerlModule", modules, "PerlModule"),
       MP_CMD_SRV_ITERATE("PerlRequire", requires, "PerlRequire"),
       MP_CMD_DIR_ITERATE("PerlOptions", options, "Perl Options"),
  +    MP_CMD_DIR_ITERATE("PerlInitHandler", init_handlers, "Subroutine name"),
       MP_CMD_DIR_TAKE2("PerlSetVar", set_var, "PerlSetVar"),
       MP_CMD_DIR_ITERATE2("PerlAddVar", add_var, "PerlAddVar"),
   #ifdef MP_TRACE
  
  
  
  1.13      +8 -0      modperl-2.0/src/modules/perl/modperl_cmd.c
  
  Index: modperl_cmd.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.c,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -r1.12 -r1.13
  --- modperl_cmd.c     2001/09/28 19:51:40     1.12
  +++ modperl_cmd.c     2001/10/06 19:43:40     1.13
  @@ -116,6 +116,14 @@
       return NULL;
   }
   
  +MP_CMD_SRV_DECLARE(init_handlers)
  +{
  +    if (parms->path) {
  +        return modperl_cmd_header_parser_handlers(parms, mconfig, arg);
  +    }
  +
  +    return modperl_cmd_post_read_request_handlers(parms, mconfig, arg);
  +}
   
   #ifdef MP_COMPAT_1X
   
  
  
  
  1.15      +1 -0      modperl-2.0/src/modules/perl/modperl_cmd.h
  
  Index: modperl_cmd.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.h,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -r1.14 -r1.15
  --- modperl_cmd.h     2001/09/28 19:51:40     1.14
  +++ modperl_cmd.h     2001/10/06 19:43:40     1.15
  @@ -23,6 +23,7 @@
   MP_CMD_SRV_DECLARE2(set_var);
   MP_CMD_SRV_DECLARE2(add_var);
   MP_CMD_SRV_DECLARE(options);
  +MP_CMD_SRV_DECLARE(init_handlers);
   
   #ifdef MP_COMPAT_1X