cholet 00/04/11 09:38:27
Modified: . Changes
src/modules/perl Connection.xs
Log:
$c->remote_ip($ip) now also sets conn->remote_addr to make
IP-based access control work correctly
Revision Changes Path
1.464 +4 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.463
retrieving revision 1.464
diff -u -r1.463 -r1.464
--- Changes 2000/04/10 14:16:11 1.463
+++ Changes 2000/04/11 16:38:26 1.464
@@ -10,6 +10,10 @@
=item 1.22_01-dev
+$c->remote_ip($ip) now also sets conn->remote_addr to make
+IP-based access control work correctly
+[Eric Cholet <[EMAIL PROTECTED]>]
+
Apache::URI::port wasn't setting the port correctly, thanks
to Zeqing Xia for the spot [Eric Cholet <[EMAIL PROTECTED]>]
1.9 +1 -0 modperl/src/modules/perl/Connection.xs
Index: Connection.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Connection.xs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- Connection.xs 2000/03/24 19:00:24 1.8
+++ Connection.xs 2000/04/11 16:38:27 1.9
@@ -106,6 +106,7 @@
#else
conn->remote_ip = pstrdup(conn->pool, (char *)SvPV(ST(1),na));
#endif
+ conn->remote_addr.sin_addr.s_addr = inet_addr(conn->remote_ip);
}
OUTPUT:
