7 "--batch") batchmode
=yes ;;
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 '.-\(pkg\|autoloads\)\.el$'
17 find .
-name '*.el' -print |
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"
25 # Send an email to warn about a problem.
26 # Takes the body on STDIN and the subject as argument.
29 if [ "no" = "$batchmode" ]; then
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>"
39 From: ELPA update <elpa@elpa.gnu.org>
40 To: emacs-elpa-diffs@gnu.org
45 echo "."; sleep 1) |
telnet "$mx_gnu_org" smtp
50 base
="copyright_exceptions"
51 (cd packages
; copyright_notices
) >"$base.new"
52 if [ -r "$base.old" ] &&
53 ! diff "$base.old" "$base.new" >/dev
/null
;
55 diff -u "$base.old" "$base.new" |
56 signal_error
"Copyright notices changed"
59 mv "$base.new" "$base.old"
65 (cd ~elpa
/elpa
; bzr up
)
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
75 tar zcf emacs-packages-latest.tgz packages
)
77 # Not sure why we have `staging-old', but let's keep it for now.
79 cp -a staging staging-old
80 # Move new files into place but don't throw out old package versions.
81 mv build
/archive
/packages
/* staging
/packages
/
82 mv build
/archive
/* staging
/ 2>/dev
/null
85 # Make the HTML files.
86 (cd ~elpa
/staging
/packages
87 emacs
--batch -l ~elpa
/build
/admin
/archive-contents.el \
88 --eval '(batch-html-make-index)')
90 # "make archive-full" already does fetch the daily org build.
91 #admin/org-synch.sh ~elpa/staging/packages ~elpa/build/admin