[EP-tech] Re: Datestamp of documents?

[Florian Heß]

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/