← Back to branch summary

~youscribe/parted/3.1

« back to all changes in this revision

Viewing changes to build-aux/gnupload

  • Committer: Guilhem Lettron
  • Date: 2012-10-22 14:37:59 UTC
  • Revision ID: guilhem+ubuntu@lettron.fr-20121022143759-m403kecgz13sknvp
3.1 from tarball

Show diffs side-by-side

added added

removed removed

Lines of Context:
build-aux/gnupload
 
1
#!/bin/sh
 
2
# Sign files and upload them.
 
3
 
 
4
scriptversion=2012-01-15.15; # UTC
 
5
 
 
6
# Copyright (C) 2004-2010, 2012 Free Software Foundation, Inc.
 
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
# The master copy of this file is maintained in the gnulib Git repository.
 
23
# Please send bug reports and feature requests to bug-gnulib@gnu.org.
 
24
 
 
25
set -e
 
26
 
 
27
GPG='gpg --batch --no-tty'
 
28
conffile=.gnuploadrc
 
29
to=
 
30
dry_run=false
 
31
symlink_files=
 
32
delete_files=
 
33
delete_symlinks=
 
34
collect_var=
 
35
dbg=
 
36
nl='
 
37
'
 
38
 
 
39
usage="Usage: $0 [OPTION]... [CMD] FILE... [[CMD] FILE...]
 
40
 
 
41
Sign all FILES, and process them at selected destinations according to CMD.
 
42
<http://www.gnu.org/prep/maintain/html_node/Automated-FTP-Uploads.html>
 
43
explains further.
 
44
 
 
45
Commands:
 
46
  --delete                 delete FILES from destination
 
47
  --symlink                create symbolic links
 
48
  --rmsymlink              remove symbolic links
 
49
  --                       treat the remaining arguments as files to upload
 
50
 
 
51
Options:
 
52
  --help                   print this help text and exit
 
53
  --to DEST                specify one destination for FILES
 
54
                           (multiple --to options are allowed)
 
55
  --user NAME              sign with key NAME
 
56
  --symlink-regex[=EXPR]   use sed script EXPR to compute symbolic link names
 
57
  --dry-run                do nothing, show what would have been done
 
58
  --version                output version information and exit
 
59
 
 
60
If --symlink-regex is given without EXPR, then the link target name
 
61
is created by replacing the version information with '-latest', e.g.:
 
62
 
 
63
  foo-1.3.4.tar.gz -> foo-latest.tar.gz
 
64
 
 
65
Recognized destinations are:
 
66
  alpha.gnu.org:DIRECTORY
 
67
  savannah.gnu.org:DIRECTORY
 
68
  savannah.nongnu.org:DIRECTORY
 
69
  ftp.gnu.org:DIRECTORY
 
70
                           build directive files and upload files by FTP
 
71
  download.gnu.org.ua:{alpha|ftp}/DIRECTORY
 
72
                           build directive files and upload files by SFTP
 
73
  [user@]host:DIRECTORY    upload files with scp
 
74
 
 
75
Options and commands are applied in order.  If the file $conffile exists
 
76
in the current working directory, its contents are prepended to the
 
77
actual command line options.  Use this to keep your defaults.  Comments
 
78
(#) and empty lines in $conffile are allowed.
 
79
 
 
80
Examples:
 
81
1. Upload foobar-1.0.tar.gz to ftp.gnu.org:
 
82
  gnupload --to ftp.gnu.org:foobar foobar-1.0.tar.gz
 
83
 
 
84
2. Upload foobar-1.0.tar.gz and foobar-1.0.tar.xz to ftp.gnu.org:
 
85
  gnupload --to ftp.gnu.org:foobar foobar-1.0.tar.gz foobar-1.0.tar.xz
 
86
 
 
87
3. Same as above, and also create symbolic links to foobar-latest.tar.*:
 
88
  gnupload --to ftp.gnu.org:foobar \\
 
89
           --symlink-regex \\
 
90
           foobar-1.0.tar.gz foobar-1.0.tar.xz
 
91
 
 
92
4. Upload foobar-0.9.90.tar.gz to two sites:
 
93
  gnupload --to alpha.gnu.org:foobar \\
 
94
           --to sources.redhat.com:~ftp/pub/foobar \\
 
95
           foobar-0.9.90.tar.gz
 
96
 
 
97
5. Delete oopsbar-0.9.91.tar.gz and upload foobar-0.9.91.tar.gz
 
98
   (the -- terminates the list of files to delete):
 
99
  gnupload --to alpha.gnu.org:foobar \\
 
100
           --to sources.redhat.com:~ftp/pub/foobar \\
 
101
           --delete oopsbar-0.9.91.tar.gz \\
 
102
           -- foobar-0.9.91.tar.gz
 
103
 
 
104
gnupload uses the ncftpput program to do the transfers; if you don't
 
105
happen to have an ncftp package installed, the ncftpput-ftp script in
 
106
the build-aux/ directory of the gnulib package
 
107
(http://savannah.gnu.org/projects/gnulib) may serve as a replacement.
 
108
 
 
109
Send patches and bug reports to <bug-gnulib@gnu.org>."
 
110
 
 
111
# Read local configuration file
 
112
if test -r "$conffile"; then
 
113
  echo "$0: Reading configuration file $conffile"
 
114
  conf=`sed 's/#.*$//;/^$/d' "$conffile" | tr "\015$nl" '  '`
 
115
  eval set x "$conf \"\$@\""
 
116
  shift
 
117
fi
 
118
 
 
119
while test -n "$1"; do
 
120
  case $1 in
 
121
  -*)
 
122
    collect_var=
 
123
    case $1 in
 
124
    --help)
 
125
      echo "$usage"
 
126
      exit $?
 
127
      ;;
 
128
    --to)
 
129
      if test -z "$2"; then
 
130
        echo "$0: Missing argument for --to" 1>&2
 
131
        exit 1
 
132
      else
 
133
        to="$to $2"
 
134
        shift
 
135
      fi
 
136
      ;;
 
137
    --user)
 
138
      if test -z "$2"; then
 
139
        echo "$0: Missing argument for --user" 1>&2
 
140
        exit 1
 
141
      else
 
142
        GPG="$GPG --local-user $2"
 
143
        shift
 
144
      fi
 
145
      ;;
 
146
    --delete)
 
147
      collect_var=delete_files
 
148
      ;;
 
149
    --rmsymlink)
 
150
      collect_var=delete_symlinks
 
151
      ;;
 
152
    --symlink-regex=*)
 
153
      symlink_expr=`expr "$1" : '[^=]*=\(.*\)'`
 
154
      ;;
 
155
    --symlink-regex)
 
156
      symlink_expr='s|-[0-9][0-9\.]*\(-[0-9][0-9]*\)\{0,1\}\.|-latest.|'
 
157
      ;;
 
158
    --symlink)
 
159
      collect_var=symlink_files
 
160
      ;;
 
161
    --dry-run|-n)
 
162
      dry_run=:
 
163
      ;;
 
164
    --version)
 
165
      echo "gnupload $scriptversion"
 
166
      exit $?
 
167
      ;;
 
168
    --)
 
169
      shift
 
170
      break
 
171
      ;;
 
172
    -*)
 
173
      echo "$0: Unknown option '$1', try '$0 --help'" 1>&2
 
174
      exit 1
 
175
      ;;
 
176
    esac
 
177
    ;;
 
178
  *)
 
179
    if test -z "$collect_var"; then
 
180
      break
 
181
    else
 
182
      eval "$collect_var=\"\$$collect_var $1\""
 
183
    fi
 
184
    ;;
 
185
  esac
 
186
  shift
 
187
done
 
188
 
 
189
dprint()
 
190
{
 
191
  echo "Running $* ..."
 
192
}
 
193
 
 
194
if $dry_run; then
 
195
  dbg=dprint
 
196
fi
 
197
 
 
198
if test -z "$to"; then
 
199
  echo "$0: Missing destination sites" >&2
 
200
  exit 1
 
201
fi
 
202
 
 
203
if test -n "$symlink_files"; then
 
204
  x=`echo "$symlink_files" | sed 's/[^ ]//g;s/  //g'`
 
205
  if test -n "$x"; then
 
206
    echo "$0: Odd number of symlink arguments" >&2
 
207
    exit 1
 
208
  fi
 
209
fi
 
210
 
 
211
if test $# = 0; then
 
212
  if test -z "${symlink_files}${delete_files}${delete_symlinks}"; then
 
213
    echo "$0: No file to upload" 1>&2
 
214
    exit 1
 
215
  fi
 
216
else
 
217
  # Make sure all files exist.  We don't want to ask
 
218
  # for the passphrase if the script will fail.
 
219
  for file
 
220
  do
 
221
    if test ! -f $file; then
 
222
      echo "$0: Cannot find '$file'" 1>&2
 
223
      exit 1
 
224
    elif test -n "$symlink_expr"; then
 
225
      linkname=`echo $file | sed "$symlink_expr"`
 
226
      if test -z "$linkname"; then
 
227
        echo "$0: symlink expression produces empty results" >&2
 
228
        exit 1
 
229
      elif test "$linkname" = $file; then
 
230
        echo "$0: symlink expression does not alter file name" >&2
 
231
        exit 1
 
232
      fi
 
233
    fi
 
234
  done
 
235
fi
 
236
 
 
237
# Make sure passphrase is not exported in the environment.
 
238
unset passphrase
 
239
 
 
240
# Reset PATH to be sure that echo is a built-in.  We will later use
 
241
# 'echo $passphrase' to output the passphrase, so it is important that
 
242
# it is a built-in (third-party programs tend to appear in 'ps'
 
243
# listings with their arguments...).
 
244
# Remember this script runs with 'set -e', so if echo is not built-in
 
245
# it will exit now.
 
246
PATH=/empty echo -n "Enter GPG passphrase: "
 
247
stty -echo
 
248
read -r passphrase
 
249
stty echo
 
250
echo
 
251
 
 
252
if test $# -ne 0; then
 
253
  for file
 
254
  do
 
255
    echo "Signing $file ..."
 
256
    rm -f $file.sig
 
257
    echo "$passphrase" | $dbg $GPG --passphrase-fd 0 -ba -o $file.sig $file
 
258
  done
 
259
fi
 
260
 
 
261
 
 
262
# mkdirective DESTDIR BASE FILE STMT
 
263
# Arguments: See upload, below
 
264
mkdirective ()
 
265
{
 
266
  stmt="$4"
 
267
  if test -n "$3"; then
 
268
    stmt="
 
269
filename: $3$stmt"
 
270
  fi
 
271
 
 
272
  cat >${2}.directive<<EOF
 
273
version: 1.1
 
274
directory: $1
 
275
comment: gnupload v. $scriptversion$stmt
 
276
EOF
 
277
  if $dry_run; then
 
278
    echo "File ${2}.directive:"
 
279
    cat ${2}.directive
 
280
    echo "File ${2}.directive:" | sed 's/./-/g'
 
281
  fi
 
282
}
 
283
 
 
284
mksymlink ()
 
285
{
 
286
  while test $# -ne 0
 
287
  do
 
288
    echo "symlink: $1 $2"
 
289
    shift
 
290
    shift
 
291
  done
 
292
}
 
293
 
 
294
# upload DEST DESTDIR BASE FILE STMT FILES
 
295
# Arguments:
 
296
#  DEST     Destination site;
 
297
#  DESTDIR  Destination directory;
 
298
#  BASE     Base name for the directive file;
 
299
#  FILE     Name of the file to distribute (may be empty);
 
300
#  STMT     Additional statements for the directive file;
 
301
#  FILES    List of files to upload.
 
302
upload ()
 
303
{
 
304
  dest=$1
 
305
  destdir=$2
 
306
  base=$3
 
307
  file=$4
 
308
  stmt=$5
 
309
  files=$6
 
310
 
 
311
  rm -f $base.directive $base.directive.asc
 
312
  case $dest in
 
313
    alpha.gnu.org:*)
 
314
      mkdirective "$destdir" "$base" "$file" "$stmt"
 
315
      echo "$passphrase" | $dbg $GPG --passphrase-fd 0 --clearsign $base.directive
 
316
      $dbg ncftpput ftp-upload.gnu.org /incoming/alpha $files $base.directive.asc
 
317
      ;;
 
318
    ftp.gnu.org:*)
 
319
      mkdirective "$destdir" "$base" "$file" "$stmt"
 
320
      echo "$passphrase" | $dbg $GPG --passphrase-fd 0 --clearsign $base.directive
 
321
      $dbg ncftpput ftp-upload.gnu.org /incoming/ftp $files $base.directive.asc
 
322
      ;;
 
323
    savannah.gnu.org:*)
 
324
      if test -z "$files"; then
 
325
        echo "$0: warning: standalone directives not applicable for $dest" >&2
 
326
      fi
 
327
      $dbg ncftpput savannah.gnu.org /incoming/savannah/$destdir $files
 
328
      ;;
 
329
    savannah.nongnu.org:*)
 
330
      if test -z "$files"; then
 
331
        echo "$0: warning: standalone directives not applicable for $dest" >&2
 
332
      fi
 
333
      $dbg ncftpput savannah.nongnu.org /incoming/savannah/$destdir $files
 
334
      ;;
 
335
    download.gnu.org.ua:alpha/*|download.gnu.org.ua:ftp/*)
 
336
      destdir_p1=`echo "$destdir" | sed 's,^[^/]*/,,'`
 
337
      destdir_topdir=`echo "$destdir" | sed 's,/.*,,'`
 
338
      mkdirective "$destdir_p1" "$base" "$file" "$stmt"
 
339
      echo "$passphrase" | $dbg $GPG --passphrase-fd 0 --clearsign $base.directive
 
340
      for f in $files $base.directive.asc
 
341
      do
 
342
        echo put $f
 
343
      done | $dbg sftp -b - puszcza.gnu.org.ua:/incoming/$destdir_topdir
 
344
      ;;
 
345
    /*)
 
346
      dest_host=`echo "$dest" | sed 's,:.*,,'`
 
347
      mkdirective "$destdir" "$base" "$file" "$stmt"
 
348
      echo "$passphrase" | $dbg $GPG --passphrase-fd 0 --clearsign $base.directive
 
349
      $dbg cp $files $base.directive.asc $dest_host
 
350
      ;;
 
351
    *)
 
352
      if test -z "$files"; then
 
353
        echo "$0: warning: standalone directives not applicable for $dest" >&2
 
354
      fi
 
355
      $dbg scp $files $dest
 
356
      ;;
 
357
  esac
 
358
  rm -f $base.directive $base.directive.asc
 
359
}
 
360
 
 
361
#####
 
362
# Process any standalone directives
 
363
stmt=
 
364
if test -n "$symlink_files"; then
 
365
  stmt="$stmt
 
366
`mksymlink $symlink_files`"
 
367
fi
 
368
 
 
369
for file in $delete_files
 
370
do
 
371
  stmt="$stmt
 
372
archive: $file"
 
373
done
 
374
 
 
375
for file in $delete_symlinks
 
376
do
 
377
  stmt="$stmt
 
378
rmsymlink: $file"
 
379
done
 
380
 
 
381
if test -n "$stmt"; then
 
382
  for dest in $to
 
383
  do
 
384
    destdir=`echo $dest | sed 's/[^:]*://'`
 
385
    upload "$dest" "$destdir" "`hostname`-$$" "" "$stmt"
 
386
  done
 
387
fi
 
388
 
 
389
# Process actual uploads
 
390
for dest in $to
 
391
do
 
392
  for file
 
393
  do
 
394
    echo "Uploading $file to $dest ..."
 
395
    stmt=
 
396
    files="$file $file.sig"
 
397
    destdir=`echo $dest | sed 's/[^:]*://'`
 
398
    if test -n "$symlink_expr"; then
 
399
      linkname=`echo $file | sed "$symlink_expr"`
 
400
      stmt="$stmt
 
401
symlink: $file $linkname
 
402
symlink: $file.sig $linkname.sig"
 
403
    fi
 
404
    upload "$dest" "$destdir" "$file" "$file" "$stmt" "$files"
 
405
  done
 
406
done
 
407
 
 
408
exit 0
 
409
 
 
410
# Local variables:
 
411
# eval: (add-hook 'write-file-hooks 'time-stamp)
 
412
# time-stamp-start: "scriptversion="
 
413
# time-stamp-format: "%:y-%02m-%02d.%02H"
 
414
# time-stamp-time-zone: "UTC"
 
415
# time-stamp-end: "; # UTC"
 
416
# End: