X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/adab52e23bb75ee30b25f6a9ebadf19e9cc2c599..52f40a8375337c9122317190a2ef6bf8ba535487:/admin/update-archive.sh

diff --git a/admin/update-archive.sh b/admin/update-archive.sh
index e4f33c8b0..e5de7872c 100755
--- a/admin/update-archive.sh
+++ b/admin/update-archive.sh
@@ -71,15 +71,26 @@ make archive-full >make.log 2>&1 || {
     signal_error "make archive-full failed" <make.log
     exit 1
 }
+latest="emacs-packages-latest.tgz"
 (cd archive
- tar zcf emacs-packages-latest.tgz packages)
+ tar zcf "$latest" packages)
 (cd ~elpa
  # Not sure why we have `staging-old', but let's keep it for now.
  rm -rf staging-old
  cp -a staging staging-old
  # Move new files into place but don't throw out old package versions.
- mv build/archive/packages/* staging/packages/
- mv build/archive/* staging/ 2>/dev/null
+ for f in build/archive/packages/*; do
+     dst="staging/packages/$(basename "$f")"
+     # FIXME: it'd be better to only rebuild the packages that have been
+     # modified, rather than rely on md5 to try and abort the refresh
+     # when we don't want it!
+     if [ -r "$dst" ] && [ "$(md5sum <"$f")" = "$(md5sum <"$dst")" ]; then
+         rm "$f"
+     else
+         mv "$f" "$dst"
+     fi
+ done
+ mv build/archive/"$latest" staging/
  rm -rf build/archive)
 
 # Make the HTML files.