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

[dougm]

dougm       01/09/27 12:41:44

  Modified:    src/modules/perl mod_perl.c modperl_cmd.c modperl_cmd.h
  Log:
  add PerlSetupEnv directive for backwards compat
  
  Revision  Changes    Path
  1.77      +2 -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.76
  retrieving revision 1.77
  diff -u -r1.76 -r1.77
  --- mod_perl.c        2001/09/27 19:35:34     1.76
  +++ mod_perl.c        2001/09/27 19:41:44     1.77
  @@ -428,6 +428,8 @@
   #ifdef MP_COMPAT_1X
       MP_CMD_DIR_FLAG("PerlSendHeader", send_header,
                       "Tell mod_perl to scan output for HTTP headers"),
  +    MP_CMD_DIR_FLAG("PerlSetupEnv", setup_env,
  +                    "Turn setup of %ENV On or Off"),
       MP_CMD_DIR_ITERATE("PerlHandler", response_handlers,
                          "Subroutine name"),
       MP_CMD_SRV_FLAG("PerlTaintCheck", taint_check,
  
  
  
  1.11      +6 -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.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- modperl_cmd.c     2001/09/27 19:35:34     1.10
  +++ modperl_cmd.c     2001/09/27 19:41:44     1.11
  @@ -111,6 +111,12 @@
       return modperl_cmd_options(parms, mconfig, arg);
   }
   
  +MP_CMD_SRV_DECLARE_FLAG(setup_env)
  +{
  +    char *arg = flag_on ? "+SetupEnv" : "-SetupEnv";
  +    return modperl_cmd_options(parms, mconfig, arg);
  +}
  +
   #endif /* MP_COMPAT_1X */
   
   #ifdef USE_ITHREADS
  
  
  
  1.13      +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.12
  retrieving revision 1.13
  diff -u -r1.12 -r1.13
  --- modperl_cmd.h     2001/09/27 19:35:34     1.12
  +++ modperl_cmd.h     2001/09/27 19:41:44     1.13
  @@ -28,6 +28,7 @@
   MP_CMD_SRV_DECLARE_FLAG(taint_check);
   MP_CMD_SRV_DECLARE_FLAG(warn);
   MP_CMD_SRV_DECLARE_FLAG(send_header);
  +MP_CMD_SRV_DECLARE_FLAG(setup_env);
   
   #endif /* MP_COMPAT_1X */