Revision 7274f9c8
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1009 | 1009 |
|
| 1010 | 1010 |
my $error = ""; |
| 1011 | 1011 |
|
| 1012 |
if (open(TEMPLATE, ">$filename")) {
|
|
| 1012 |
if (open(TEMPLATE, ">", $filename)) {
|
|
| 1013 | 1013 |
$content = Encode::encode('utf-8-strict', $content) if $::locale->is_utf8;
|
| 1014 | 1014 |
$content =~ s/\r\n/\n/g; |
| 1015 | 1015 |
print(TEMPLATE $content); |
| SL/DATEV.pm | ||
|---|---|---|
| 868 | 868 |
$kne_file->add_block($mandantenendsumme); |
| 869 | 869 |
$kne_file->flush(); |
| 870 | 870 |
|
| 871 |
open(ED, "> $ed_filename") or die "can't open outputfile: $!\n";
|
|
| 871 |
open(ED, ">", $ed_filename) or die "can't open outputfile: $!\n";
|
|
| 872 | 872 |
print(ED $kne_file->get_data()); |
| 873 | 873 |
close(ED); |
| 874 | 874 |
|
| ... | ... | |
| 880 | 880 |
my $ev_header = &make_ev_header($form, $fileno); |
| 881 | 881 |
my $ev_filename = $export_path . $evfile; |
| 882 | 882 |
push(@filenames, $evfile); |
| 883 |
open(EV, "> $ev_filename") or die "can't open outputfile: EV01\n";
|
|
| 883 |
open(EV, ">", $ev_filename) or die "can't open outputfile: EV01\n";
|
|
| 884 | 884 |
print(EV $ev_header); |
| 885 | 885 |
|
| 886 | 886 |
foreach my $file (@ed_versionset) {
|
| ... | ... | |
| 922 | 922 |
$filename++; |
| 923 | 923 |
my $ed_filename = $export_path . $filename; |
| 924 | 924 |
push(@filenames, $filename); |
| 925 |
open(ED, "> $ed_filename") or die "can't open outputfile: $!\n";
|
|
| 925 |
open(ED, ">", $ed_filename) or die "can't open outputfile: $!\n";
|
|
| 926 | 926 |
my $header = &make_kne_data_header($myconfig, $form, ""); |
| 927 | 927 |
$remaining_bytes -= length($header); |
| 928 | 928 |
|
| ... | ... | |
| 994 | 994 |
my $ev_header = &make_ev_header($form, $fileno); |
| 995 | 995 |
my $ev_filename = $export_path . $evfile; |
| 996 | 996 |
push(@filenames, $evfile); |
| 997 |
open(EV, "> $ev_filename") or die "can't open outputfile: EV01\n";
|
|
| 997 |
open(EV, ">", $ev_filename) or die "can't open outputfile: EV01\n";
|
|
| 998 | 998 |
print(EV $ev_header); |
| 999 | 999 |
|
| 1000 | 1000 |
foreach my $file (@ed_versionset) {
|
| SL/DN.pm | ||
|---|---|---|
| 794 | 794 |
|
| 795 | 795 |
my $filename = "dunning_${dunning_id}_" . Common::unique_id() . ".pdf";
|
| 796 | 796 |
my $spool = $::lx_office_conf{paths}->{spool};
|
| 797 |
$form->{OUT} = ">${spool}/$filename";
|
|
| 797 |
$form->{OUT} = "${spool}/$filename";
|
|
| 798 | 798 |
$form->{keep_tmpfile} = 1;
|
| 799 | 799 |
|
| 800 | 800 |
delete $form->{tmpfile};
|
| ... | ... | |
| 888 | 888 |
my $filename = Common::unique_id() . "dunning_invoice_${dunning_id}.pdf";
|
| 889 | 889 |
|
| 890 | 890 |
my $spool = $::lx_office_conf{paths}->{spool};
|
| 891 |
$form->{OUT} = ">$spool/$filename";
|
|
| 891 |
$form->{OUT} = "$spool/$filename";
|
|
| 892 | 892 |
$form->{keep_tmpfile} = 1;
|
| 893 | 893 |
delete $form->{tmpfile};
|
| 894 | 894 |
|
| SL/Form.pm | ||
|---|---|---|
| 1315 | 1315 |
|
| 1316 | 1316 |
if ($template->uses_temp_file() || $self->{media} eq 'email') {
|
| 1317 | 1317 |
$out = $self->{OUT};
|
| 1318 |
$self->{OUT} = ">$self->{tmpfile}";
|
|
| 1318 |
$self->{OUT} = "$self->{tmpfile}";
|
|
| 1319 | 1319 |
} |
| 1320 | 1320 |
|
| 1321 | 1321 |
my $result; |
| 1322 | 1322 |
|
| 1323 | 1323 |
if ($self->{OUT}) {
|
| 1324 |
open OUT, "$self->{OUT}" or $self->error("$self->{OUT} : $!");
|
|
| 1325 |
$result = $template->parse(*OUT); |
|
| 1326 |
close OUT; |
|
| 1327 |
|
|
| 1324 |
open(OUT, ">", $self->{OUT}) or $self->error("$self->{OUT} : $!");
|
|
| 1328 | 1325 |
} else {
|
| 1326 |
open(OUT, ">&", \*STDOUT) or $self->error("STDOUT : $!");
|
|
| 1329 | 1327 |
$self->header; |
| 1330 |
$result = $template->parse(*STDOUT); |
|
| 1331 | 1328 |
} |
| 1332 | 1329 |
|
| 1333 |
if (!$result) {
|
|
| 1330 |
if (!$template->parse(*OUT)) {
|
|
| 1334 | 1331 |
$self->cleanup(); |
| 1335 | 1332 |
$self->error("$self->{IN} : " . $template->get_error());
|
| 1336 | 1333 |
} |
| 1337 | 1334 |
|
| 1335 |
close OUT; |
|
| 1336 |
|
|
| 1338 | 1337 |
if ($self->{media} eq 'file') {
|
| 1339 | 1338 |
copy(join('/', $self->{cwd}, $userspath, $self->{tmpfile}), $out =~ m|^/| ? $out : join('/', $self->{cwd}, $out)) if $template->uses_temp_file;
|
| 1340 | 1339 |
$self->cleanup; |
| ... | ... | |
| 1368 | 1367 |
$myconfig->{signature} =~ s/\n/<br>\n/g;
|
| 1369 | 1368 |
$mail->{message} .= "<br>\n-- <br>\n$myconfig->{signature}\n<br>";
|
| 1370 | 1369 |
|
| 1371 |
open(IN, $self->{tmpfile})
|
|
| 1370 |
open(IN, "<", $self->{tmpfile})
|
|
| 1372 | 1371 |
or $self->error($self->cleanup . "$self->{tmpfile} : $!");
|
| 1373 | 1372 |
while (<IN>) {
|
| 1374 | 1373 |
$mail->{message} .= $_;
|
| ... | ... | |
| 1398 | 1397 |
$self->{OUT} = $out;
|
| 1399 | 1398 |
|
| 1400 | 1399 |
my $numbytes = (-s $self->{tmpfile});
|
| 1401 |
open(IN, $self->{tmpfile})
|
|
| 1400 |
open(IN, "<", $self->{tmpfile})
|
|
| 1402 | 1401 |
or $self->error($self->cleanup . "$self->{tmpfile} : $!");
|
| 1403 | 1402 |
binmode IN; |
| 1404 | 1403 |
|
| ... | ... | |
| 1409 | 1408 |
#print(STDERR "OUT $self->{OUT}\n");
|
| 1410 | 1409 |
for my $i (1 .. $self->{copies}) {
|
| 1411 | 1410 |
if ($self->{OUT}) {
|
| 1412 |
open OUT, $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");
|
|
| 1411 |
open OUT, '>', $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");
|
|
| 1413 | 1412 |
print OUT while <IN>; |
| 1414 |
close OUT; |
|
| 1415 | 1413 |
seek IN, 0, 0; |
| 1416 | 1414 |
|
| 1417 | 1415 |
} else {
|
| ... | ... | |
| 1426 | 1424 |
|
| 1427 | 1425 |
|; |
| 1428 | 1426 |
|
| 1429 |
$::locale->with_raw_io(\*STDOUT, sub { print while <IN> });
|
|
| 1427 |
open(OUT, ">&", \*STDOUT) or $self->error($self->cleanup . "$!: STDOUT"); |
|
| 1428 |
$::locale->with_raw_io(*OUT, sub { print while <IN> });
|
|
| 1430 | 1429 |
} |
| 1430 |
close OUT; |
|
| 1431 | 1431 |
} |
| 1432 | 1432 |
|
| 1433 | 1433 |
close(IN); |
| SL/LXDebug.pm | ||
|---|---|---|
| 262 | 262 |
chomp($message); |
| 263 | 263 |
|
| 264 | 264 |
if ((FILE_TARGET == $self->{"target"})
|
| 265 |
&& open(FILE, ">>" . $self->{"file"})) {
|
|
| 265 |
&& open(FILE, ">>", $self->{"file"})) {
|
|
| 266 | 266 |
print(FILE "${date}${message}\n");
|
| 267 | 267 |
close(FILE); |
| 268 | 268 |
|
| SL/Template/OpenDocument.pm | ||
|---|---|---|
| 389 | 389 |
|
| 390 | 390 |
local *OUT; |
| 391 | 391 |
my $dfname = $self->{"userspath"} . "/xvfb_display";
|
| 392 |
if (!open(OUT, ">$dfname")) {
|
|
| 392 |
if (!open(OUT, ">", $dfname)) {
|
|
| 393 | 393 |
$self->{"error"} = "Conversion to PDF failed because OpenOffice could not be started ($dfname: $!)";
|
| 394 | 394 |
unlink($xauthority); |
| 395 | 395 |
kill($pid); |
| SL/User.pm | ||
|---|---|---|
| 150 | 150 |
} |
| 151 | 151 |
|
| 152 | 152 |
# update the tables |
| 153 |
if (!open(FH, ">" . $::lx_office_conf{paths}->{userspath} . "/nologin")) {
|
|
| 153 |
if (!open(FH, ">", $::lx_office_conf{paths}->{userspath} . "/nologin")) {
|
|
| 154 | 154 |
$form->show_generic_error($main::locale->text('A temporary file could not be created. ' .
|
| 155 | 155 |
'Please verify that the directory "#1" is writeable by the webserver.', |
| 156 | 156 |
$::lx_office_conf{paths}->{userspath}),
|
| 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 |
|
| t/Support/Systemexec.pm | ||
|---|---|---|
| 3 | 3 |
package Support::Systemexec; |
| 4 | 4 |
require Exporter; |
| 5 | 5 |
@ISA = qw(Exporter); |
| 6 |
@EXPORT = qw(system exec); |
|
| 6 |
@EXPORT = qw(system exec open);
|
|
| 7 | 7 |
@EXPORT_OK = qw(); |
| 8 | 8 |
sub system($$@) {
|
| 9 | 9 |
1; |
| ... | ... | |
| 11 | 11 |
sub exec($$@) {
|
| 12 | 12 |
1; |
| 13 | 13 |
} |
| 14 |
sub open(*$$@) {
|
|
| 15 |
1; |
|
| 16 |
} |
|
| 14 | 17 |
1; |
Auch abrufbar als: Unified diff
Alle 2-arg open in 3-arg open verwandelt.