[devscripts] 01/01: grep-excuses: Fix the script for the removal of testing.pl from release.debian.org

[Paul Wise]

This is an automated email from the git hooks/post-receive script.

pabs pushed a commit to branch master
in repository devscripts.

commit fcf435d7cce25ace452640170516cf044e970679
Author: Paul Wise <pabs at debian.org>
Date:   Fri Jul 15 22:37:33 2016 +0800

    grep-excuses: Fix the script for the removal of testing.pl from release.debian.org
---
 debian/changelog        | 7 +++++++
 scripts/grep-excuses.1  | 2 +-
 scripts/grep-excuses.pl | 8 ++++----
 3 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index bf83b81..3b9e5a0 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+devscripts (2.16.7) UNRELEASED; urgency=medium
+
+  * grep-excuses:
+    + Fix the script for the removal of testing.pl from release.debian.org
+
+ -- Paul Wise <pabs at debian.org>  Fri, 15 Jul 2016 22:36:19 +0800
+
 devscripts (2.16.6) unstable; urgency=medium
 
   [ James McCoy ]
diff --git a/scripts/grep-excuses.1 b/scripts/grep-excuses.1
index bcf9197..fc718d3 100644
--- a/scripts/grep-excuses.1
+++ b/scripts/grep-excuses.1
@@ -18,7 +18,7 @@ Do not read any configuration files.  This can only be used as the
 first option given on the command-line.
 .TP
 \fB\-\-wipnity\fR, \fB\-w\fR
-Get information from <https://release.debian.org/migration/>.  A package name
+Get information from <https://qa.debian.org/excuses.php>.  A package name
 must be given when using this option.
 .TP
 .B \-\-help
diff --git a/scripts/grep-excuses.pl b/scripts/grep-excuses.pl
index 0f5f0a1..7b78560 100755
--- a/scripts/grep-excuses.pl
+++ b/scripts/grep-excuses.pl
@@ -70,7 +70,7 @@ Usage: $progname [options] [<maintainer>|<package>]
 Options:
   --no-conf, --noconf Don\'t read devscripts config files;
                       must be the first option given
-  --wipnity, -w       Check <https://release.debian.org/migration/>.  A package
+  --wipnity, -w       Check <https://qa.debian.org/excuses.php>.  A package
                       name must be given when using this option.
   --no-autoremovals   Do not investigate and report autoremovals
   --help              Show this help
@@ -101,9 +101,9 @@ if (system("command -v w3m >/dev/null 2>&1") != 0) {
 }
 
 while( my $package=shift ) {
-    my $dump = `w3m -dump -cols $columns "https://release.debian.org/migration/testing.pl?package=$package"`;
-    $dump =~ s/^.*?(?=Checking)//s;
-    $dump =~ s/^\[.*//ms;
+    my $dump = `w3m -dump -cols $columns "https://qa.debian.org/excuses.php?package=$package"`;
+    $dump =~ s/.*(Excuse for .*)\s+Maintainer page.*/$1/ms;
+    $dump =~ s/.*(No excuse for .*)\s+Maintainer page.*/$1/ms;
     print($dump);
     }
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/devscripts.git