Revision 91ea4ec2
Von Moritz Bunkus vor etwa 11 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1070 | 1070 |
|
| 1071 | 1071 |
close OUT if $self->{OUT};
|
| 1072 | 1072 |
|
| 1073 |
Common::copy_file_to_webdav_folder($self) if ($::instance_conf->get_webdav |
|
| 1074 |
and $::instance_conf->get_webdav_documents and not $self->{preview});
|
|
| 1073 |
my $copy_to_webdav = $::instance_conf->get_webdav && $::instance_conf->get_webdav_documents && !$self->{preview};
|
|
| 1075 | 1074 |
|
| 1076 | 1075 |
if ($self->{media} eq 'file') {
|
| 1077 | 1076 |
copy(join('/', $self->{cwd}, $userspath, $self->{tmpfile}), $out =~ m|^/| ? $out : join('/', $self->{cwd}, $out)) if $template->uses_temp_file;
|
| 1077 |
Common::copy_file_to_webdav_folder($self) if $copy_to_webdav; |
|
| 1078 | 1078 |
$self->cleanup; |
| 1079 | 1079 |
chdir("$self->{cwd}");
|
| 1080 | 1080 |
|
| ... | ... | |
| 1083 | 1083 |
return; |
| 1084 | 1084 |
} |
| 1085 | 1085 |
|
| 1086 |
Common::copy_file_to_webdav_folder($self) if $copy_to_webdav; |
|
| 1087 |
|
|
| 1086 | 1088 |
if ($self->{media} eq 'email') {
|
| 1087 | 1089 |
|
| 1088 | 1090 |
my $mail = new Mailer; |
Auch abrufbar als: Unified diff
Temporäre Datei zum richtigen Zeitpunkt in WebDAV-Ordner kopieren