Revision f41c4ade
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
$self->{OUT} = ">$self->{tmpfile}";
|
||
|
}
|
||
|
|
||
|
my $result;
|
||
|
|
||
|
if ($self->{OUT}) {
|
||
|
open(OUT, "$self->{OUT}") or $self->error("$self->{OUT} : $!");
|
||
|
open OUT, "$self->{OUT}" or $self->error("$self->{OUT} : $!");
|
||
|
$result = $template->parse(*OUT);
|
||
|
close OUT;
|
||
|
|
||
|
} else {
|
||
|
open(OUT, ">-") or $self->error("STDOUT : $!");
|
||
|
$self->header;
|
||
|
$result = $template->parse(*STDOUT);
|
||
|
}
|
||
|
|
||
|
if (!$template->parse(*OUT)) {
|
||
|
if (!$result) {
|
||
|
$self->cleanup();
|
||
|
$self->error("$self->{IN} : " . $template->get_error());
|
||
|
}
|
||
|
|
||
|
close(OUT);
|
||
|
|
||
|
if ($template->uses_temp_file() || $self->{media} eq 'email') {
|
||
|
|
||
|
if ($self->{media} eq 'email') {
|
||
Auch abrufbar als: Unified diff
STDOUT erneut öffnen und UTF8-Flag und FastCGI gefixt Teil 2