stas 2003/07/22 04:05:21
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
perl-framework/Apache-Test Changes
Log:
when the tests are run in the 'root' mode, check whether the
DocumentRoot is rwx before the tests are run and suggest possible
workarounds when the tests are doomed to fail, because of the
permission issues.
Revision Changes Path
1.111 +44 -1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
Index: TestRun.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -r1.110 -r1.111
--- TestRun.pm 14 May 2003 02:53:54 -0000 1.110
+++ TestRun.pm 22 Jul 2003 11:05:21 -0000 1.111
@@ -673,6 +673,11 @@
# have the right permissions to write into the fs created by 'foo'.
#
# We solve that by 'chown -R bar.bar t/' in a portable way.
+#
+# 3. If the parent directory is not rwx for the chosen user, that user
+# won't be able to read/write the DocumentRoot. In which case we
+# have nothing else to do, but to tell the user to fix the situation.
+#
sub adjust_t_perms {
my $self = shift;
@@ -686,11 +691,16 @@
my $user = $vars->{user};
my($uid, $gid) = (getpwnam($user))[2..3]
or die "Can't find out uid/gid of '$user'";
- warning "root mode: changing the fs ownership to '$user'
($uid:$gid)";
+
+ warning "root mode: ".
+ "changing the files ownership to '$user' ($uid:$gid)";
finddepth(sub {
$original_t_perms{$File::Find::name} = [(stat $_)[4..5]];
chown $uid, $gid, $_;
}, $vars->{t_dir});
+
+ $self->check_perms($user, $uid, $gid);
+
}
}
@@ -700,11 +710,44 @@
return if Apache::TestConfig::WINFU;
if (%original_t_perms) {
+ warning "root mode: restoring the original files ownership";
my $vars = $self->{test_config}->{vars};
while (my($file, $ids) = each %original_t_perms) {
next unless -e $file; # files could be deleted
chown @$ids, $file;
}
+ }
+}
+
+sub check_perms {
+ my ($self, $user, $uid, $gid) = @_;
+
+ # test that the base dir is rwx by the selected non-root user
+ my $vars = $self->{test_config}->{vars};
+ my $dir = $vars->{t_dir};
+ my $perl = $vars->{perl};
+ my $check = qq[sudo -u '#$uid' $perl -e ] .
+ qq['print -r "$dir" && -w _ && -x _ ? "OK" : "NOK"'];
+ warning "$check\n";
+ my $res = qx[$check] || '';
+ warning "result: $res";
+ unless ($res eq 'OK') {
+ #$self->restore_t_perms;
+ error(<<"EOI") && die "\n";
+You are running the test suite under user 'root'.
+Apache cannot spawn child processes as 'root', therefore
+we attempt to run the test suite with user '$user' ($uid:$gid).
+The problem is that the path:
+ $dir
+must be 'rwx' by user '$user', so Apache can read and write under that
+path.
+
+There several ways to resolve this issue. For example move
+'$dir' to '/tmp/' and repeat the 'make test' phase.
+
+You can test whether the location is good by running the following test:
+ % $check
+EOI
}
}
1.32 +5 -0 httpd-test/perl-framework/Apache-Test/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/Changes,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- Changes 8 Jul 2003 07:57:03 -0000 1.31
+++ Changes 22 Jul 2003 11:05:21 -0000 1.32
@@ -8,6 +8,11 @@
=item 1.04-dev -
+when the tests are run in the 'root' mode, check whether the
+DocumentRoot is rwx before the tests are run and suggest possible
+workarounds when the tests are doomed to fail, because of the
+permission issues. [Stas]
+
UPLOAD is now auto-exported, like the rest [David Wheeler
<[EMAIL PROTECTED]>]
