diff options
author | Peter Palfrader <peter@palfrader.org> | 2017-02-20 11:46:33 +0100 |
---|---|---|
committer | Peter Palfrader <peter@palfrader.org> | 2017-02-20 11:46:33 +0100 |
commit | b0145d0a8cc4220009b6171b81c2d9331dad4545 (patch) | |
tree | 8af2d86bbcf77dd3e35fffbf84b580a9143a5de9 /expire-baks | |
parent | fa932e04d33d71439423732804dffbb6933ad3fc (diff) |
digest update
Diffstat (limited to 'expire-baks')
-rwxr-xr-x | expire-baks | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/expire-baks b/expire-baks index bc64baa..619ce81 100755 --- a/expire-baks +++ b/expire-baks @@ -2,7 +2,7 @@ # expire-baks -- expire backup files of format yyyymmdd-hhmmss-something.gz # -# Copyright (C) 2003, 2005 Peter Palfrader <peter@palfrader.org> +# Copyright (C) 2003, 2005, 2017 Peter Palfrader <peter@palfrader.org> # # Permission is hereby granted, free of charge, to any person obtaining # a copy of this software and associated documentation files (the @@ -138,7 +138,7 @@ sub getfiles($) { my %files; for my $file (@files) { - if ($file =~ /^MD5-/) { + if ($file =~ /^(MD5|DGST)-/) { my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($dir.'/'.$file) or warn("Cannot stat '$dir/$file': $!\n"), next; |