kivitendo/SL/Webdav/VersionScheme/Timestamp.pm @ c2f401aa
| dc6d8231 | Sven Schöling | package SL::Webdav::VersionScheme::Timestamp;
|
|
use strict;
|
|||
use parent qw(Rose::Object);
|
|||
use POSIX;
|
|||
sub separator { "_" }
|
|||
sub extract_regexp { qr/\d{8}_\d{6}/ }
|
|||
sub cmp { sub { $_[0]->version cmp $_[1]->version } }
|
|||
sub first_version { goto &get_current_formatted_time }
|
|||
sub next_version { goto &get_current_formatted_time }
|
|||
sub keep_last_version {
|
|||
0;
|
|||
}
|
|||
sub get_current_formatted_time {
|
|||
return POSIX::strftime('%Y%m%d_%H%M%S', localtime());
|
|||
}
|
|||
1;
|