dougm 00/09/27 09:26:04
Modified: . Changes
src/modules/perl Apache.xs
t/docs startup.pl
Log:
added Apache::user method in preparation for 2.0, now that `user' hangs
off of the request_rec rather than request_rec->connection in Apache 2.0
Revision Changes Path
1.527 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.526
retrieving revision 1.527
diff -u -r1.526 -r1.527
--- Changes 2000/09/27 15:23:18 1.526
+++ Changes 2000/09/27 16:25:48 1.527
@@ -10,6 +10,9 @@
=item 1.24_01-dev
+added Apache::user method in preparation for 2.0, now that `user' hangs
+off of the request_rec rather than request_rec->connection in Apache 2.0
+
disable r->proxyreq checking unless PerlTransHandler is enabled and
configured
1.109 +10 -0 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -r1.108 -r1.109
--- Apache.xs 2000/09/13 07:50:11 1.108
+++ Apache.xs 2000/09/27 16:25:56 1.109
@@ -894,6 +894,16 @@
else
XPUSHs(&sv_undef);
+char *
+user(r, ...)
+ Apache r
+
+ CODE:
+ get_set_PVp(r->connection->user,r->pool);
+
+ OUTPUT:
+ RETVAL
+
void
basic_http_header(r)
Apache r
1.39 +1 -1 modperl/t/docs/startup.pl
Index: startup.pl
===================================================================
RCS file: /home/cvs/modperl/t/docs/startup.pl,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -r1.38 -r1.39
--- startup.pl 2000/09/13 06:06:46 1.38
+++ startup.pl 2000/09/27 16:26:01 1.39
@@ -173,7 +173,7 @@
my($res, $sent_pwd) = $r->get_basic_auth_pw;
return $res if $res; #decline if not Basic
- my $user = lc $r->connection->user;
+ my $user = lc $r->user;
$r->notes("DoAuthenTest", 1);
unless($user eq "dougm" and $sent_pwd eq "mod_perl") {
