Revision f41c4ade
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1259 | 1259 |
$self->{OUT} = ">$self->{tmpfile}";
|
| 1260 | 1260 |
} |
| 1261 | 1261 |
|
| 1262 |
my $result; |
|
| 1263 |
|
|
| 1262 | 1264 |
if ($self->{OUT}) {
|
| 1263 |
open(OUT, "$self->{OUT}") or $self->error("$self->{OUT} : $!");
|
|
| 1265 |
open OUT, "$self->{OUT}" or $self->error("$self->{OUT} : $!");
|
|
| 1266 |
$result = $template->parse(*OUT); |
|
| 1267 |
close OUT; |
|
| 1268 |
|
|
| 1264 | 1269 |
} else {
|
| 1265 |
open(OUT, ">-") or $self->error("STDOUT : $!");
|
|
| 1266 | 1270 |
$self->header; |
| 1271 |
$result = $template->parse(*STDOUT); |
|
| 1267 | 1272 |
} |
| 1268 | 1273 |
|
| 1269 |
if (!$template->parse(*OUT)) {
|
|
| 1274 |
if (!$result) {
|
|
| 1270 | 1275 |
$self->cleanup(); |
| 1271 | 1276 |
$self->error("$self->{IN} : " . $template->get_error());
|
| 1272 | 1277 |
} |
| 1273 | 1278 |
|
| 1274 |
close(OUT); |
|
| 1275 |
|
|
| 1276 | 1279 |
if ($template->uses_temp_file() || $self->{media} eq 'email') {
|
| 1277 | 1280 |
|
| 1278 | 1281 |
if ($self->{media} eq 'email') {
|
Auch abrufbar als: Unified diff
STDOUT erneut öffnen und UTF8-Flag und FastCGI gefixt Teil 2