Adding upstream version 2.23.7.upstream/2.23.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 341 insertions, 0 deletions

diff --git a/scripts/debrelease.sh b/scripts/debrelease.sh
new file mode 100755
index 0000000..b468de0
--- /dev/null
+++ b/scripts/debrelease.sh
@@ -0,0 +1,341 @@
+#!/bin/bash
+
+# debrelease: a devscripts wrapper around dupload/dput which calls
+#             dupload/dput with the correct .changes file as parameter.
+#             All command line options are passed onto dupload.
+#
+# Written and copyright 1999-2003 by Julian Gilbey <jdg@debian.org>
+# Based on the original 'release' script by
+#  Christoph Lameter <clameter@debian.org>
+#
+# 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, see <https://www.gnu.org/licenses/>.
+
+set -e
+
+PROGNAME=${0##*/}
+MODIFIED_CONF_MSG='Default settings modified by devscripts configuration files:'
+
+usage() {
+    echo \
+"Usage: $PROGNAME [debrelease options] [dupload/dput options]
+  Run dupload on the newly created changes file.
+  Debrelease options:
+    --dupload         Use dupload to upload files (default)
+    --dput            Use dput to upload files
+    -a<arch>          Search for .changes file made for Debian build <arch>
+    -t<target>        Search for .changes file made for GNU <target> arch
+    -S                Search for source-only .changes file instead of arch one
+    --multi           Search for multiarch .changes file made by dpkg-cross
+    --debs-dir DIR    Look for the changes and debs files in DIR instead of
+                      the parent of the current package directory
+    --check-dirname-level N
+                      How much to check directory names before cleaning trees:
+                      N=0   never
+                      N=1   only if program changes directory (default)
+                      N=2   always
+    --check-dirname-regex REGEX
+                      What constitutes a matching directory name; REGEX is
+                      a Perl regular expression; the string \`PACKAGE' will
+                      be replaced by the package name; see manpage for details
+                      (default: 'PACKAGE(-.+)?')
+    --no-conf, --noconf
+                      Don't read devscripts config files;
+                      must be the first option given
+    --help            Show this message
+    --version         Show version and copyright information
+
+$MODIFIED_CONF_MSG"
+}
+
+version() {
+    echo \
+"This is $PROGNAME, from the Debian devscripts package, version ###VERSION###
+This code is copyright 1999-2003 by Julian Gilbey, all rights reserved.
+Based on original code by Christoph Lameter.
+This program comes with ABSOLUTELY NO WARRANTY.
+You are free to redistribute this code under the terms of the
+GNU General Public License, version 2 or later."
+}
+
+mustsetvar() {
+    if [ "x$2" = x ]
+    then
+	echo >&2 "$PROGNAME: unable to determine $3"
+	exit 1
+    else
+	# echo "$PROGNAME: $3 is $2"
+	eval "$1=\"\$2\""
+    fi
+}
+
+# Boilerplate: set config variables
+DEFAULT_DEBRELEASE_UPLOADER=dupload
+DEFAULT_DEBRELEASE_DEBS_DIR=..
+DEFAULT_DEVSCRIPTS_CHECK_DIRNAME_LEVEL=1
+DEFAULT_DEVSCRIPTS_CHECK_DIRNAME_REGEX='PACKAGE(-.+)?'
+VARS="DEBRELEASE_UPLOADER DEBRELEASE_DEBS_DIR DEVSCRIPTS_CHECK_DIRNAME_LEVEL DEVSCRIPTS_CHECK_DIRNAME_REGEX"
+
+if [ "$1" = "--no-conf" -o "$1" = "--noconf" ]; then
+    shift
+    MODIFIED_CONF_MSG="$MODIFIED_CONF_MSG
+  (no configuration files read)"
+
+    # set defaults
+    for var in $VARS; do
+	eval "$var=\$DEFAULT_$var"
+    done
+else
+    # Run in a subshell for protection against accidental errors
+    # in the config files
+    eval $(
+	set +e
+	for var in $VARS; do
+	    eval "$var=\$DEFAULT_$var"
+	done
+
+	for file in /etc/devscripts.conf ~/.devscripts
+	  do
+	  [ -r $file ] && . $file
+	done
+
+	set | grep -E "^(DEBRELEASE|DEVSCRIPTS)_")
+
+    # check sanity
+    case "$DEBRELEASE_UPLOADER" in
+	dupload|dput) ;;
+	*) DEBRELEASE_UPLOADER=dupload ;;
+    esac
+
+    # We do not replace this with a default directory to avoid accidentally
+    # uploading a broken package
+    DEBRELEASE_DEBS_DIR="$(echo "$DEBRELEASE_DEBS_DIR" | sed -e 's%/\+%/%g; s%\(.\)/$%\1%;')"
+    if ! [ -d "$DEBRELEASE_DEBS_DIR" ]; then
+	debsdir_warning="config file specified DEBRELEASE_DEBS_DIR directory $DEBRELEASE_DEBS_DIR does not exist!"
+    fi
+
+    case "$DEVSCRIPTS_CHECK_DIRNAME_LEVEL" in
+	0|1|2) ;;
+	*) DEVSCRIPTS_CHECK_DIRNAME_LEVEL=1 ;;
+    esac
+
+    # set config message
+    MODIFIED_CONF=''
+    for var in $VARS; do
+	eval "if [ \"\$$var\" != \"\$DEFAULT_$var\" ]; then
+	    MODIFIED_CONF_MSG=\"\$MODIFIED_CONF_MSG
+  $var=\$$var\";
+	MODIFIED_CONF=yes;
+	fi"
+    done
+
+    if [ -z "$MODIFIED_CONF" ]; then
+	MODIFIED_CONF_MSG="$MODIFIED_CONF_MSG
+  (none)"
+    fi
+fi
+
+
+# synonyms
+CHECK_DIRNAME_LEVEL="$DEVSCRIPTS_CHECK_DIRNAME_LEVEL"
+CHECK_DIRNAME_REGEX="$DEVSCRIPTS_CHECK_DIRNAME_REGEX"
+
+
+sourceonly=
+multiarch=
+debsdir="$DEBRELEASE_DEBS_DIR"
+
+while [ $# -gt 0 ]
+do
+    case "$1" in
+    -a*) targetarch="$(echo "$1" | sed -e 's/^-a//')" ;;
+    -t*) targetgnusystem="$(echo "$1" | sed -e 's/^-t//')"
+	 # dupload has a -t option
+	 if [ -z "$targetgnusystem" ]; then break; fi ;;
+    -S) sourceonly=source ;;
+    --multi) multiarch=yes ;;
+    --dupload) DEBRELEASE_UPLOADER=dupload ;;
+    --dput) DEBRELEASE_UPLOADER=dput ;;
+    # Delay checking of debsdir until we need it.  We need to make sure we're
+    # in the package root directory first.
+    --debs-dir=*)
+	opt_debsdir="$(echo "$1" | sed -e 's/^--debs-dir=//; s%/\+%/%g; s%\(.\)/$%\1%;')"
+	;;
+    --debs-dir)
+	shift
+	opt_debsdir="$(echo "$1" | sed -e 's%/\+%/%g; s%\(.\)/$%\1%;')"
+	;;
+    --check-dirname-level=*)
+	level="$(echo "$1" | sed -e 's/^--check-dirname-level=//')"
+        case "$level" in
+	0|1|2) CHECK_DIRNAME_LEVEL=$level ;;
+	*) echo "$PROGNAME: unrecognised --check-dirname-level value (allowed are 0,1,2)" >&2
+	   exit 1 ;;
+        esac
+	;;
+    --check-dirname-level)
+	shift
+        case "$1" in
+	0|1|2) CHECK_DIRNAME_LEVEL=$1 ;;
+	*) echo "$PROGNAME: unrecognised --check-dirname-level value (allowed are 0,1,2)" >&2
+	   exit 1 ;;
+        esac
+	;;
+    --check-dirname-regex=*)
+	regex="$(echo "$1" | sed -e 's/^--check-dirname-level=//')"
+	if [ -z "$regex" ]; then
+	    echo "$PROGNAME: missing --check-dirname-regex parameter" >&2
+	    echo "try $PROGNAME --help for usage information" >&2
+	    exit 1
+	else
+	    CHECK_DIRNAME_REGEX="$regex"
+	fi
+	;;
+    --check-dirname-regex)
+	shift;
+	if [ -z "$1" ]; then
+	    echo "$PROGNAME: missing --check-dirname-regex parameter" >&2
+	    echo "try $PROGNAME --help for usage information" >&2
+	    exit 1
+	else
+	    CHECK_DIRNAME_REGEX="$1"
+	fi
+	;;
+    --no-conf|--noconf)
+	echo "$PROGNAME: $1 is only acceptable as the first command-line option!" >&2
+	exit 1 ;;
+    --dopts) shift; break ;;  # This is an option for cvs-debrelease,
+                              # so we accept it here too, even though we don't
+                              # advertise it
+    --help) usage; exit 0 ;;
+    --version) version; exit 0 ;;
+    *) break ;;  # a dupload/dput option, so stop parsing here
+    esac
+    shift
+done
+
+# Look for .changes file via debian/changelog
+CHDIR=
+until [ -f debian/changelog ]; do
+    CHDIR=yes
+    cd ..
+    if [ $(pwd) = "/" ]; then
+	echo "$PROGNAME: cannot find debian/changelog anywhere!" >&2
+	echo "Are you in the source code tree?" >&2
+	exit 1
+    fi
+done
+
+# Use svn-buildpackage's directory if there is one and debsdir wasn't already
+# specified on the command-line.  This can override DEBRELEASE_DEBS_DIR.
+if [ -n "$opt_debsdir" ]; then
+    debsdir="$opt_debsdir"
+elif [ -e ".svn/deb-layout" ]; then
+    buildArea="$(sed -ne '/^buildArea=/{s/^buildArea=//; s%/\+%/%g; s%\(.\)/$%\1%; p; q}' .svn/deb-layout)"
+    if [ -n "$buildArea" -a -d "$buildArea" ]; then
+	debsdir="$buildArea"
+    fi
+fi
+
+# check sanity of debsdir
+if ! [ -d "$debsdir" ]; then
+    if [ -n "$debsdir_warning" ]; then
+	echo "$PROGNAME: $debsdir_warning" >&2
+	exit 1
+    else
+	echo "$PROGNAME: could not find directory $debsdir!" >&2
+	exit 1
+    fi
+fi
+
+mustsetvar package "`dpkg-parsechangelog -SSource`" "source package"
+mustsetvar version "`dpkg-parsechangelog -SVersion`" "source version"
+
+if [ $CHECK_DIRNAME_LEVEL -eq 2 -o \
+    \( $CHECK_DIRNAME_LEVEL -eq 1 -a "$CHDIR" = yes \) ]; then
+    if ! perl -MFile::Basename -w \
+	-e "\$pkg='$package'; \$re='$CHECK_DIRNAME_REGEX';" \
+	-e '$re =~ s/PACKAGE/\\Q$pkg\\E/g; $pwd=`pwd`; chomp $pwd;' \
+	-e 'if ($re =~ m%/%) { eval "exit (\$pwd =~ /^$re\$/ ? 0:1);"; }' \
+	-e 'else { eval "exit (basename(\$pwd) =~ /^$re\$/ ? 0:1);"; }'
+    then
+	echo >&2 <<EOF
+$PROGNAME: found debian/changelog for package $PACKAGE in the directory
+  $pwd
+but this directory name does not match the package name according to the
+regex  $check_dirname_regex.
+
+To run $PROGNAME on this package, see the --check-dirname-level and
+--check-dirname-regex options; run $PROGNAME --help for more info.
+EOF
+	exit 1
+    fi
+fi
+
+if [ "x$sourceonly" = "xsource" ]; then
+    arch=source
+elif [ -n "$targetarch" ] && [ -n "$targetgnusystem" ]; then
+    mustsetvar arch "$(dpkg-architecture "-a${targetarch}" "-t${targetgnusystem}" -qDEB_HOST_ARCH)" "build architecture"
+elif [ -n "$targetarch" ]; then
+    mustsetvar arch "$(dpkg-architecture "-a${targetarch}" -qDEB_HOST_ARCH)" "build architecture"
+elif [ -n "$targetgnusystem" ]; then
+    mustsetvar arch "$(dpkg-architecture "-t${targetgnusystem}" -qDEB_HOST_ARCH)" "build architecture"
+else
+    mustsetvar arch "$(dpkg-architecture -qDEB_HOST_ARCH)" "build architecture"
+fi
+
+sversion=$(echo "$version" | perl -pe 's/^\d+://')
+pva="${package}_${sversion}_${arch}"
+pvs="${package}_${sversion}_source"
+changes="$debsdir/$pva.changes"
+schanges="$debsdir/$pvs.changes"
+mchanges=$(ls "$debsdir/${package}_${sversion}_*+*.changes" "$debsdir/${package}_${sversion}_multi.changes" 2>/dev/null | head -1)
+
+if [ -n "$multiarch" ]; then
+    if [ -z "$mchanges" -o ! -r "$mchanges" ]; then
+	echo "$PROGNAME: could not find/read any multiarch .changes file with name" >&2
+	echo "$debsdir/${package}_${sversion}_*.changes" >&2
+	exit 1
+    fi
+    changes=$mchanges
+elif [ "$arch" = source ]; then
+    if [ -r "$schanges" ]; then
+	changes=$schanges
+    else
+	echo "$PROGNAME: could not find/read changes file $schanges!" >&2
+	exit 1
+    fi
+else
+    if [ ! -r "$changes" ]; then
+	if [ -r "$mchanges" ]; then
+	    changes=$mchanges
+	    echo "$PROGNAME: could only find a multiarch changes file:" >&2
+	    echo "  $mchanges" >&2
+	    echo -n "Should I upload this file? (y/n) " >&2
+	    read ans
+	    case ans in
+		y*) ;;
+		*) exit 1 ;;
+	    esac
+	else
+	    echo "$PROGNAME: could not read changes file $changes!" >&2
+	    exit 1
+	fi
+    fi
+fi
+
+exec $DEBRELEASE_UPLOADER "$@" "$changes"
+
+echo "$PROGNAME: failed to exec $DEBRELEASE_UPLOADER!" >&2
+echo "Aborting...." >&2
+exit 1