diff options
-rwxr-xr-x | backup-pg | 2 | ||||
-rwxr-xr-x | expire-baks | 4 |
2 files changed, 3 insertions, 3 deletions
@@ -74,7 +74,7 @@ while read db; do $SUDO pg_dump $PORT --create --format=p "$db" > "$file" nice pigz --no-name --no-time -- "$file" - digest=`md5sum -- "$file.gz" | awk '{print $1}'` + digest=`sha256sum -- "$file.gz" | awk '{print $1}'` if [ -e "$BASE/DGST-$digest" ]; then rm -- "$file.gz" ln "$BASE/DGST-$digest" "$file.gz" 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; |