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 }