From b0145d0a8cc4220009b6171b81c2d9331dad4545 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Mon, 20 Feb 2017 11:46:33 +0100 Subject: digest update --- backup-pg | 2 +- expire-baks | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/backup-pg b/backup-pg index ef4d257..18c762c 100755 --- a/backup-pg +++ b/backup-pg @@ -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 +# Copyright (C) 2003, 2005, 2017 Peter Palfrader # # 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; -- cgit v1.2.3