summaryrefslogtreecommitdiffstats
path: root/scripts/wnpp-alert.sh
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-06 00:39:23 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-06 00:39:23 +0000
commite3b16b3856bdd5c1645f4609d61bf5a16c026930 (patch)
treed9def3b6f6f46b166fc6f516775350fedeefbef6 /scripts/wnpp-alert.sh
parentInitial commit. (diff)
downloaddevscripts-e3b16b3856bdd5c1645f4609d61bf5a16c026930.tar.xz
devscripts-e3b16b3856bdd5c1645f4609d61bf5a16c026930.zip
Adding upstream version 2.19.5+deb10u1.upstream/2.19.5+deb10u1upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'scripts/wnpp-alert.sh')
-rwxr-xr-xscripts/wnpp-alert.sh139
1 files changed, 139 insertions, 0 deletions
diff --git a/scripts/wnpp-alert.sh b/scripts/wnpp-alert.sh
new file mode 100755
index 0000000..3d9de27
--- /dev/null
+++ b/scripts/wnpp-alert.sh
@@ -0,0 +1,139 @@
+#!/bin/bash
+
+# wnpp-alert -- check for installed packages which have been orphaned
+# or put up for adoption
+
+# This script is in the PUBLIC DOMAIN.
+# Authors:
+# Arthur Korn <arthur@korn.ch>
+
+# Arthur wrote:
+# Get a list of packages with bugnumbers. I tried with LDAP, but this
+# is _much_ faster.
+# And I (Julian) tried it with Perl's LWP, but this is _much_ faster
+# (startup time is huge). And even Perl with wget is slower by 50%....
+
+set -e
+
+PROGNAME="${0##*/}"
+# TODO: Remove use of OLDCACHEDDIR post-Stretch
+OLDCACHEDIR=~/.devscripts_cache
+OLDCACHEDDIFF="${OLDCACHEDIR}/wnpp-diff"
+CACHEDIR=${XDG_CACHE_HOME:-~/.cache}
+CACHEDIR=${CACHEDIR%/}/devscripts
+CACHEDDIFF="${CACHEDIR}/wnpp-diff"
+CURLORWGET=""
+GETCOMMAND=""
+
+usage () { echo \
+"Usage: $PROGNAME [--help|-h|--version|-v|--diff|-d] [package ...]
+ List all installed (or listed) packages with Request for
+ Adoption (RFA), Request for Help (RHF), or Orphaned (O)
+ bugs against them, as determined from the WNPP website.
+ https://www.debian.org/devel/wnpp"
+}
+
+version () { echo \
+"This is $PROGNAME, from the Debian devscripts package, version ###VERSION###
+This script is in the PUBLIC DOMAIN.
+Authors: Arthur Korn <arthur@korn.ch>
+Modifications: Julian Gilbey <jdg@debian.org>"
+}
+
+wnppdiff () {
+ if [ -f "$OLDCACHEDDIFF" ]; then
+ mv "$OLDCACHEDDIFF" "$CACHEDDIFF"
+ fi
+ if [ ! -f "$CACHEDDIFF" ]; then
+ # First use
+ comm -12 $WNPP_PACKAGES $INSTALLED | sed -e 's/+/\\+/g' | \
+ xargs -i egrep '^[A-Z]+ [0-9]+ {} ' $WNPP | \
+ tee $CACHEDDIFF
+ else
+ comm -12 $WNPP_PACKAGES $INSTALLED | sed -e 's/+/\\+/g' | \
+ xargs -i egrep '^[A-Z]+ [0-9]+ {} ' $WNPP > $WNPP_DIFF
+ sort -o $CACHEDDIFF $CACHEDDIFF
+ sort -o $WNPP_DIFF $WNPP_DIFF
+ comm -3 $CACHEDDIFF $WNPP_DIFF | \
+ sed -e 's/\t/\+/g' -e 's/^\([^+]\)/-\1/g'
+ mv $WNPP_DIFF $CACHEDDIFF
+ fi
+}
+
+if [ "x$1" = "x--help" -o "x$1" = "x-h" ]; then usage; exit 0; fi
+if [ "x$1" = "x--version" -o "x$1" = "x-v" ]; then version; exit 0; fi
+
+if command -v wget >/dev/null 2>&1; then
+ CURLORWGET="wget"
+ GETCOMMAND="wget -q -O"
+elif command -v curl >/dev/null 2>&1; then
+ CURLORWGET="curl"
+ GETCOMMAND="curl -qfs -o"
+else
+ echo "$PROGNAME: need either the wget or curl package installed to run this" >&2
+ exit 1
+fi
+
+
+# Let's abandon this directory from now on, these files are so small
+# (see bug#309802)
+if [ -d "$CACHEDIR" ]; then
+ rm -f "$CACHEDIR"/orphaned "$CACHEDIR"/rfa_bypackage
+fi
+
+INSTALLED=$(mktemp --tmpdir wnppalert-installed.XXXXXX)
+WNPP=$(mktemp --tmpdir wnppalert-wnpp.XXXXXX)
+WNPPTMP=$(mktemp --tmpdir wnppalert-wnpp.XXXXXX)
+WNPP_PACKAGES=$(mktemp --tmpdir wnppalert-wnpp_packages.XXXXXX)
+trap 'rm -f "$INSTALLED" "$WNPP" "$WNPPTMP" "$WNPP_PACKAGES"' EXIT
+
+if [ "x$1" = "x--diff" ] || [ "x$1" = "x-d" ]; then
+ shift
+ WNPP_DIFF=$(mktemp --tmpdir wnppalert-wnpp_diff.XXXXXX)
+ trap 'rm -f "$INSTALLED" "$WNPP" "$WNPPTMP" "$WNPP_PACKAGES" "$WNPP_DIFF"' \
+ EXIT
+fi
+
+# Here's a really sly sed script. Rather than first grepping for
+# matching lines and then processing them, this attempts to sed
+# every line; those which succeed execute the 'p' command, those
+# which don't skip over it to the label 'd'
+$GETCOMMAND $WNPPTMP https://www.debian.org/devel/wnpp/orphaned || \
+ { echo "$PROGNAME: $CURLORWGET https://www.debian.org/devel/wnpp/orphaned failed" >&2; exit 1; }
+sed -ne 's/.*<li><a href="https\?:\/\/bugs.debian.org\/\([0-9]*\)">\([^:<]*\)[: ]*\([^<]*\)<\/a>.*/O \1 \2 -- \3/; T d; p; : d' $WNPPTMP > $WNPP
+
+$GETCOMMAND $WNPPTMP https://www.debian.org/devel/wnpp/rfa_bypackage || \
+ { echo "$PROGNAME: $CURLORWGET https://www.debian.org/devel/wnpp/rfa_bypackage" >&2; exit 1; }
+sed -ne 's/.*<li><a href="https\?:\/\/bugs.debian.org\/\([0-9]*\)">\([^:<]*\)[: ]*\([^<]*\)<\/a>.*/RFA \1 \2 -- \3/; T d; p; : d' $WNPPTMP >> $WNPP
+
+$GETCOMMAND $WNPPTMP https://www.debian.org/devel/wnpp/help_requested || \
+ { echo "$PROGNAME: $CURLORWGET https://www.debian.org/devel/wnpp/help_requested" >&2; exit 1; }
+sed -ne 's/.*<li><a href="https\?:\/\/bugs.debian.org\/\([0-9]*\)">\([^:<]*\)[: ]*\([^<]*\)<\/a>.*/RFH \1 \2 -- \3/; T d; p; : d' $WNPPTMP >> $WNPP
+
+cut -f3 -d' ' $WNPP | sort > $WNPP_PACKAGES
+
+# A list of installed files.
+
+if [ $# -gt 0 ]; then
+ echo $* | tr ' ' '\n' | sort -u > $INSTALLED
+else
+ dpkg-query -W -f '${Package} ${Status}\n${Source} ${Status}\n' | \
+ awk '/^[^ ].*install ok installed/{print $1}' | \
+ sort -u \
+ > $INSTALLED
+fi
+
+if [ -f "$WNPP_DIFF" ]; then
+ # This may fail when run from a cronjob (c.f., #309802), so just ignore it
+ # and carry on.
+ mkdir -p "$CACHEDIR" >/dev/null 2>&1 || true
+ if [ -d "$CACHEDIR" ] || [ -d "$OLDCACHEDIR" ]; then
+ wnppdiff
+ exit 0
+ else
+ echo "$PROGNAME: Unable to create diff; displaying full output"
+ fi
+fi
+
+comm -12 $WNPP_PACKAGES $INSTALLED | sed -e 's/+/\\+/g' | \
+xargs -i egrep '^[A-Z]+ [0-9]+ {} ' $WNPP