httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm
Date Sat, 20 Oct 2001 01:50:45 GMT
dougm       01/10/19 18:50:45

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
  add remote_addr variable that should be the same as the Apache REMOTE_ADDR environment variable
  
  Revision  Changes    Path
  1.78      +9 -0      httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
  
  Index: TestConfig.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
  retrieving revision 1.77
  retrieving revision 1.78
  diff -u -r1.77 -r1.78
  --- TestConfig.pm	2001/10/18 02:44:36	1.77
  +++ TestConfig.pm	2001/10/20 01:50:45	1.78
  @@ -204,6 +204,7 @@
       $vars->{scheme}       ||= 'http';
       $vars->{servername}   ||= $self->default_servername;
       $vars->{port}         ||= $self->default_port;
  +    $vars->{remote_addr}  ||= $self->our_remote_addr;
   
       $vars->{user}         ||= $self->default_user;
       $vars->{group}        ||= $self->default_group;
  @@ -476,6 +477,14 @@
   #XXX: could check if the port is in use and select another if so
   sub default_port {
       $ENV{APACHE_PORT} || 8529;
  +}
  +
  +my $remote_addr;
  +
  +sub our_remote_addr {
  +    my $self = shift;
  +    my $name = $self->default_servername;
  +    $remote_addr ||= Socket::inet_ntoa((gethostbyname($name))[-1]);
   }
   
   sub default_loopback {
  
  
  

Mime
View raw message