]> git.openstreetmap.org Git - chef.git/blob - cookbooks/backup/files/default/expire-backups
Merge remote-tracking branch 'github/pull/272'
[chef.git] / cookbooks / backup / files / default / expire-backups
1 #!/usr/bin/perl
2
3 # DO NOT EDIT - This file is being maintained by Chef
4
5 use strict;
6 use warnings;
7
8 use Date::Calc qw(Today Add_Delta_Days Add_Delta_YMD Day_of_Week);
9 use Getopt::Long;
10
11 my $days = 0;
12 my $weeks = 0;
13 my $months = 0;
14
15 GetOptions("days=i" => \$days, "weeks=i" => \$weeks, "months=i" => \$months);
16
17 my $dir = shift;
18 my $prefix = shift;
19 my @dates;
20
21 if ($prefix)
22 {
23     $prefix = "${prefix}-";
24 }
25 else
26 {
27     $prefix = "(?:.*-)?";
28 }
29
30 for my $day (0 .. $days - 1)
31 {
32     push(@dates, sprintf("%04d-%02d-%02d", Subtract_Delta_Days(Today(), $day)));
33 }
34
35 for my $week (0 .. $weeks - 1)
36 {
37     push(@dates, sprintf("%04d-%02d-%02d", Subtract_Delta_Days(Monday(), $week * 7)));
38 }
39
40 for my $month (0 .. $months - 1)
41 {
42     push(@dates, sprintf("%04d-%02d-%02d", Subtract_Delta_YMD(First_of_Month(), 0, $month, 0)));
43 }
44
45 my $dates = join("|", @dates);
46 my $match = qr/^${prefix}\d{4}-\d{2}-\d{2}\./;
47 my $keep = qr/^${prefix}(?:${dates})\./;
48
49 opendir(DIR, "$dir") || die "Can't open ${dir}: $!";
50
51 while (my $file = readdir(DIR))
52 {
53 #    print "Expiring $file\n" if $file =~ $match && $file !~ $keep;
54     unlink("${dir}/${file}") if $file =~ $match && $file !~ $keep;
55 }
56
57 closedir(DIR);
58
59 exit 0;
60
61 sub Monday
62 {
63     my @today = Today();
64
65     return Subtract_Delta_Days(@today, Day_of_Week(@today) - 1);
66 }
67
68 sub First_of_Month
69 {
70     my($year,$month,$day) = Today();
71
72     return($year,$month,1);
73 }
74
75 sub Subtract_Delta_Days
76 {
77     my $year = shift;
78     my $month = shift;
79     my $day = shift;
80     my $days = shift;
81
82     return Add_Delta_Days($year, $month, $day, -$days);
83 }
84
85 sub Subtract_Delta_YMD
86 {
87     my $year = shift;
88     my $month = shift;
89     my $day = shift;
90     my $years = shift;
91     my $months = shift;
92     my $days = shift;
93
94     return Add_Delta_YMD($year, $month, $day, -$years, -$months, -$days);
95 }