EPrints Technical Mailing List Archive
See the EPrints wiki for instructions on how to join this mailing list and related information.
Message: #03324
< Previous (by date) | Next (by date) > | < Previous (in thread) | Next (in thread) > | Messages - Most Recent First | Threads - Most Recent First
[EP-tech] Re: Datestamp of documents?
- To: eprints-tech@ecs.soton.ac.uk
- Subject: [EP-tech] Re: Datestamp of documents?
- From: Florian Heß <hess@ub.uni-heidelberg.de>
- Date: Wed, 23 Jul 2014 17:15:45 +0200
Am 22.07.2014 14:21, schrieb Sebastien Francois:
Hiya, Try to get the File objects (if you're on 3.3+) and get the mtime field value (i think that's its lastmod)?
Hi seb,thank you :-), I tried that in EPrints 3.3.10 and %files turns out empty in the following code. Beside of that, did I overlook some $doc->files method counterpart to get the associated file objects instead of just the sizes? Without that, it's hard to retrieve the files:
sub is_archive_needed { my ($eprint, @documents) = @_; return 0 if @documents < 2; return 1 if $eprint->value("datestamp") =~ m{ \A [ 0:-] \z }xms; my $ds = $eprint->{session}->dataset("file"); my %files = map { $_->value("filename") => $_ } $ds->search( filters => [{ meta_fields => [qw(objectid)], value => join(" ", map { $_->value("docid") } @documents), match => "IN", }, { meta_fields => [ 'datasetid' ], value => "document" }], )->slice; my $latestDate_doc_commit = maxstr '0000-00-00 00:00:00', map { $files{ $_->get_main }->value("mtime") } @documents ; return $eprint->value("lastmod") lt $latestDate_doc_commit; }Called is_needed_archive with the eprint and the list of 10 public documents.
Regards Florian
Alternatively, "stat" the file on-disk? Seb. On 22/07/14 13:15, Florian Heß wrote:Hi, the code in cfg.d/eprint_fields_automatic.pl is executed on commit of an eprint. We are obliged to create an archive file of documents of a multi-doc eprint. I assume that the tarball would be rewritten every once in a while (e.g. regeneration of thumbnails), which would take a long time for large files. Hence I want to tar them only when either of the two following conditions are true: * the eprint is put in the live area for the first time * documents have been changed (i.e. fresh upload) My function is_archive_needed(), provided in a custom module I `use` in eprint_fields_automatic.pl reads like: use List::Util qw( sub is_archive_needed { my ($eprint, @documents) = @_; return 0 if @documents < 2; return 1 if $eprint->value("datestamp") =~ m{ \A [ 0:-] \z }xms; my $latestDate_doc_commit = maxstr map { $_->value("lastmod") } @documents; return $eprint->value("lastmod") < $latestDate_doc_commit; } My problem is that there is no lastmod date for document records, there is one for the associated eprint only. So is there any other way to test the second condition or am I to define a custom lastmod field for that dataset? Kind regards Florian*** Options: http://mailman.ecs.soton.ac.uk/mailman/listinfo/eprints-tech *** Archive: http://www.eprints.org/tech.php/ *** EPrints community wiki: http://wiki.eprints.org/ *** EPrints developers Forum: http://forum.eprints.org/
-- UB Heidelberg (Altstadt) Plöck 107-109, 69117 HD Abt. Informationstechnik http://www.ub.uni-heidelberg.de/
- References:
- [EP-tech] Datestamp of documents?
- From: Florian Heß <hess@ub.uni-heidelberg.de>
- [EP-tech] Re: Datestamp of documents?
- From: Sebastien Francois <sf2@ecs.soton.ac.uk>
- [EP-tech] Datestamp of documents?
- Prev by Date: [EP-tech] Re: DataCite registration plug-in setup
- Next by Date: [EP-tech] Re: Upgrading a server
- Previous by thread: [EP-tech] Re: Datestamp of documents?
- Next by thread: [EP-tech] DataCite registration plug-in setup
- Index(es):