Revision a32a0746
Von Jan Büren vor mehr als 9 Jahren hinzugefügt
| SL/Webdav/File.pm | ||
|---|---|---|
|
use parent qw(Rose::Object);
|
||
|
|
||
|
use File::Spec;
|
||
|
use File::Copy ();
|
||
|
use Carp;
|
||
|
|
||
|
use Rose::Object::MakeMethods::Generic (
|
||
|
scalar => [ qw(webdav filename loaded) ],
|
||
| ... | ... | |
|
sub store {
|
||
|
my ($self, %params) = @_;
|
||
|
|
||
|
croak 'Invalid call. Only data or file can be set' if ($params{data} && $params{file});
|
||
|
|
||
|
$self->load unless $self->loaded;
|
||
|
|
||
|
my $last = $self->latest_version;
|
||
|
my $object;
|
||
|
|
||
|
if (!$last) {
|
||
|
my ($basename, undef, $extension) = SL::Webdav::Object->new(filename => $self->filename, webdav => $self->webdav)->parse_filename;
|
||
|
my $new_version = $self->webdav->version_scheme->first_version;
|
||
|
$object = SL::Webdav::Object->new(filename => $self->filename, webdav => $self->webdav);
|
||
|
my $sep = $self->webdav->version_scheme->separator;
|
||
|
my $new_filename = $basename . $sep . $new_version . "." . $extension;
|
||
|
$object = SL::Webdav::Object->new(filename => $new_filename, webdav => $self->webdav);
|
||
|
|
||
|
$self->add_objects($object);
|
||
|
} else {
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
open my $fh, '>:raw', $object->full_filedescriptor or die "could not open " . $object->filename . ": $!";
|
||
|
if ($params{file}) {
|
||
|
croak 'No valid file' unless -f $params{file};
|
||
|
File::Copy::copy($params{file}, $object->full_filedescriptor) or croak "Copy failed from $params{file} to @{[ $object->filename ]}: $!";
|
||
|
} else {
|
||
|
|
||
|
open my $fh, '>:raw', $object->full_filedescriptor or die "could not open " . $object->filename . ": $!";
|
||
|
|
||
|
$fh->print(${ $params{data} });
|
||
|
|
||
|
$fh->print(${ $params{data} });
|
||
|
close $fh;
|
||
|
}
|
||
|
|
||
|
close $fh;
|
||
|
|
||
|
return $object;
|
||
|
}
|
||
| ... | ... | |
|
my $data = SL::Helper::CreatePDF->create_pdf(...);
|
||
|
my $webdav_object = $webdav_file->store(data => \$data);
|
||
|
|
||
|
# use file instead of data
|
||
|
my $webdav_object = $webdav_file->store(file => $path_to_file);
|
||
|
|
||
|
# force new version
|
||
|
my $webdav_object = $webdav_file->store(data => \$data, new_version => 1);
|
||
|
|
||
| ... | ... | |
|
|
||
|
=item C<store PARAMS>
|
||
|
|
||
|
Store a new version on disk. C<data> is expected to contain a reference to the
|
||
|
data to be written in raw encoding.
|
||
|
Store a new version on disk. If C<data> is present, it is expected to contain a
|
||
|
reference to the data to be written in raw encoding.
|
||
|
|
||
|
If C<file> is a valid filename then it will be copied.
|
||
|
|
||
|
C<file> and C<data> are exclusive.
|
||
|
|
||
|
If param C<new_version> is set, force a new version, even if the versioning
|
||
|
scheme would keep the old one.
|
||
Auch abrufbar als: Unified diff
Webdav::File.pm->store um Parameter file erweitert
Falls man ein pdf nicht im Program als Objekt hat, sondern
eine wirkliche Datei im Dateisystem vorliegen hat,
muss diese nicht erst als Objekt geladen werden, sondern kann simpel mit:
$webdav_file->store(file => $path_to_file);
beim Anlegen eines neuen Webdav-Files (übergeben) kopiert werden.