zfs list -t snapshot fix for newer zfs versions which don't return snapshots by default

[sysadmin-cookbook] / recepies / zfs / zfs-expire-snapshot.pl

diff --git a/recepies/zfs/zfs-expire-snapshot.pl b/recepies/zfs/zfs-expire-snapshot.pl
index 9e5a9e6..82b56fc 100755 (executable)
--- a/recepies/zfs/zfs-expire-snapshot.pl
+++ b/recepies/zfs/zfs-expire-snapshot.pl
@@ -4,12 +4,31 @@ use warnings;
 use strict;
 
 use DateTime;
+use Data::Dump qw/dump/;
+
+my $debug = $ENV{DEBUG} || 0;
+
+my $config = {
+       'default' => {
+               21 => 5,
+               30 => 10,
+               90 => 30,
+       },
+       '212052' => {   # koha-dev
+               7 => 10,
+               14 => 30,
+       },
+       '212056' => {   # webpac2
+               7 => 5,
+               14 => 30,
+       }
+};
 
 my $now = DateTime->now();
 
 my $last_backup;
 
-open(my $fs, '-|', 'zfs list -H');
+open(my $fs, '-|', 'zfs list -t snapshot -H');
 while(<$fs>) {
        chomp;
        my ( $name, $used, $avail, $refer, $mountpoint ) = split(/\t/,$_,6);
@@ -25,20 +44,47 @@ while(<$fs>) {
        my $op = ' ';
        my $last = 0;
 
-       if ( $age > 14 ) {
+       my $c = (grep { $host =~ m{\Q$_\E} } keys %$config)[0];
+       $c = 'default' unless defined $c;
+
+       warn "# config: $c\n" if $debug;
+
+       my $h = $host;
+       $h =~ s{,+/([^/]+)$}{}; # just hostname without path
+
+       $c = $config->{$c} || die "can't find config for $c";
+
+       warn "# c = ",dump($c) if $debug;
+
+       my $keep_every_days;
+       my $older_than_days;
+       foreach ( sort { $b <=> $a } keys %$c ) {
+               $older_than_days = $_;
+               $keep_every_days = $c->{$_};
+               warn "## $host $age > $older_than_days" if $debug;
+               last if $age > $older_than_days;
+       }
+
+       my $config_applied = '';
+
+       if ( $age > $older_than_days ) {
+
+               $config_applied = "> $older_than_days keep $keep_every_days";
 
                $last_backup->{$host} ||= $date;
                $last = $last_backup->{$host}->delta_days( $date )->delta_days;
 
-               if ( $last && $last < 5 ) {
-                       $op = '-';
+               if ( $last && $last < $keep_every_days ) {
+                       $op = 'D';
                } else {
-                       $op = '+';
+                       $op = ' ';
                        $last_backup->{$host} = $date;
                }
+       } else {
+               $config_applied = 'none';
        }
 
-       warn "$op $name\t$used\t$refer\t$age\t$last\n";
+       print "$op $name\t$used\t$refer\t$age\t$last\t$config_applied\n";
 
-       system "zfs destroy $name" if $op eq '-' && @ARGV;
+       system "zfs destroy $name" if $op eq 'D' && @ARGV;
 }