Control: block -1 by 877902
Control: tags -1 patch
Hi!
On Thu, 2011-10-06 at 20:33:20 -0700, Matt Taggart wrote:
> Package: devscripts
> Version: 2.11.1
> Severity: wishlist
> Does a command-line tool exist to search the reasons for removal of a
> package from testing/unstable? Basically something to parse
>
> http://ftp-master.debian.org/removals-full.txt
>
> and give the user a reason. Similar to grep-excuses.
Yeah, I was also tired of wgetting and grepping these files by hand
every time a package disappeared from my systems, so I wrote such a
program. Unfortunately there are some DAK bugs generating bogus
deb822-formatted files that make the parser get upset. That's why
I've added a --no-refresh option, which is what I use for now. Let
it download, if it works, good, otherwise I edit the file to fix the
problem and rerun the script with that option. :/
> This would be nice to have in devscripts.
Right. Patch attached, although I guess it might make sense to hold
it off until the blocking bug gets fixed.
Thanks,
Guillem
From 8805fe0ea3d5d055e7cbf4f5b111266e18fa5b40 Mon Sep 17 00:00:00 2001
From: Guillem Jover <guil...@debian.org>
Date: Tue, 1 May 2018 22:44:20 +0200
Subject: [PATCH 1/2] scripts/Makefile: Split each script into its own line
This makes changes easier to spot on diff output.
---
scripts/Makefile | 33 ++++++++++++++++++++++++++++++---
1 file changed, 30 insertions(+), 3 deletions(-)
diff --git a/scripts/Makefile b/scripts/Makefile
index ab2b59ee..374920e5 100644
--- a/scripts/Makefile
+++ b/scripts/Makefile
@@ -24,9 +24,36 @@ COMPL_FILES := $(wildcard *.bash_completion)
BC_BUILD_DIR:=bash_completion
COMPLETION = $(patsubst %.bash_completion,$(BC_BUILD_DIR)/%,$(COMPL_FILES))
COMPL_DIR := $(shell pkg-config --variable=completionsdir bash-completion)
-PKGNAMES:=wnpp-alert wnpp-check mk-build-deps rmadison mass-bug debsnap dd-list build-rdeps who-uploads transition-check getbuildlog dcontrol grep-excuses rc-alert whodepends dget pts-subscribe pts-unsubscribe debcheckout
-
-GEN_MAN1S += debrepro.1 devscripts.1 ltnu.1 mk-origtargz.1 uscan.1 reproducible-check.1
+PKGNAMES := \
+ build-rdeps \
+ dcontrol \
+ dd-list \
+ debcheckout \
+ debsnap \
+ dget \
+ getbuildlog \
+ grep-excuses \
+ mass-bug \
+ mk-build-deps \
+ pts-subscribe \
+ pts-unsubscribe \
+ rc-alert \
+ rmadison \
+ transition-check \
+ who-uploads \
+ whodepends \
+ wnpp-alert \
+ wnpp-check \
+ $(nil)
+
+GEN_MAN1S += \
+ debrepro.1 \
+ devscripts.1 \
+ ltnu.1 \
+ mk-origtargz.1 \
+ reproducible-check.1 \
+ uscan.1 \
+ $(nil)
all: $(SCRIPTS) $(GEN_MAN1S) $(CWRAPPERS) $(COMPLETION)
--
2.17.0.441.gb46fe60e1d
From 06c02aab716cb23bcc7c80a087e876f21b7d7e69 Mon Sep 17 00:00:00 2001
From: Guillem Jover <guil...@debian.org>
Date: Wed, 2 May 2018 02:46:32 +0200
Subject: [PATCH 2/2] deb-why-removed: New tool to fetch package removal
information
Closes: #644575
---
.gitignore | 2 +
README | 3 +
debian/control | 2 +
po4a/devscripts-po4a.conf | 2 +
scripts/Makefile | 1 +
scripts/deb-why-removed.pl | 175 +++++++++++++++++++++++++++++++++++++
6 files changed, 185 insertions(+)
create mode 100755 scripts/deb-why-removed.pl
diff --git a/.gitignore b/.gitignore
index 25cddaec..2574ca9c 100644
--- a/.gitignore
+++ b/.gitignore
@@ -41,6 +41,8 @@ scripts/dcontrol.1
scripts/dd-list
scripts/deb-reversion
scripts/deb-reversion.1
+scripts/deb-why-removed
+scripts/deb-why-removed.1
scripts/debc
scripts/debchange
scripts/debcheckout
diff --git a/README b/README
index 0d754bb6..7961e4a7 100644
--- a/README
+++ b/README
@@ -154,6 +154,9 @@ And now, in mostly alphabetical order, the scripts:
- deb-reversion: increases a binary package version number and repacks the
package, useful for porters and the like
+- deb-why-removed: shows the reason a package was removed from the archive
+ [libdpkg-perl]
+
- dep3changelog: generate a changelog entry from a DEP3-style patch header
- desktop2menu: given a freedesktop.org desktop file, generate a skeleton
diff --git a/debian/control b/debian/control
index c9795994..eb9fb4ba 100644
--- a/debian/control
+++ b/debian/control
@@ -185,6 +185,8 @@ Description: scripts to make the life of a Debian Package maintainer easier
gnupg | gnupg2]
- deb-reversion: increase a binary package version number and repacks the
package, useful for porters and the like
+ - deb-why-removed: shows the reason a package was removed from the archive
+ [libdpkg-perl]
- dep3changelog: generate a changelog entry from a DEP3-style patch header
- desktop2menu: given a freedesktop.org desktop file, generate a skeleton
for a menu file [libfile-desktopentry-perl]
diff --git a/po4a/devscripts-po4a.conf b/po4a/devscripts-po4a.conf
index e4a89e2f..38eec45f 100644
--- a/po4a/devscripts-po4a.conf
+++ b/po4a/devscripts-po4a.conf
@@ -54,6 +54,8 @@
$lang:$lang/debrelease.$lang.1 add_$lang:?add_$lang/translator_man.add
[type:docbook] ../scripts/deb-reversion.dbk \
$lang:$lang/deb-reversion.$lang.dbk add_$lang:?add_$lang/translator_dbk.add
+[type:pod] ../scripts/deb-why-removed.pl \
+ $lang:$lang/deb-why-removed.$lang.pl add_$lang:?add_$lang/translator_pod.add
[type:man] ../scripts/debrsign.1 \
$lang:$lang/debrsign.$lang.1 add_$lang:?add_$lang/translator_man.add
[type:man] ../scripts/debsign.1 \
diff --git a/scripts/Makefile b/scripts/Makefile
index 374920e5..9e3ef756 100644
--- a/scripts/Makefile
+++ b/scripts/Makefile
@@ -47,6 +47,7 @@ PKGNAMES := \
$(nil)
GEN_MAN1S += \
+ deb-why-removed.1 \
debrepro.1 \
devscripts.1 \
ltnu.1 \
diff --git a/scripts/deb-why-removed.pl b/scripts/deb-why-removed.pl
new file mode 100755
index 00000000..3d263160
--- /dev/null
+++ b/scripts/deb-why-removed.pl
@@ -0,0 +1,175 @@
+#!/usr/bin/perl
+#
+# Copyright © 2017-2018 Guillem Jover <guil...@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/>.
+
+use strict;
+use warnings;
+
+use File::Basename;
+use File::Path qw(make_path);
+use File::Spec;
+use Getopt::Long qw(:config posix_default no_ignorecase);
+use HTTP::Tiny;
+use Dpkg::Index;
+
+my $VERSION = '0.0';
+my ($PROGNAME) = $0 =~ m{(?:.*/)?([^/]*)};
+
+my %url_map = (
+ 'debian' => 'https://ftp-master.debian.org/removals.822',
+);
+my $default_url = 'debian';
+
+sub version
+{
+ print "$PROGNAME $VERSION (devscripts ###VERSION###)\n";
+}
+
+sub usage
+{
+ print <<HELP;
+Usage: $PROGNAME [<option>...] <package>...
+
+Options:
+ -u, --url URL URL to the removals deb822 file list (defaults to
+ <$url_map{$default_url}>).
+ --no-refresh Do not refresh the cached removals file even if new.
+ -?, --help Print this help text.
+ --version Print the version.
+HELP
+}
+
+sub error
+{
+ my @msg = @_;
+
+ print { *STDERR } "E: @msg\n";
+ exit 1;
+}
+
+my $opts;
+
+unless (GetOptions(
+ 'url|u=s' => \$opts->{'url'},
+ 'no-refresh' => \$opts->{'no-refresh'},
+ 'help|?' => sub { usage(); exit 0 },
+ 'version' => sub { version(); exit 0 },
+)) {
+ die "\nUsage: $PROGNAME [<option>...] <package>...\n" .
+ "Run $PROGNAME --help for more details.\n";
+};
+
+unless (@ARGV) {
+ error('need at least one package name as an argument');
+}
+
+my $url = $opts->{url} // $default_url;
+$url = $url_map{$url} if $url_map{$url};
+
+my $cachehome = $ENV{XDG_CACHE_HOME};
+$cachehome ||= File::Spec->catdir($ENV{HOME}, '.cache') if length $ENV{HOME};
+if (length $cachehome == 0) {
+ error("unknown user home, cannot download removal metadata");
+}
+my $cachedir = File::Spec->catdir($cachehome, 'devscripts', 'deb-why-removed');
+my $cachefile = File::Spec->catfile($cachedir, basename($url));
+
+if (not -d $cachedir) {
+ make_path($cachedir);
+}
+
+if (not -e $cachefile or (-e _ and not $opts->{'no-refresh'})) {
+ # Cache the file locally.
+ my $http = HTTP::Tiny->new(verify_SSL => 1);
+ my $resp = $http->mirror($url, $cachefile);
+
+ unless ($resp->{success}) {
+ error("cannot fetch removal metadata: $resp->{status} $resp->{reason}");
+ }
+}
+
+my $meta = Dpkg::Index->new(
+ get_key_func => sub { return $_[0]->{Sources} // $_[0]->{Binaries} },
+);
+
+$meta->load($cachefile, compression => 0);
+
+STANZA: foreach my $entry ($meta->get) {
+ foreach my $pkg (@ARGV) {
+ next if defined $entry->{Sources} and $entry->{Sources} !~ m/\Q$pkg\E_/;
+ next if defined $entry->{Binaries} and $entry->{Binaries} !~ m/\Q$pkg\E_/;
+
+ print $entry->output();
+ print "\n";
+ next STANZA;
+ }
+}
+
+=encoding utf8
+
+=head1 NAME
+
+deb-why-removed - shows the reason a package was removed from the archive
+
+=head1 SYNOPSIS
+
+B<deb-why-removed> [I<option>...] I<package>...
+
+=head1 DESCRIPTION
+
+This program will download the removals metadata from the archive, search
+and print the entries whitin for a source or binary package name match.
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-u>, B<--url> I<URL>
+
+URL to the archive removals deb822-formatted file list.
+
+=item B<--no-refresh>
+
+Do not refresh the cached removals file even if there is a newer version
+in the archive.
+
+=item B<-?>, B<--help>
+
+Show a help message and exit.
+
+=item B<--version>
+
+Show the program version.
+
+=back
+
+=head1 FILES
+
+=over 4
+
+=item I<cachedir>B</devscripts/deb-why-removed/>
+
+This directory contains the cached removal files downloaded from the archive.
+I<cachedir> will be either B<$XDG_CACHE_HOME> or if that is not defined
+B<$HOME/.cache/>.
+
+=back
+
+=head1 SEE ALSO
+
+L<https://ftp-master.debian.org/#removed>
+
+=cut
--
2.17.0.441.gb46fe60e1d
