bin/disorder-notify: Add a proper command-line parser, and support `-u'.

[profile] / bin / mdw-sbuild

#! /bin/sh -e
###
### Build a Debian package on an sbuild server.
###
### (c) 2016 Mark Wooding
###

###----- Licensing notice ---------------------------------------------------
###
### This program is free software; you can redistribute it and/or modify
### it under the terms of the GNU General Public License as published by
### the Free Software Foundation; either version 2 of the License, or
### (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### You should have received a copy of the GNU General Public License
### along with this program; if not, write to the Free Software Foundation,
### Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

###--------------------------------------------------------------------------
### Some utilities.

prog=${0##*/}

fail () { echo >&2 "$prog: $*"; exit 1; }
usage () { echo "usage: $prog [-ain] [-k KEYID] [-t TARGET] HOST"; }
fail_usage () { usage >&2; exit 1; }

###--------------------------------------------------------------------------
### Parse options.

bogusp=nil noactp=nil signp=nil
unset buildopts pkgs dbpargs
while getopts "haik:np:t:A:" opt; do
  case $opt in
    h)
      usage
      cat <<EOF

Options:
	-h		Show this help text.
	-a		Build only architecture-dependent packages.
	-i		Build only architecture-neutral packages.
	-k KEYID	Sign the result using KEYID.
	-n		Don't actually do the build.
	-p DIR		Upload additional packages from DIR.
	-t TARGET	Build in TARGET build environment.
	-A ARGS		Pass ARGS to \`dpkg-buildpackage'.
EOF
      exit 0
      ;;
    a) buildopts="${buildopts+$buildopts }-a" ;;
    i) buildopts="${buildopts+$buildopts }-i" ;;
    k) signp=t keyid=$OPTARG ;;
    n) buildopts="${buildopts+$buildopts }-n" noactp=t ;;
    p) pkgs=$OPTARG ;;
    t) buildopts="${buildopts+$buildopts }-t$OPTARG" ;;
    A)
      buildopts="${buildopts+$buildopts }-A$OPTARG"
      dbpargs="${dbpargs+$dbpargs }$OPTARG"
      ;;
    *) bogusp=t ;;
  esac
done
shift $(( $OPTIND - 1 ))
case $# in
  1) host=$1 ;;
  *) bogusp=t ;;
esac
case $bogusp in t) fail_usage ;; esac
case $noactp in t) signp=nil ;; esac
case ${pkgs-/hack} in /*) ;; *) pkgs=$(pwd)/$pkgs ;; esac

###--------------------------------------------------------------------------
### Main program.

## Figure out the package name and version number.
unset pkg ver
while read tag value; do
  case $tag in
    Source:) pkg=$value ;;
    Version:) ver=$value ;;
  esac
done <<EOF
$(dpkg-parsechangelog)
EOF
case ${pkg+t} in t) ;; *) fail "can't figure out the package name" ;; esac
case ${ver+t} in t) ;; *) fail "can't figure out the package version" ;; esac

## Build a Debian source package.  Don't sign anything yet.  That will happen
## at the end, all in one go.
dpkg-buildpackage -S -uc -us -d -i $dbpargs
cd ..
dsc=${pkg}_${ver}.dsc
[ -f "$dsc" ] || fail "where is my \`.dsc' file?"

## Actually do the build.  Get a build directory assigned by the server,
## upload the sources, run the build, and collect the results.
builddir=$(ssh "$host" mdw-sbuild-server dir "$pkg/$ver")
dcmd rsync -a "$dsc" "$host:$builddir/"
case ${pkgs+t} in t) rsync -a "$pkgs/" "$host:$builddir/pkgs/" ;; esac
set +e; ssh "$host" mdw-sbuild-server $buildopts build "$builddir"
rc=$?; set -e
rsync -a "$host:$builddir/" ./
case $rc in 0) ;; *) exit $rc ;; esac

## Merge the change files together, and maybe sign the result.
chchch=${pkg}_${ver}_source.changes
for i in "${pkg}_${ver}"_*.changes; do
  case " $chchch " in *" $i "*) ;; *) chchch="$chchch $i" ;; esac
done
mergechanges -f $chchch
rm $chchch
case $signp in
  t) debsign -k"$keyid" "${pkg}_${ver}_multi.changes" ;;
esac

###----- That's all, folks --------------------------------------------------