]> git.ipfire.org Git - thirdparty/bugzilla.git/commitdiff
Bug 162438 - fix permissions/tests for Bugzilla/ directory
authorbbaetz%student.usyd.edu.au <>
Wed, 14 Aug 2002 07:59:43 +0000 (07:59 +0000)
committerbbaetz%student.usyd.edu.au <>
Wed, 14 Aug 2002 07:59:43 +0000 (07:59 +0000)
r=joel x2

checksetup.pl
t/Support/Files.pm

index e0a42c1a5b0401a6d06ecfb2bf489adb4308bd51..9c1150080e9bb7b4ef3b2bd94fcb5cd7bbe04c2c 100755 (executable)
@@ -773,6 +773,17 @@ END
     close HTACCESS;
     chmod $fileperm, ".htaccess";
   }
+  if (!-e "Bugzilla/.htaccess") {
+    print "Creating Bugzilla/.htaccess...\n";
+    open HTACCESS, ">Bugzilla/.htaccess";
+    print HTACCESS <<'END';
+# nothing in this directory is retrievable unless overriden by an .htaccess
+# in a subdirectory
+deny from all
+END
+    close HTACCESS;
+    chmod $fileperm, "Bugzilla/.htaccess";
+  }
   if (!-e "data/.htaccess") {
     print "Creating data/.htaccess...\n";
     open HTACCESS, ">data/.htaccess";
@@ -1102,6 +1113,7 @@ if ($my_webservergroup) {
     fixPerms('data/webdot/.htaccess', $<, $webservergid, 027);
     fixPerms('data/params', $<, $webservergid, 017);
     fixPerms('*', $<, $webservergid, 027);
+    fixPerms('Bugzilla', $<, $webservergid, 027, 1);
     fixPerms('template', $<, $webservergid, 027, 1);
     fixPerms('css', $<, $webservergid, 027, 1);
     chmod 0644, 'globals.pl';
@@ -1126,6 +1138,7 @@ if ($my_webservergroup) {
     fixPerms('data/webdot/.htaccess', $<, $gid, 022);
     fixPerms('data/params', $<, $gid, 011);
     fixPerms('*', $<, $gid, 022);
+    fixPerms('Bugzilla', $<, $gid, 022, 1);
     fixPerms('template', $<, $gid, 022, 1);
     fixPerms('css', $<, $gid, 022, 1);
 
index 63c55ce86bef133d3e9b73b89a002fca395f468a..e68d08ea737ef4450965a6454520d018ea7761d1 100644 (file)
@@ -37,8 +37,9 @@ package Support::Files;
 @additional_files = ('syncshadowdb','processmail');
 @exclude_files    = ('importxml.pl');
 
+# XXX - this file should be rewritten to use File::Find or similar
 $file = '*';
-@files = glob($file);
+@files = (glob($file), glob('Bugzilla/*.pm'));
 
 sub isTestingFile {
   my ($file) = @_;