dougm 00/04/24 20:48:27
Modified: lib/ModPerl Code.pm
src/modules/perl modperl_callback.c
Log:
hookup connection handlers
Revision Changes Path
1.15 +4 -2 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.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- Code.pm 2000/04/21 19:43:36 1.14
+++ Code.pm 2000/04/25 03:48:26 1.15
@@ -14,7 +14,7 @@
Access Authen Authz
Type Fixup Response
Log Cleanup)],
- Connection => [qw(PreConnection PostConnection)],
+ Connection => [qw(PreConnection ProcessConnection)],
);
my %hooks = (
@@ -27,7 +27,9 @@
Authz => 'auth_checker',
Type => 'type_checker',
Fixup => 'fixups',
- Log => 'log_transaction'
+ Log => 'log_transaction',
+ PreConnection => 'pre_connection',
+ ProcessConnection => 'process_connection',
);
my %hook_proto = (
1.4 +2 -1 modperl-2.0/src/modules/perl/modperl_callback.c
Index: modperl_callback.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- modperl_callback.c 2000/04/21 07:12:42 1.3
+++ modperl_callback.c 2000/04/25 03:48:27 1.4
@@ -347,7 +347,8 @@
int modperl_connection_callback(int idx, conn_rec *c)
{
- return DECLINED;
+ return modperl_run_handlers(idx, NULL, c->base_server,
+ MP_HANDLER_TYPE_SRV);
}
void modperl_process_callback(int idx, ap_pool_t *p, server_rec *s)
