expire snapshots older than 3 days

git-svn-id: svn://svn.rot13.org/sysadmin-cookbook@199 191e9f34-6774-4a6d-acfc-7664dacd4a2a

diff --git a/recepies/btrfs/btrfs-snap-expire.pl b/recepies/btrfs/btrfs-snap-expire.pl
new file mode 100755 (executable)
index 0000000..ad0f154
--- /dev/null
+++ b/recepies/btrfs/btrfs-snap-expire.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use DateTime;
+
+my $to = DateTime->now->subtract( days => 3 )->truncate( to => 'day' );
+
+foreach my $snap ( glob '/mnt/*/.snap/*' ) {
+       if ( $snap =~ m{^(.+)/((\d\d\d\d)-(\d\d)-(\d\d)T(\d\d))$} ) {
+               my $path = $1;
+               my $name = $2;
+               next if $6 == 0; # keep daily snapshot
+               my $dt = DateTime->new( year => $3, month => $4, day => $5, hour => $6 );
+               next if $dt > $to;
+               warn "remove $snap\n";
+               system "btrfsctl -D $name $path";
+       } else {
+               warn "SKIP $snap\n";
+       }
+}