discourse: remove discourse-canned-replies, switch back to upstream for discourse...

[chef.git] / cookbooks / backup / files / default / expire-backups

diff --git a/cookbooks/backup/files/default/expire-backups b/cookbooks/backup/files/default/expire-backups
index 4e26e37118ec397cbdf4122180a625956c03bf7e..9d82c384a620c656115fd75d2c749a62e265c1e7 100644 (file)
--- a/cookbooks/backup/files/default/expire-backups
+++ b/cookbooks/backup/files/default/expire-backups
@@ -18,6 +18,15 @@ my $dir = shift;
 my $prefix = shift;
 my @dates;
 
 my $prefix = shift;
 my @dates;
 

+if ($prefix)
+{
+    $prefix = "${prefix}-";
+}
+else
+{
+    $prefix = "(?:.*-)?";
+}
+

 for my $day (0 .. $days - 1)
 {
     push(@dates, sprintf("%04d-%02d-%02d", Subtract_Delta_Days(Today(), $day)));
 for my $day (0 .. $days - 1)
 {
     push(@dates, sprintf("%04d-%02d-%02d", Subtract_Delta_Days(Today(), $day)));


@@ -34,19 +43,23 @@ for my $month (0 .. $months - 1)
 }
 
 my $dates = join("|", @dates);
 }
 
 my $dates = join("|", @dates);

-my $match = qr/^${prefix}-\d{4}-\d{2}-\d{2}\./;
-my $keep = qr/^${prefix}-(?:${dates})\./;
+my $match = qr/^\Q${prefix}\E\d{4}-\d{2}-\d{2}\./;
+my $keep = qr/^\Q${prefix}\E(?:${dates})\./;

 
 opendir(DIR, "$dir") || die "Can't open ${dir}: $!";
 
 
 opendir(DIR, "$dir") || die "Can't open ${dir}: $!";
 

-while (my $file = readdir(DIR))
-{
-#    print "Expiring $file\n" if $file =~ $match && $file !~ $keep;
-    unlink("${dir}/${file}") if $file =~ $match && $file !~ $keep;
-}
+my @files = sort(grep(/$match/, readdir(DIR)));

 
 closedir(DIR);
 
 
 closedir(DIR);
 

+pop @files;
+
+for my $file (@files)
+{
+#    print "Expiring $file\n" if $file !~ $keep;
+    unlink("${dir}/${file}") if $file !~ $keep;
+}
+

 exit 0;
 
 sub Monday
 exit 0;
 
 sub Monday