dougm       00/04/27 15:02:04

  Modified:    lib/ModPerl Code.pm
               src/modules/perl modperl_callback.h
  Log:
  that feels better
  
  Revision  Changes    Path
  1.21      +7 -17     modperl-2.0/lib/ModPerl/Code.pm
  
  Index: Code.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
  retrieving revision 1.20
  retrieving revision 1.21
  diff -u -r1.20 -r1.21
  --- Code.pm   2000/04/27 21:48:38     1.20
  +++ Code.pm   2000/04/27 22:02:02     1.21
  @@ -17,23 +17,13 @@
       Connection => [qw(PreConnection ProcessConnection)],
   );
   
  -my %hooks = (
  -    ChildInit => 'child_init',
  -    PostReadRequest => 'post_read_request',
  -    Trans => 'translate_name',
  -    HeaderParser => 'header_parser',
  -    Access => 'access_checker',
  -    Authen => 'check_user_id',
  -    Authz => 'auth_checker',
  -    Type => 'type_checker',
  -    Fixup => 'fixups',
  -    Log => 'log_transaction',
  -    PreConnection => 'pre_connection',
  -    ProcessConnection => 'process_connection',
  -    OpenLogs => 'open_logs',
  -    ChildInit => 'child_init',
  -    PostConfig => 'post_config',
  -);
  +my %hooks = map { $_, canon_lc($_) }
  +    qw{OpenLogs PostConfig ChildInit
  +       PreConnection PostConnection
  +       PostReadRequest Trans
  +       HeaderParser
  +       Access Authen Authz
  +       Type Fixup Log};
   
   my %hook_proto = (
       Process    => {
  
  
  
  1.5       +9 -0      modperl-2.0/src/modules/perl/modperl_callback.h
  
  Index: modperl_callback.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.h,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- modperl_callback.h        2000/04/27 21:42:25     1.4
  +++ modperl_callback.h        2000/04/27 22:02:04     1.5
  @@ -1,6 +1,15 @@
   #ifndef MODPERL_CALLBACK_H
   #define MODPERL_CALLBACK_H
   
  +/* alias some hook names to match Perl*Handler names */
  +#define ap_hook_trans  ap_hook_translate_name
  +#define ap_hook_access ap_hook_access_checker
  +#define ap_hook_authen ap_hook_check_user_id
  +#define ap_hook_authz  ap_hook_auth_checker
  +#define ap_hook_type   ap_hook_type_checker
  +#define ap_hook_fixup  ap_hook_fixups
  +#define ap_hook_log    ap_hook_log_transaction
  +
   modperl_handler_t *modperl_handler_new(ap_pool_t *p, void *h, int type);
   
   ap_status_t modperl_handler_cleanup(void *data);
  
  
  

Reply via email to