#i10000# chmod 775 for directories in zip files

1 files changed, 18 insertions, 2 deletions

diff --git a/solenv/bin/modules/installer/archivefiles.pm b/solenv/bin/modules/installer/archivefiles.pm
index ee727af0b110..f85af1028a8b 100644
--- a/solenv/bin/modules/installer/archivefiles.pm
+++ b/solenv/bin/modules/installer/archivefiles.pm
@@ -2,9 +2,9 @@
 #
 #   $RCSfile: archivefiles.pm,v $
 #
-#   $Revision: 1.3 $
+#   $Revision: 1.4 $
 #
-#   last change: $Author: kz $ $Date: 2004-06-11 18:14:22 $
+#   last change: $Author: obo $ $Date: 2004-06-22 10:20:24 $
 #
 #   The Contents of this file are made available subject to the terms of
 #   either of the following licenses
@@ -174,6 +174,22 @@ sub resolving_archive_flag
                         {
                             installer::exiter::exit_program("ERROR: $infoline", "resolving_archive_flag");
                         }
+
+                        if ( ! $installer::globals::iswindowsbuild )
+                        {
+                            # Setting unix rights to "775" for all created directories inside the package
+
+                            $systemcall = "cd $unzipdir; find . -type d -exec chmod 775 \{\} \\\;";
+                            $returnvalue = system($systemcall);
+                            $infoline = "Systemcall: $systemcall\n";
+                            push( @installer::globals::logfileinfo, $infoline);
+
+                            if ($returnvalue)
+                            {
+                                $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
+                                push( @installer::globals::logfileinfo, $infoline);
+                            }
+                        }
                     }
                 }