|
Lines 68-73
Link Here
|
| 68 |
my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1"; |
68 |
my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1"; |
| 69 |
system($localcall); |
69 |
system($localcall); |
| 70 |
} |
70 |
} |
|
|
71 |
system("ls -ld $directory"); |
| 72 |
my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1"; |
| 73 |
system($localcall); |
| 74 |
system("ls -ld $directory"); |
| 71 |
} |
75 |
} |
| 72 |
else |
76 |
else |
| 73 |
{ |
77 |
{ |
|
Lines 82-87
Link Here
|
| 82 |
else |
86 |
else |
| 83 |
{ |
87 |
{ |
| 84 |
$infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n"; |
88 |
$infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n"; |
|
|
89 |
system("ls -ld $directory"); |
| 90 |
my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1"; |
| 91 |
system($localcall); |
| 85 |
push(@installer::globals::logfileinfo, $infoline); |
92 |
push(@installer::globals::logfileinfo, $infoline); |
| 86 |
} |
93 |
} |
| 87 |
} |
94 |
} |
|
Lines 116-123
Link Here
|
| 116 |
|
123 |
|
| 117 |
if ($installer::globals::isunix) |
124 |
if ($installer::globals::isunix) |
| 118 |
{ |
125 |
{ |
|
|
126 |
system("ls -ld $directory"); |
| 119 |
my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1"; |
127 |
my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1"; |
| 120 |
system($localcall); |
128 |
system($localcall); |
|
|
129 |
system("ls -ld $directory"); |
| 121 |
} |
130 |
} |
| 122 |
} |
131 |
} |
| 123 |
else |
132 |
else |
|
Lines 133-138
Link Here
|
| 133 |
else |
142 |
else |
| 134 |
{ |
143 |
{ |
| 135 |
$infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n"; |
144 |
$infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n"; |
|
|
145 |
system("ls -ld $directory"); |
| 146 |
my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1"; |
| 147 |
system($localcall); |
| 136 |
push(@installer::globals::logfileinfo, $infoline); |
148 |
push(@installer::globals::logfileinfo, $infoline); |
| 137 |
} |
149 |
} |
| 138 |
} |
150 |
} |
|
Lines 147-152
Link Here
|
| 147 |
my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1"; |
159 |
my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1"; |
| 148 |
system($localcall); |
160 |
system($localcall); |
| 149 |
} |
161 |
} |
|
|
162 |
my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1"; |
| 163 |
system($localcall); |
| 150 |
} |
164 |
} |
| 151 |
} |
165 |
} |
| 152 |
|
166 |
|