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