X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/a7fe5bb7c28df90a5d13640268100ea101142a41..b02724228bb11bb054cd68ac4ce040e5a000dc2e:/admin/update-archive.sh

diff --git a/admin/update-archive.sh b/admin/update-archive.sh
index de4a0a4de..464a0078c 100755
--- a/admin/update-archive.sh
+++ b/admin/update-archive.sh
@@ -21,19 +21,13 @@ done
 send_mail () {
     to="$1"; shift
     title="$*"
-    mx_gnu_org="$(host -t mx gnu.org | sed 's/.*[ 	]//')"
-    (sleep 5; echo "HELO elpa.gnu.org"
-     sleep 1; echo "MAIL FROM: <elpa@elpa.gnu.org>"
-     sleep 1; echo "RCPT TO: <$to>"
-     sleep 1; echo "DATA"
-     sleep 1; cat <<ENDDOC
+    (cat <<ENDDOC
 From: ELPA update <do.not.reply@elpa.gnu.org>
 To: $to
 Subject: $title
 
 ENDDOC
-         cat -; echo
-         echo "."; sleep 1) | telnet "$mx_gnu_org" smtp
+     cat -) | /usr/sbin/sendmail "$to"
 }
 
 # Send an email to warn about a problem.
@@ -102,8 +96,7 @@ latest="emacs-packages-latest.tgz"
 (cd ../
  mkdir -p staging/packages
  # Not sure why we have `staging-old', but let's keep it for now.
- rm -rf staging-old
- cp -a staging staging-old
+ rsync -av --inplace --delete staging/. staging-old/.
  # Move new files into place but don't throw out old package versions.
  for f in build/archive/packages/*; do
      # PKG-VER