httpd-test-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Gary Benson <gben...@redhat.com>
Subject Ensure paths for EAPI exist
Date Fri, 10 Aug 2001 11:58:30 GMT

Hi all,

Another patch...

If you have mod_ssl's EAPI compiled in, then Apache trys to write files to
a location defined in EAPI_MM_CORE_PATH. If this path does not exist then
httpd can't start and TestServer::start fails.

You can't override this path with configuration directives; you just have
to live with whatever it's set to. This patch ensures that the path exists.

Hope it's ok,
Gary

[ Gary Benson, Red Hat Europe ][ gbenson@redhat.com ][ GnuPG 60E8793A ]


Index: Apache-Test/lib/Apache/TestConfig.pm
===================================================================
RCS file: /home/cvspublic/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
retrieving revision 1.14
diff -u -r1.14 TestConfig.pm
--- Apache-Test/lib/Apache/TestConfig.pm	2001/08/07 16:18:32	1.14
+++ Apache-Test/lib/Apache/TestConfig.pm	2001/08/10 11:52:40
@@ -5,7 +5,8 @@

 use constant WIN32 => $^O eq 'MSWin32';

-use File::Spec::Functions qw(catfile abs2rel splitdir);
+use File::Spec::Functions qw(catfile abs2rel splitdir
+                             catdir file_name_is_absolute);
 use Cwd qw(fastcwd);

 use Apache::TestConfigPerl ();
@@ -155,6 +156,7 @@
     $self->configure_apxs;
     $self->configure_httpd;
     $self->inherit_config; #see TestConfigParse.pm
+    $self->configure_httpd_eapi; #must come after inherit_config

     $self->{hostport} = $self->hostport;

@@ -201,6 +203,25 @@
     my $sem = catfile $vars->{t_logs}, 'apache_runtime_status.sem';
     unless (-e $sem) {
         $self->{clean}->{files}->{$sem} = 1;
+    }
+}
+
+sub configure_httpd_eapi {
+    my $self = shift;
+    my $vars = $self->{vars};
+
+    #deal with EAPI_MM_CORE_PATH if defined.
+    if (defined($self->{httpd_defines}->{EAPI_MM_CORE_PATH})) {
+        my $path = $self->{httpd_defines}->{EAPI_MM_CORE_PATH};
+
+        #ensure the directory exists
+        my @chunks = splitdir $path;
+        pop @chunks; #the file component of the path
+        $path = catdir @chunks;
+        unless (file_name_is_absolute $path) {
+            $path = catdir $vars->{serverroot}, $path;
+        }
+        $self->gendir($path);
     }
 }



Mime
View raw message