#!/bin/sh

set -e -u

MYDIR="$(readlink -f `dirname $0`)"

usage() {
    BN=`basename $0`
    cat <<EOF
Usage: $BN [options] package...

Options:
    -t path     Required; top location of local repository clones (containing packages/)
    -m URL      URL to a message in which the previous maintainer requests the
                takeover
    -a #        RFA/ITA bug number (conflicts with -m)
    -g URL      Existing Git repository to clone
    -n          Local operation only. Local repository is prepared, but
                nothing is changed on alioth.
    -h          show this text

<package> is the source package name that we take over of. You may list more
than one package.
EOF
    exit 0
}

TOP=''
MAIL=''
RFA=''
GIT=''
LOCAL=''

while getopts t:m:a:g:hn o; do
    case $o in
        h) usage;;
        m) MAIL=$OPTARG;;
        t) TOP=$OPTARG;;
        a) RFA=$OPTARG;;
        g) GIT=$OPTARG;;
        n) LOCAL=1;;
    esac
done
shift `expr $OPTIND - 1`

if [ -n "$RFA" ] && [ -n "$MAIL" ]; then
    echo "-m and -a cannot be given at the same time"
    exit 1
fi

if [ -n "$GIT" ] && [ $# -gt 1 ]; then
    echo '-g option allows only one package name'
    exit 1;
fi

[ -n "$TOP" ] || usage

TMP=`mktemp -d`

trap "rm -rf $TMP" QUIT INT 0

inject_package()
{
    PACKAGE=$1
    cat <<EOF
***
*** Taking over $PACKAGE
***
EOF

    if [ -n "$GIT" ]; then
        cd $TOP/packages
        git clone $GIT $PACKAGE
        cd $PACKAGE
        for b in `git branch -r|grep -E -v '/HEAD |/master$'|sed -e 's,^  origin/,,'`; do
            git checkout -b $b origin/$b
        done
        git checkout master
        git remote remove origin
        cd ..
    else
        cd $TMP
        apt-get source -t unstable -d $PACKAGE

        cd $TOP/packages
        git-import-dsc $TMP/$PACKAGE*.dsc
    fi

    cd $PACKAGE

    if [ -z "$LOCAL" ]; then
        sh $TOP/alioth-git-repo
    fi

    TXT="Take over for the Debian Perl Group"
    if [ -n "$MAIL" ]; then
        TXT="$TXT on maintainer's request ($MAIL)"
    fi
    if [ -n "$RFA" ]; then
        TXT="$TXT; Closes: #$RFA -- RFA/ITA"
    fi

    dch --no-auto-nmu -i -c debian/changelog "$TXT"
    git add debian/changelog
    git commit -m '[takeover-for-pkg-perl] Document the takeover'

    if [ -x $MYDIR/qa/packagecheck ]; then
        PC_OPTS="-a -A -C -p \"$PACKAGE\" -c"
        if [ -n "$LOCAL" ]; then PC_OPTS="$PC_OPTS -n"; fi
        $MYDIR/qa/packagecheck $PC_OPTS
    else
        echo "Couldn't find $MYDIR/qa/packagecheck, skipping..." >/dev/stderr
    fi

    if [ -z "$LOCAL" ]; then
        git push
    fi
    rm -rf $TMP
}

[ -n "${1:-}" ] || usage

PACKAGES=''
CURPWD=$(pwd)
while [ -n "${1:-}" ]; do
    inject_package $1
    PACKAGES="$PACKAGES $1"
    shift
    cd $CURPWD
done

if [ -n "$LOCAL" ]; then
    echo "Nothing pushed to alioth"
    echo "You may want to inspect the resulting repositories for"
    echo $PACKAGES
    echo "and run $TOP/alioth-git-repo"
    echo "to create the alioth repository and push the local"
    echo  "repository there"
fi