recepies/zfs/zfs-expire-snapshot.pl

#!/usr/bin/perl

use warnings;
use strict;

use DateTime;
use Data::Dump qw/dump/;

my $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');
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 $host = $1;

        my $date = DateTime->new( year => $2, month => $3, day => $4 );

        my $age = $now->delta_days( $date )->delta_days;

        my $op = ' ';
        my $last = 0;

        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 < $keep_every_days ) {
                        $op = 'D';
                } else {
                        $op = ' ';
                        $last_backup->{$host} = $date;
                }
        } else {
                $config_applied = 'none';
        }

        print "$op $name\t$used\t$refer\t$age\t$last\t$config_applied\n";

        system "zfs destroy $name" if $op eq 'D' && @ARGV;
}
1	dpavlin	107	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use DateTime;
7	dpavlin	117	use Data::Dump qw/dump/;
8	dpavlin	107
9	dpavlin	117	my $debug = 0;
10
11			my $config = {
12			'default' => {
13	dpavlin	118	21 => 5,
14	dpavlin	117	30 => 10,
15	dpavlin	219	90 => 30,
16	dpavlin	117	},
17			'212052' => { # koha-dev
18			7 => 10,
19	dpavlin	118	14 => 30,
20	dpavlin	117	},
21			'212056' => { # webpac2
22			7 => 5,
23	dpavlin	219	14 => 30,
24	dpavlin	117	}
25			};
26
27	dpavlin	107	my $now = DateTime->now();
28
29	dpavlin	108	my $last_backup;
30
31	dpavlin	107	open(my $fs, '-\|', 'zfs list -H');
32			while(<$fs>) {
33			chomp;
34			my ( $name, $used, $avail, $refer, $mountpoint ) = split(/\t/,$_,6);
35
36	dpavlin	108	next unless $name =~ m{(.+)@(\d\d\d\d)-(\d\d)-(\d\d)};
37	dpavlin	107
38	dpavlin	108	my $host = $1;
39	dpavlin	107
40	dpavlin	108	my $date = DateTime->new( year => $2, month => $3, day => $4 );
41
42			my $age = $now->delta_days( $date )->delta_days;
43
44			my $op = ' ';
45			my $last = 0;
46
47	dpavlin	117	my $c = (grep { $host =~ m{\Q$_\E} } keys %$config)[0];
48			$c = 'default' unless defined $c;
49	dpavlin	108
50	dpavlin	117	warn "# config: $c\n" if $debug;
51
52			my $h = $host;
53			$h =~ s{,+/([^/]+)$}{}; # just hostname without path
54
55			$c = $config->{$c} \|\| die "can't find config for $c";
56
57			warn "# c = ",dump($c) if $debug;
58
59			my $keep_every_days;
60			my $older_than_days;
61	dpavlin	219	foreach ( sort { $b <=> $a } keys %$c ) {
62	dpavlin	117	$older_than_days = $_;
63			$keep_every_days = $c->{$_};
64			warn "## $host $age > $older_than_days" if $debug;
65			last if $age > $older_than_days;
66			}
67
68			my $config_applied = '';
69
70			if ( $age > $older_than_days ) {
71
72			$config_applied = "> $older_than_days keep $keep_every_days";
73
74	dpavlin	108	$last_backup->{$host} \|\|= $date;
75			$last = $last_backup->{$host}->delta_days( $date )->delta_days;
76
77	dpavlin	117	if ( $last && $last < $keep_every_days ) {
78			$op = 'D';
79	dpavlin	108	} else {
80	dpavlin	117	$op = ' ';
81	dpavlin	108	$last_backup->{$host} = $date;
82			}
83	dpavlin	117	} else {
84			$config_applied = 'none';
85	dpavlin	108	}
86
87	dpavlin	117	print "$op $name\t$used\t$refer\t$age\t$last\t$config_applied\n";
88	dpavlin	108
89	dpavlin	117	system "zfs destroy $name" if $op eq 'D' && @ARGV;
90	dpavlin	107	}