build-aux/gnupload

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