code.delx.au - gnu-emacs-elpa/blob - admin/update-archive.sh

   1 #!/bin/sh -x
   2
   3 batchmode=no
   4
   5 export LANG=C
   6 case "$1" in
   7     "--batch") batchmode=yes ;;
   8 esac
   9
  10 # Return on STDOUT the files that don't seem to have the needed copyright
  11 # notice, or that have a copyright notice that looks suspicious.
  12 copyright_notices () {
  13     find . -name '*.el' -print0 |
  14         xargs -0 grep -L 'Free Software Foundation, Inc' |
  15         grep -v '\(\.dir-locals\|.-\(pkg\|autoloads\)\)\.el$'
  16
  17     find . -name '*.el' -print |
  18         while read f; do
  19             sed -n -e '/[Cc]opyright.*, *[1-9][-0-9]*,\?$/N' \
  20                 -e '/Free Software Foundation/d' \
  21                 -e "s|^\\(.*[Cc]opyright\\)|$(echo $f | tr '|' '_'):\\1|p" "$f"
  22         done
  23 }
  24
  25 # Send an email to warn about a problem.
  26 # Takes the body on STDIN and the subject as argument.
  27 signal_error () {
  28     title="$*"
  29     if [ "no" = "$batchmode" ]; then
  30         cat -
  31         echo "Error: $title"
  32     else
  33         mx_gnu_org="$(host -t mx gnu.org | sed 's/.*[   ]//')"
  34         (sleep 5; echo "HELO elpa.gnu.org"
  35          sleep 1; echo "MAIL FROM: <elpa@elpa.gnu.org>"
  36          sleep 1; echo "RCPT TO: <emacs-elpa-diffs@gnu.org>"
  37          sleep 1; echo "DATA"
  38          sleep 1; cat <<ENDDOC
  39 From: ELPA update <elpa@elpa.gnu.org>
  40 To: emacs-elpa-diffs@gnu.org
  41 Subject: $title
  42
  43 ENDDOC
  44          cat -
  45          echo "."; sleep 1) | telnet "$mx_gnu_org" smtp
  46     fi
  47 }
  48
  49 check_copyright () {
  50     base="copyright_exceptions"
  51     (cd packages; copyright_notices) >"$base.new"
  52     if [ -r "$base.old" ] &&
  53        ! diff "$base.old" "$base.new" >/dev/null;
  54     then
  55         diff -u "$base.old" "$base.new" |
  56             signal_error "Copyright notices changed"
  57         exit 1
  58     else
  59         mv "$base.new" "$base.old"
  60     fi
  61 }
  62
  63 cd ~elpa/build
  64
  65 (cd ~elpa/elpa; bzr up)
  66
  67 check_copyright
  68
  69 rm -rf archive                  # In case there's one left over!
  70 make archive-full >make.log 2>&1 || {
  71     signal_error "make archive-full failed" <make.log
  72     exit 1
  73 }
  74 latest="emacs-packages-latest.tgz"
  75 (cd archive
  76  tar zcf "$latest" packages)
  77 (cd ~elpa
  78  # Not sure why we have `staging-old', but let's keep it for now.
  79  rm -rf staging-old
  80  cp -a staging staging-old
  81  # Move new files into place but don't throw out old package versions.
  82  for f in build/archive/packages/*; do
  83      dst="staging/packages/$(basename "$f")"
  84      # Actually, let's never overwrite an existing version.  So changes can
  85      # be installed without causing a new package to be built until the
  86      # version field is changed.  Some files need to be excluded from the
  87      # "immutable" policy, most importantly "archive-contents"
  88      # and "*-readme.txt".
  89      case $dst in
  90          */archive-contents | *-readme.txt ) mv "$f" "$dst" ;;
  91          * ) if [ -r "$dst" ]
  92              then rm "$f"
  93              else mv "$f" "$dst"
  94              fi ;;
  95      esac
  96  done
  97  mv build/archive/"$latest" staging/
  98  rm -rf build/archive)
  99
 100 # Make the HTML files.
 101 (cd ~elpa/staging/packages
 102  emacs --batch -l ~elpa/build/admin/archive-contents.el \
 103        --eval '(batch-html-make-index)')
 104
 105 # "make archive-full" already does fetch the daily org build.
 106 #admin/org-synch.sh ~elpa/staging/packages ~elpa/build/admin