Revision 8cbf20b5
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
|
@a = <FH>;
|
||
|
close(FH);
|
||
|
|
||
|
if (open(FH, "custom_$menufile")) {
|
||
|
push @a, <FH>;
|
||
|
}
|
||
|
close(FH);
|
||
|
|
||
|
foreach $item (@a) {
|
||
|
next unless $item =~ /\[/;
|
||
|
next if $item =~ /\#/;
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
$form->{templates} =~ s|.*/||;
|
||
|
$form->{mastertemplates} =~ s|.*/||;
|
||
|
|
||
|
# create user template directory and copy master files
|
||
|
if (!-d "$form->{templates}") {
|
||
|
umask(002);
|
||
Auch abrufbar als: Unified diff
open() nur mit sicheren Argumenten aufrufen.