This patch makes Apache::AuthDBI work under mod_perl 1.99 as well under
mod_perl 1.X
it works fine at least with mysql and Oracle
Saludos
--
-"Por que te contienes? Por que te compadeces?
Por que -odiado de los dioses- no odias a un dios?
Por que no le traicionas si el traiciono tu honor?
- Somos semejantes, nuestras vidas estan unidas."
diff -ru Apache-DBI-0.89.old/AuthDBI.pm Apache-DBI-0.89/AuthDBI.pm
--- Apache-DBI-0.89.old/AuthDBI.pm 2002-06-18 01:49:39.000000000 -0400
+++ Apache-DBI-0.89/AuthDBI.pm 2002-10-07 21:29:52.000000000 -0400
@@ -174,7 +174,7 @@
return $res if $res; # e.g. HTTP_UNAUTHORIZED
# get username
- my ($user_sent) = $r->connection->user;
+ my ($user_sent) = $r->user;
print STDERR "$prefix user sent = >$user_sent<\n" if $Apache::AuthDBI::DEBUG > 1;
# do we use shared memory for the global cache ?
@@ -426,7 +426,7 @@
my ($group_result) = DECLINED;
# get username
- my ($user_sent) = $r->connection->user;
+ my ($user_sent) = $r->user;
print STDERR "$prefix user sent = >$user_sent<\n" if $Apache::AuthDBI::DEBUG > 1 ;
# here we could read the configuration, but we re-use the configuration from the authentication
