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 $1/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;
  66
  67  # Fetch changes.
  68  git pull || signal_error "git pull failed";
  69
  70  # Setup and update externals.
  71  make externals
  72  )
  73
  74 #check_copyright ../elpa
  75
  76 rsync -av --delete --exclude=ChangeLog --exclude=.git ../elpa/packages ./
  77
  78 # Refresh the ChangeLog files.  This needs to be done in
  79 # the source tree, because it needs the VCS data!
  80 emacs -batch -l admin/archive-contents.el \
  81       -eval '(archive-prepare-packages "../elpa")'
  82
  83
  84 rm -rf archive                  # In case there's one left over!
  85 make archive-full >make.log 2>&1 || {
  86     signal_error "make archive-full failed" <make.log
  87     exit 1
  88 }
  89 latest="emacs-packages-latest.tgz"
  90 (cd archive
  91  tar zcf "$latest" packages)
  92 (cd ../
  93  mkdir -p staging/packages
  94  # Not sure why we have `staging-old', but let's keep it for now.
  95  rm -rf staging-old
  96  cp -a staging staging-old
  97  # Move new files into place but don't throw out old package versions.
  98  for f in build/archive/packages/*; do
  99      dst="staging/packages/$(basename "$f")"
 100      # Actually, let's never overwrite an existing version.  So changes can
 101      # be installed without causing a new package to be built until the
 102      # version field is changed.  Some files need to be excluded from the
 103      # "immutable" policy, most importantly "archive-contents"
 104      # and "*-readme.txt".
 105      case $dst in
 106          */archive-contents | *-readme.txt ) mv "$f" "$dst" ;;
 107          * ) if [ -r "$dst" ]
 108              then rm "$f"
 109              else mv "$f" "$dst"
 110              fi ;;
 111      esac
 112  done
 113  mv build/archive/"$latest" staging/
 114  rm -rf build/archive)
 115
 116 # Make the HTML files.
 117 (cd ../staging/packages
 118  emacs --batch -l ../../build/admin/archive-contents.el \
 119        --eval '(batch-html-make-index)')