equal
deleted
inserted
replaced
77 defined(my $pid = fork()) or die "Can't fork: $!\n"; |
77 defined(my $pid = fork()) or die "Can't fork: $!\n"; |
78 if ($pid == 0) { |
78 if ($pid == 0) { |
79 chdir $dir or die "Can't chdir to $dir: $!\n"; |
79 chdir $dir or die "Can't chdir to $dir: $!\n"; |
80 for ('subangebote') { |
80 for ('subangebote') { |
81 mkdir $_; |
81 mkdir $_; |
|
82 $gid = getgrnam('PM'); |
82 chown $uid, $gid => $_; |
83 chown $uid, $gid => $_; |
83 chmod $mode & 07777 => $_; |
84 chmod $mode & 02770 => $_; |
84 } |
85 } |
85 exec "true"; # avoid execution of END{ } blocks |
86 exec "true"; # avoid execution of END{ } blocks |
86 } |
87 } |
87 wait; |
88 wait; |
88 }, |
89 }, |
232 my $hook = $HOOK{$t} if exists $HOOK{$t} |
233 my $hook = $HOOK{$t} if exists $HOOK{$t} |
233 and ref $HOOK{$t} eq "CODE"; |
234 and ref $HOOK{$t} eq "CODE"; |
234 |
235 |
235 if (!-e $dir) { |
236 if (!-e $dir) { |
236 notice "mkdir $dir"; |
237 notice "mkdir $dir"; |
237 mkdir $dir => 0755; |
238 if ($dir =~ /angebote/gi) { |
|
239 $gid = getgrnam('PM'); |
|
240 mkdir $dir => 0770; |
|
241 chmod($mode & 02770, $dir); |
|
242 } |
|
243 else { |
|
244 mkdir $dir => 0755; |
|
245 chmod($mode & 07777, $dir); |
|
246 } |
|
247 |
238 chown($uid, $gid, $dir); |
248 chown($uid, $gid, $dir); |
239 chmod($mode & 07777, $dir); |
|
240 } |
249 } |
241 |
250 |
242 if ( "$link" =~ /angebote/gi ) |
251 if ( "$link" =~ /angebote/gi ) |
243 { |
252 { |
244 #$link = "/.dtele/Korrespondenz/$e->{name}/Angebote"; |
|
245 $link = "$target/Korrespondenz/$e->{name}/Angebote"; |
253 $link = "$target/Korrespondenz/$e->{name}/Angebote"; |
246 } |
254 } |
247 |
255 |
248 notice "symlink $dir <= $link"; |
256 notice "symlink $dir <= $link"; |
249 unlink $link; |
257 unlink $link; |