Revision 95b5d54b
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| SL/Webdav/File.pm | ||
|---|---|---|
| 58 | 58 |
$params{new_version} = 1;
|
| 59 | 59 |
} |
| 60 | 60 |
|
| 61 |
# Do not create a new version of the document if file size of last version is the same. |
|
| 62 |
if ($params{new_version}) {
|
|
| 63 |
my $last_file_size = $last->size; |
|
| 64 |
my $new_file_size; |
|
| 65 |
if ($params{file}) {
|
|
| 66 |
croak 'No valid file' unless -f $params{file};
|
|
| 67 |
$new_file_size = (stat($params{file}))[7];
|
|
| 68 |
} else {
|
|
| 69 |
$new_file_size = length(${ $params{data} });
|
|
| 70 |
} |
|
| 71 |
$params{new_version} = 0 if $last_file_size == $new_file_size;
|
|
| 72 |
} |
|
| 73 |
|
|
| 61 | 74 |
if ($params{new_version}) {
|
| 62 | 75 |
my $new_version = $self->webdav->version_scheme->next_version($last); |
| 63 | 76 |
my $sep = $self->webdav->version_scheme->separator; |
| ... | ... | |
| 153 | 166 |
If param C<new_version> is set, force a new version, even if the versioning |
| 154 | 167 |
scheme would keep the old one. |
| 155 | 168 |
|
| 169 |
No new version is stored if the file or data size is euqal to the size of |
|
| 170 |
the last stored version. |
|
| 171 |
|
|
| 156 | 172 |
=back |
| 157 | 173 |
|
| 158 | 174 |
=head1 SEE ALSO |
| SL/Webdav/Object.pm | ||
|---|---|---|
| 42 | 42 |
File::Spec->catfile($self->webdav->webdav_path, $self->filename); |
| 43 | 43 |
} |
| 44 | 44 |
|
| 45 |
sub size {
|
|
| 46 |
($_[0]->stat)[7]; |
|
| 47 |
} |
|
| 48 |
|
|
| 45 | 49 |
sub atime {
|
| 46 | 50 |
DateTime->from_epoch(epoch => ($_[0]->stat)[8]); |
| 47 | 51 |
} |
| ... | ... | |
| 132 | 136 |
|
| 133 | 137 |
Returns the extension. |
| 134 | 138 |
|
| 139 |
=item C<size> |
|
| 140 |
|
|
| 141 |
wrapped stat[7] |
|
| 142 |
|
|
| 135 | 143 |
=item C<atime> |
| 136 | 144 |
|
| 137 | 145 |
L<DateTime> wrapped stat[8] |
Auch abrufbar als: Unified diff
SL:Webdav:File.pm->store: ungeänderte Dokumente nicht doppelt speichern.
Einfacher Größenvergleich mit letzter Version.