Webdav: Framework um Dokumente im Webdav zu behandeln

[mfinanz.git] / SL / Webdav / VersionScheme / Timestamp.pm

diff --git a/SL/Webdav/VersionScheme/Timestamp.pm b/SL/Webdav/VersionScheme/Timestamp.pm
new file mode 100644 (file)
index 0000000..9919b9e
--- /dev/null
+++ b/SL/Webdav/VersionScheme/Timestamp.pm
@@ -0,0 +1,26 @@
+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;