From 64a9c3e4d4d2abe23fd5bc877ad4edcf5593bd8d Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 6 Jun 2009 13:21:07 +0000
Subject: [PATCH] calculate age of snapshot in days

git-svn-id: svn://svn.rot13.org/sysadmin-cookbook@107 191e9f34-6774-4a6d-acfc-7664dacd4a2a
---
 recepies/zfs/zfs-expire-snapshot.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 recepies/zfs/zfs-expire-snapshot.pl

diff --git a/recepies/zfs/zfs-expire-snapshot.pl b/recepies/zfs/zfs-expire-snapshot.pl
new file mode 100755
index 0000000..012fd19
--- /dev/null
+++ b/recepies/zfs/zfs-expire-snapshot.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use DateTime;
+
+my $now = DateTime->now();
+
+open(my $fs, '-|', 'zfs list -H');
+while(<$fs>) {
+	chomp;
+	my ( $name, $used, $avail, $refer, $mountpoint ) = split(/\t/,$_,6);
+
+	next unless $name =~ m{@(\d\d\d\d)-(\d\d)-(\d\d)};
+
+	my $date = DateTime->new( year => $1, month => $2, day => $3 );
+	my $age = $now->delta_days( $date );
+
+	warn "$name $used $refer [", $age->delta_days, " days]\n";
+}
-- 
2.20.1