SL/Webdav/VersionScheme/Serial.pm

   1 package SL::Webdav::VersionScheme::Serial;
   2
   3 use strict;
   4 use parent qw(Rose::Object);
   5
   6 use DateTime;
   7
   8 sub separator { "-" }
   9
  10 sub extract_regexp { qr/\d+/ }
  11
  12 sub cmp { sub { $_[0]->version <=> $_[1]->version } }
  13
  14 sub first_version { }
  15
  16 sub next_version { $_[1]->version + 1 }
  17
  18 sub keep_last_version {
  19   my ($self, $last) = @_;
  20
  21   if ($::lxoffice_conf->{webdav}{new_version_after_minutes}) {
  22     return DateTime->now <= $last->mtime + DateTime::Duration->new(minutes => $::lx_office_conf{webdav}{new_version_after_minutes});
  23   } else {
  24     return 0;
  25   }
  26 }
  27
  28 1;