#!/bin/sh

# Copyright 2017 Axel Beckert <[email protected]>.
# Licensed under the GNU GPL, version 2 or later.

set -e

if [ "${1}" = '-h' -o "${1}" = '--help' ]; then
    echo "${0} (Long Time No Upload) queries the public mirror of the
Ultimate Debian Database (UDD) for all uploads of packages by the
given uploader or maintainer and displays them ordered by the last
upload of that package, oldest uploads first.

The maintainer/uploader to query can be given either by setting
\$DEBEMAIL as environment variable or as single commandline parameter.

If a commandline parameter does not contain an \"@\", \"@debian.org\"
is appended, e.g. \"${0} abe\" queries for \"[email protected]\".

Exceptions are some shortcuts for common, long e-mail addresses. So
far implemented shortcuts:

* pkg-perl = [email protected]
* pkg-zsh  = [email protected]
* pkg-gnustep = [email protected]
"
    exit 0
fi

if [ ! -x /usr/bin/psql ]; then
    echo "/usr/bin/psql not found or not executable" 1>&2
    echo "${0} requires a PostgreSQL client (psql) to be installed." 1>&2
    exit 2
fi

# Some option parsing
QUERY_UPLOADER=1
if [ "$1" = "-m" ]; then
    QUERY_UPLOADER=0
    shift
fi

MAINT="${DEBEMAIL}"
if [ -n "${1}" ]; then
    if echo "${1}" | grep -qF @; then
        MAINT="${1}"
    elif [ "${1}" = "pkg-gnustep" ]; then
        MAINT="[email protected]"
    elif [ "${1}" = "pkg-perl" ]; then
        MAINT="[email protected]"
    elif [ "${1}" = "pkg-zsh" ]; then
        MAINT="[email protected]"
    elif [ "${1}" = "qa" ]; then
        MAINT="[email protected]"
    else
        MAINT="${1}@debian.org"
    fi
fi

if [ -z "${MAINT}" ]; then
    echo "${0} requires either the environment variable \$DEBEMAIL to be set or a single parameter." 1>&2
    exit 1;
fi

if [ -z "${PAGER}" -o "${PAGER}" = "less" ]; then
    export PAGER="less -S"
fi

UPLOADER=''
if [ "$QUERY_UPLOADER" = 1 ]; then
   UPLOADER=" or uploaders like '%<${MAINT}>%'"
fi

env PGPASSWORD=udd-mirror psql --host=udd-mirror.debian.net --user=udd-mirror udd --command="
select source,
       max(version) as ver,
       max(date) as uploaded
from upload_history
where distribution='unstable' and
      source in (select source
                 from sources
                 where ( maintainer_email='${MAINT}' $UPLOADER ) and
                       release='sid')
group by source
order by max(date) asc;
"