Auftrags-Controller: Email/DMS falls kein Dokument vorhanden, eines erstellen, …
[kivitendo-erp.git] / SL / File / Object.pm
1 package SL::File::Object;
2
3 use strict;
4 use parent qw(Rose::Object);
5 use DateTime;
6
7 use Rose::Object::MakeMethods::Generic (
8   scalar => [ qw() ],
9   'scalar --get_set_init' => [ qw(db_file loaded id version newest) ],
10 );
11
12 #use SL::DB::Helper::Attr;
13 #__PACKAGE__->_as_timestamp('mtime');
14 # wie wird das mit dem Attr Helper gemacht damit er bei nicht DB Objekten auch geht?
15
16 sub mtime_as_timestamp_s {
17   $::locale->format_date_object($_[0]->mtime, precision => 'second');
18 }
19
20 # wrapper methods
21
22 sub itime {
23   $_[0]->loaded_db_file->itime;
24 }
25
26 sub file_name {
27   $_[0]->loaded_db_file->file_name;
28 }
29
30 sub file_type {
31   $_[0]->loaded_db_file->file_type;
32 }
33
34 sub object_type {
35   $_[0]->loaded_db_file->object_type;
36 }
37
38 sub object_id {
39   $_[0]->loaded_db_file->object_id;
40 }
41
42 sub mime_type {
43   $_[0]->loaded_db_file->mime_type;
44 }
45
46 sub file_title {
47   $_[0]->loaded_db_file->title;
48 }
49
50 sub file_description {
51   $_[0]->loaded_db_file->description;
52 }
53
54 sub backend {
55   $_[0]->loaded_db_file->backend;
56 }
57
58 sub source {
59   $_[0]->loaded_db_file->source;
60 }
61
62 # methods to go directly into the backends
63
64 sub get_file {
65   $_[0]->backend_class->get_filepath(dbfile => $_[0]->loaded_db_file, version => $_[0]->version)
66 }
67
68 sub get_content {
69   $_[0]->backend_class->get_content(dbfile => $_[0]->loaded_db_file,  version => $_[0]->version)
70 }
71
72 sub mtime {
73   $_[0]->backend_class->get_mtime(dbfile => $_[0]->loaded_db_file, version => $_[0]->version)
74 }
75
76 sub version_count {
77   $_[0]->backend_class->get_version_count(dbfile => $_[0]->loaded_db_file)
78 }
79
80 sub versions {
81   SL::File->get_all_versions(dbfile => $_[0]->loaded_db_file)
82 }
83
84 sub save_contents {
85   SL::File->save(dbfile => $_[0]->loaded_db_file, file_contents => $_[1] )
86 }
87
88 sub save_file {
89   SL::File->save(dbfile => $_[0]->loaded_db_file, file_path => $_[1] )
90 }
91
92 sub delete {
93   SL::File->delete(dbfile => $_[0]->loaded_db_file)
94 }
95
96 sub delete_last_version {
97   SL::File->delete(dbfile => $_[0]->loaded_db_file, last => 1 )
98 }
99
100 sub delete_version {
101   SL::File->delete(dbfile => $_[0]->loaded_db_file, version => $_[0]->version )
102 }
103
104 sub purge {
105   SL::File->delete(dbfile => $_[0]->loaded_db_file, all_but_notlast => 1 )
106 }
107
108 sub rename {
109   SL::File->rename(dbfile => $_[0]->loaded_db_file, to => $_[1])
110 }
111
112 # internals
113
114 sub backend_class {
115   SL::File->get_backend_class($_[0]->backend)
116 }
117
118
119 sub loaded_db_file {  # so, dass wir die nur einmal laden.
120   if (!$_[0]->loaded) {
121     $_[0]->db_file->load;
122     $_[0]->loaded(1);
123   }
124   $_[0]->db_file;
125 }
126
127 sub clone {
128   bless +{ %{ $_[0] } }, __PACKAGE__;
129 }
130
131
132 sub init_db_file { die 'must always have a db file'; }
133 sub init_loaded  { 0 }
134 sub init_id      { 0 }
135 sub init_version { 0 }
136 sub init_newest  { 1 }
137
138 1;
139
140 __END__
141
142 =encoding utf-8
143
144 =head1 NAME
145
146 SL::File::Object - a filemangement object wrapper
147
148 =head1 SYNOPSIS
149
150   use SL::File;
151
152   my ($object) = SL::File->get_all(object_id   => $object_id,
153                                    object_type => $object_type,
154                                    file_type   => 'image',   # may be optional
155                                    source      => 'uploaded' # may be optional
156                                   );
157 # read attributes
158
159   my $object_id   = $object->object_id,
160   my $object_type = $object->object_type,
161   my $file_type   = $object->file_type;
162   my $file_name   = $object->file_name;
163   my $mime_type   = $object->mime_type;
164
165   my $mtime       = $object->mtime;
166   my $itime       = $object->itime;
167   my $id          = $object->id;
168   my $newest      = $object->newest;
169
170   my $versions    = $object->version_count;
171
172   my @versionobjs = $object->versions;
173   foreach ( @versionobjs ) {
174     my $mtime    = $_->mtime;
175     my $contents = $_->get_content;
176   }
177
178 # update
179
180   $object->rename("image1.png");
181   $object->save_contents("new text");
182   $object->save_file("/tmp/empty.png");
183   $object->purge;
184   $object->delete_last_version;
185   $object->delete;
186
187 =head1 DESCRIPTION
188
189 This is a wrapper around a single object in the filemangement.
190
191 =head1 METHODS
192
193 Following methods are wrapper to read the attributes of L<SL::DB::File> :
194
195 =over 4
196
197 =item C<object_id>
198
199 =item C<object_type>
200
201 =item C<file_type>
202
203 =item C<file_name>
204
205 =item C<mime_name>
206
207 =item C<file_title>
208
209 =item C<file_description>
210
211 =item C<backend>
212
213 =item C<source>
214
215 =item C<itime>
216
217 =item C<id>
218
219 =back
220
221 Additional are there special methods. If the Object is created by SL::File::get_all_versions()
222 or by "$object->versions"
223 it has a version number. So the different mtime, filepath or content can be retrieved:
224
225 =over 4
226
227 =item C<mtime>
228
229 get the modification time of a (versioned) object
230
231 =item C<get_file>
232
233 get the full qualified file path of the (versioned) object
234
235 =item C<get_content>
236
237 get the content of the (versioned) object
238
239 =item C<version_count>
240
241 Get the available versions of the file
242
243 =item C<versions>
244
245 Returns an array of SL::File::Object objects with the available versions of the file, starting with the newest version.
246
247 =item C<newest>
248
249 If set this is the newest version of the file.
250
251 =item C<save_contents $contents>
252
253 Store a new contents to the file (as a new version).
254
255 =item C<save_file $filepath>
256
257 Store the content of an (absolute)file path to the file
258
259 =item C<delete>
260
261 Delete the file with all of his versions
262
263 =item C<delete_last_version>
264
265 Delete only the last version of the file with implicit decrement of the version_count.
266
267 =item C<purge>
268
269 Delete all old versions of the file. Only one version exist after purge. The version count is reset to 1.
270
271 =item C<rename $newfilename>
272
273 Renames the filename
274
275 =back
276
277 =head1 SEE ALSO
278
279 L<SL::File>
280
281 =head1 AUTHOR
282
283 Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>
284
285 =cut