Bug#876701: rc-alert: a patch for ~/.boring-bugs to ignore

[Adam Borowski]

Package: devscripts
Version: 2.17.10
Severity: wishlist
Tags: patch

Hi!
When doing QA (be it for installed packages, orphaned, etc), typically a
good part of bugs are things you don't care about or are not the right
person to fix: packages written in a language you don't know, deal with
stuff you'd personally prefer to be gone, not-a-bugs, etc.

Seeing that bug in a node.php library for integrating instagram support on
iPhones (that's a dependency of something you use) is a waste of your time. 
It makes skimming through the bug list tedious.  Same for
"firefox/gcc-snapshot: keep out of testing".

Thus, it'd be nice to be able to mark bugs _you_ don't care about.  I don't
think this is a good use for usertags: your personal preferences are utterly
irrelevant for others.  Thus, such a list would be best stored locally.

Here's a patch that implements "~/.boring-bugs".  If such a file exists, all
lines starting with a bug number make rc-alert and tools that use it filter
out those bugs.


Meow!
-- System Information:
Debian Release: buster/sid
  APT prefers unstable-debug
  APT policy: (500, 'unstable-debug'), (500, 'unstable'), (500, 'testing'), (150, 'experimental')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 4.14.0-rc1-debug-00015-g5d70f4373c12 (SMP w/6 CPU cores)
Locale: LANG=C.UTF-8, LC_CTYPE=C.UTF-8 (charmap=UTF-8), LANGUAGE=C.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Init: sysvinit (via /sbin/init)

Versions of packages devscripts depends on:
ii  dpkg-dev              1.18.24
ii  libc6                 2.24-17
ii  libfile-homedir-perl  1.00-1
ii  perl                  5.26.0-8
ii  python3               3.5.3-3

Versions of packages devscripts recommends:
ii  apt                         1.5
pn  at                          <none>
ii  curl                        7.55.1-1
ii  dctrl-tools                 2.24-2+b1
ii  debian-keyring              2017.08.28
ii  dput-ng [dput]              1.15
ii  dupload                     2.9.0
ii  equivs                      2.1.0
ii  fakeroot                    1.22-1
ii  file                        1:5.32-1
ii  gnupg                       2.2.1-1
ii  libdistro-info-perl         0.17
ii  libdpkg-perl                1.18.24
ii  libencode-locale-perl       1.05-1
pn  libgit-wrapper-perl         <none>
pn  liblist-compare-perl        <none>
ii  liblwp-protocol-https-perl  6.07-2
pn  libsoap-lite-perl           <none>
ii  liburi-perl                 1.72-1
ii  libwww-perl                 6.15-2
ii  licensecheck                3.0.31-2
ii  lintian                     2.5.53
ii  man-db                      2.7.6.1-2
ii  patch                       2.7.5-1+b2
ii  patchutils                  0.3.4-2
ii  python3-apt                 1.4.0~beta3+b1
ii  python3-debian              0.1.31
ii  python3-magic               1:5.32-1
ii  python3-requests            2.18.1-1
pn  python3-unidiff             <none>
pn  python3-xdg                 <none>
ii  sensible-utils              0.0.10
ii  strace                      4.15-2
ii  unzip                       6.0-21
ii  wdiff                       1.2.2-2
ii  wget                        1.19.1-4
ii  xz-utils                    5.2.2-1.3

Versions of packages devscripts suggests:
ii  adequate                     0.15.1
ii  autopkgtest                  5.0
pn  bls-standalone               <none>
ii  bsd-mailx [mailx]            8.1.2-0.20160123cvs-4
ii  build-essential              12.4
pn  check-all-the-things         <none>
pn  cvs-buildpackage             <none>
pn  devscripts-el                <none>
pn  diffoscope                   <none>
pn  disorderfs                   <none>
ii  dose-extra                   5.0.1-9+b1
pn  duck                         <none>
pn  faketime                     <none>
pn  gnuplot                      <none>
ii  gpgv                         2.2.1-1
pn  how-can-i-help               <none>
ii  libauthen-sasl-perl          2.1600-1
ii  libfile-desktopentry-perl    0.22-1
pn  libnet-smtps-perl            <none>
ii  libterm-size-perl            0.207-1+b6
ii  libtimedate-perl             2.3000-2
pn  libyaml-syck-perl            <none>
pn  mozilla-devscripts           <none>
ii  mutt                         1.8.3+neomutt20170609-2+b1
ii  openssh-client [ssh-client]  1:7.5p1-10.0nosystemd1
ii  piuparts                     0.80
ii  quilt                        0.63-8.1
pn  ratt                         <none>
pn  reprotest                    <none>
pn  svn-buildpackage             <none>
pn  w3m                          <none>

-- no debconf information
-------------- next part --------------
--- /usr/bin/rc-alert	2017-09-14 04:08:30.000000000 +0200
+++ rc-alert	2017-09-25 00:08:22.929790385 +0200
@@ -209,6 +209,18 @@
 	die "$progname: could not run $curl_or_wget: $!\n";
 }
 
+## Check the local list of "boring" bugs
+my %boring;
+if (open BOR, '<', "$ENV{HOME}/.boring-bugs")
+{
+    while (<BOR>)
+    {
+    	next unless /^(\d+)\s/;
+    	$boring{$1} = 1;
+    }
+    close BOR;
+}
+
 ## Get list of installed packages (not source packages)
 my $package_list;
 if (@ARGV) {
@@ -315,6 +327,8 @@
 sub store_if_relevant(%) {
     my %args = @_;
 
+    return if $boring{$args{num}};
+
     my $pkgname = $args{pkg};
     $args{pkg} =~ s/^src://;