Update gnulib files.
[gnutls:gnutls.git] / build-aux / gnupload
1 #!/bin/sh
2 # Sign files and upload them.
3
4 scriptversion=2009-01-30.00
5
6 # Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation
7 #
8 # This program is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3, or (at your option)
11 # any later version.
12 #
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 # GNU General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
20
21 # Originally written by Alexandre Duret-Lutz <adl@gnu.org>.
22
23 set -e
24
25 GPG='gpg --batch --no-tty'
26 to=
27 delete=false
28
29 usage="Usage: $0 [OPTIONS]... FILES...
30
31 Sign all FILES, and upload them to (or delete them from) selected
32 destinations, according to
33 <http://www.gnu.org/prep/maintain/html_node/Automated-FTP-Uploads.html>.
34
35 Options:
36   --help                   print this help text and exit
37   --to DEST                specify one destination for FILES
38                            (multiple --to options are allowed)
39   --user NAME              sign with key NAME
40   --delete                 delete FILES from destination instead of uploading
41   --version                output version information and exit
42
43 Recognized destinations are:
44   alpha.gnu.org:DIRECTORY
45   savannah.gnu.org:DIRECTORY
46   savannah.nongnu.org:DIRECTORY
47   ftp.gnu.org:DIRECTORY
48                            build directive files and upload files by FTP
49   [user@]host:DIRECTORY    upload files with scp
50
51 Deletion only works for ftp.gnu.org and alpha.gnu.org (using the
52 archive: directive).  Otherwise it is a no-op.  Deleting a file foo also
53 deletes foo.sig; do not specify the .sig explicitly.
54
55 Simple single-target single-file examples:
56   gnupload --to alpha.gnu.org:automake automake-1.8.2b.tar.gz
57   gnupload --to ftp.gnu.org:automake automake-1.8.3.tar.gz
58   gnupload --to alpha.gnu.org:automake --delete automake-oops.tar.gz
59
60 Multiple-target multiple-file example:
61   gnupload --to sources.redhat.com:~ftp/pub/automake \\
62            --to alpha.gnu.org:automake \\
63            automake-1.8.2b.tar.gz automake-1.8.2b.tar.bz2
64
65 You can get the latest version of this script from savannah:
66 <http://git.savannah.gnu.org/cgit/automake.git/plain/lib/gnupload>
67
68 Report bugs to <bug-automake@gnu.org>.
69 Send patches to <automake-patches@gnu.org>."
70
71 while test -n "$1"; do
72   case $1 in
73     --delete)
74       delete=true
75       shift
76       ;;
77     --help)
78       echo "$usage"
79       exit $?
80       ;;
81     --to)
82       if test -z "$2"; then
83         echo "$0: Missing argument for --to" 1>&2
84         exit 1
85       else
86         to="$to $2"
87         shift 2
88       fi
89       ;;
90     --user)
91       if test -z "$2"; then
92         echo "$0: Missing argument for --user" 1>&2
93         exit 1
94       else
95         GPG="$GPG --local-user $2"
96         shift 2
97       fi
98       ;;
99     --version)
100       echo "gnupload $scriptversion"
101       exit $?
102       ;;
103     -*)
104       echo "$0: Unknown option \`$1', try \`$0 --help'" 1>&2
105       exit 1
106       ;;
107     *)
108       break
109       ;;
110   esac
111 done
112
113 if test $# = 0; then
114   echo "$0: No file to upload or delete" 1>&2
115   exit 1
116 else
117   :
118 fi
119
120 if $delete; then :; else
121   # Make sure all files exist.  We don't want to ask
122   # for the passphrase if the script will fail.
123   for file
124   do
125     if test ! -f $file; then
126       echo "$0: Cannot find \`$file'" 1>&2
127       exit 1
128     else
129       :
130     fi
131   done
132 fi
133
134 # Make sure passphrase is not exported in the environment.
135 unset passphrase
136
137 # Reset PATH to be sure that echo is a built-in.  We will later use
138 # `echo $passphrase' to output the passphrase, so it is important that
139 # it is a built-in (third-party programs tend to appear in `ps'
140 # listings with their arguments...).
141 # Remember this script runs with `set -e', so if echo is not built-in
142 # it will exit now.
143 PATH=/empty echo -n "Enter GPG passphrase: "
144 stty -echo
145 read -r passphrase
146 stty echo
147 echo
148
149 # Nothing to sign if deleting.
150 if $delete; then :; else
151   for file
152   do
153     echo "Signing $file..."
154     rm -f $file.sig
155     echo $passphrase | $GPG --passphrase-fd 0 -ba -o $file.sig $file
156   done
157 fi
158
159 for dest in $to
160 do
161   for file
162   do
163     # Prepare arguments.
164     if $delete; then
165       echo "Removing $file from $dest..."
166       files=  # nothing to upload if deleting
167       directive="archive: $file"
168     else
169       echo "Uploading $file to $dest..."
170       files="$file $file.sig"
171       directive="filename: "`basename -- "$file"`
172     fi
173     destdir=`echo $dest | sed 's/[^:]*://'`
174
175     case $dest in
176       alpha.gnu.org:*)
177         rm -f $file.directive $file.directive.asc
178         cat >$file.directive<<EOF
179 version: 1.1
180 directory: $destdir
181 $directive
182 EOF
183         echo "$passphrase" | $GPG --passphrase-fd 0 --clearsign $file.directive
184         ncftpput ftp-upload.gnu.org /incoming/alpha $files $file.directive.asc
185         rm -f $file.directive $file.directive.asc
186         ;;
187       ftp.gnu.org:*)
188         rm -f $file.directive $file.directive.asc
189         cat >$file.directive<<EOF
190 version: 1.1
191 directory: $destdir
192 $directive
193 EOF
194         echo "$passphrase" | $GPG --passphrase-fd 0 --clearsign $file.directive
195         ncftpput ftp-upload.gnu.org /incoming/ftp $files $file.directive.asc
196         rm -f $file.directive $file.directive.asc
197         ;;
198       savannah.gnu.org:*)
199         # We only know how to implement delete for {ftp,alpha}.gnu.org.
200         $delete \
201         || ncftpput savannah.gnu.org /incoming/savannah/$destdir $files
202         ;;
203       savannah.nongnu.org:*)
204         $delete \
205         || ncftpput savannah.nongnu.org /incoming/savannah/$destdir $files
206         ;;
207       *)
208         $delete \
209         || scp $files $dest
210         ;;
211     esac
212   done
213 done
214
215 # Local variables:
216 # eval: (add-hook 'write-file-hooks 'time-stamp)
217 # time-stamp-start: "scriptversion="
218 # time-stamp-format: "%:y-%02m-%02d.%02H"
219 # time-stamp-end: "$"
220 # End: