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.