Revision 7274f9c8
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
bin/mozilla/admin.pl | ||
---|---|---|
549 | 549 |
closedir TEMPLATEDIR; |
550 | 550 |
|
551 | 551 |
foreach my $file (@templates) { |
552 |
open(TEMP, $::lx_office_conf{paths}->{templates} . "/$file") |
|
552 |
open(TEMP, "<", $::lx_office_conf{paths}->{templates} . "/$file")
|
|
553 | 553 |
or $form->error($::lx_office_conf{paths}->{templates} . "/$file : $ERRNO"); |
554 | 554 |
|
555 | 555 |
$file =~ s/\Q$form->{mastertemplates}\E-//; |
556 |
open(NEW, ">$form->{templates}/$file") |
|
556 |
open(NEW, ">", "$form->{templates}/$file")
|
|
557 | 557 |
or $form->error("$form->{templates}/$file : $ERRNO"); |
558 | 558 |
|
559 | 559 |
while (my $line = <TEMP>) { |
... | ... | |
1137 | 1137 |
my $form = $main::form; |
1138 | 1138 |
my $locale = $main::locale; |
1139 | 1139 |
|
1140 |
open(FH, ">" . _nologin_file_name())
|
|
1140 |
open(FH, ">", _nologin_file_name())
|
|
1141 | 1141 |
or $form->error($locale->text('Cannot create Lock!')); |
1142 | 1142 |
close(FH); |
1143 | 1143 |
|
Auch abrufbar als: Unified diff
Alle 2-arg open in 3-arg open verwandelt.