perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPI conn_rec.pm
Date Wed, 27 Oct 2004 22:48:29 GMT
stas        2004/10/27 15:48:29

  Modified:    .        Changes
               xs/maps  apache_structures.map
               t/response/TestAPI conn_rec.pm
  Log:
  Apache::Connection::remote_ip is now settable (needed to set the
  remote_ip record based on proxy's X-Forwarded-For header)
  
  Revision  Changes    Path
  1.520     +3 -0      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.519
  retrieving revision 1.520
  diff -u -u -r1.519 -r1.520
  --- Changes	27 Oct 2004 22:03:11 -0000	1.519
  +++ Changes	27 Oct 2004 22:48:29 -0000	1.520
  @@ -12,6 +12,9 @@
   
   =item 1.99_18-dev
   
  +Apache::Connection::remote_ip is now settable (needed to set the
  +remote_ip record based on proxy's X-Forwarded-For header) [Stas]
  +
   Fix Modperl::Util::unload_package() [Gozer]
     - Mistakenly skipping small entries of size 2 and less
     - Leave entries from other packages alone
  
  
  
  1.49      +3 -3      modperl-2.0/xs/maps/apache_structures.map
  
  Index: apache_structures.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/apache_structures.map,v
  retrieving revision 1.48
  retrieving revision 1.49
  diff -u -u -r1.48 -r1.49
  --- apache_structures.map	17 Sep 2004 00:07:24 -0000	1.48
  +++ apache_structures.map	27 Oct 2004 22:48:29 -0000	1.49
  @@ -104,16 +104,16 @@
   <  base_server
   >  vhost_lookup_data
   <  local_addr
  +<  local_ip
  +<  local_host
   <  remote_addr
  -<  remote_ip
  +   remote_ip
   <  remote_host
   -  remote_logname
   <  aborted
      keepalive
   ?  double_reverse
      keepalives
  -<  local_ip
  -<  local_host
   <  id
   <  conn_config
      notes
  
  
  
  1.16      +14 -2     modperl-2.0/t/response/TestAPI/conn_rec.pm
  
  Index: conn_rec.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/conn_rec.pm,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -u -r1.15 -r1.16
  --- conn_rec.pm	13 Aug 2004 02:06:02 -0000	1.15
  +++ conn_rec.pm	27 Oct 2004 22:48:29 -0000	1.16
  @@ -20,7 +20,7 @@
   
       my $c = $r->connection;
   
  -    plan $r, tests => 14;
  +    plan $r, tests => 16;
   
       ok $c;
   
  @@ -34,7 +34,19 @@
   
       ok $c->remote_addr->isa('APR::SockAddr');
   
  -    ok $c->remote_ip;
  +    # remote_ip
  +    {
  +        my $remote_ip_org = $c->remote_ip;
  +        my $remote_ip_new = "10.10.10.255";
  +        ok $remote_ip_org;
  +
  +        $c->remote_ip($remote_ip_new);
  +        ok t_cmp $c->remote_ip, $remote_ip_new;
  +
  +        # restore
  +        $c->remote_ip($remote_ip_org);
  +        ok t_cmp $c->remote_ip, $remote_ip_org;
  +    }
   
       ok $c->remote_host || 1;
   
  
  
  

Mime
View raw message