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