commit e5401e4a9be7f1d13f781d2e84ac2fe969beda0a
Author: Jonas Meier <meier@init7.net>
Date:   Tue May 12 11:32:10 2020 +0200

    add first version from ms

diff --git a/rsync-timefilter.pl b/rsync-timefilter.pl
new file mode 100755
index 0000000..09f232d
--- /dev/null
+++ b/rsync-timefilter.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use 5.010001;
+use strict;
+use warnings;
+
+use File::Rsync;
+use DateTime;
+use DateTime::Duration;
+use DateTime::Format::Strptime;
+
+my $now = DateTime->now();
+my $cutoff_timestamp = $now - DateTime::Duration->new(days => 7);
+my $parser = DateTime::Format::Strptime->new(
+	pattern   => '%Y/%m/%d %H:%M:%S',
+	time_zone => 'UTC',
+	on_error  => 'croak',
+);
+
+my $rsync = File::Rsync->new(archive => 1);
+my @files = grep {
+	$_->{timestamp} > $cutoff_timestamp
+} map {
+	my @parts = split(/\s+/, $_);
+	{
+		name      => $parts[4],
+		timestamp => $parser->parse_datetime($parts[2] . ' ' . $parts[3]),
+	}
+} $rsync->list(src => 'planet.openstreetmap.org::planet/planet/');
+
+use DDP; p @files;