Revision 8cbf20b5
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
| 694 | 694 |
@a = <FH>; |
| 695 | 695 |
close(FH); |
| 696 | 696 |
|
| 697 |
if (open(FH, "custom_$menufile")) {
|
|
| 698 |
push @a, <FH>; |
|
| 699 |
} |
|
| 700 |
close(FH); |
|
| 701 |
|
|
| 702 | 697 |
foreach $item (@a) {
|
| 703 | 698 |
next unless $item =~ /\[/; |
| 704 | 699 |
next if $item =~ /\#/; |
| ... | ... | |
| 971 | 966 |
} |
| 972 | 967 |
} |
| 973 | 968 |
|
| 969 |
$form->{templates} =~ s|.*/||;
|
|
| 970 |
$form->{mastertemplates} =~ s|.*/||;
|
|
| 971 |
|
|
| 974 | 972 |
# create user template directory and copy master files |
| 975 | 973 |
if (!-d "$form->{templates}") {
|
| 976 | 974 |
umask(002); |
Auch abrufbar als: Unified diff
open() nur mit sicheren Argumenten aufrufen.