[Collab-qa-commits] r2517 - rc-buggy-leaf-packages

[Niels Thykier]

Author: nthykier
Date: 2012-10-14 22:56:20 +0000 (Sun, 14 Oct 2012)
New Revision: 2517

Added:
   rc-buggy-leaf-packages/leaf2remove.pl
Log:
Add leaf2remove.pl script

Added: rc-buggy-leaf-packages/leaf2remove.pl
===================================================================
--- rc-buggy-leaf-packages/leaf2remove.pl	                        (rev 0)
+++ rc-buggy-leaf-packages/leaf2remove.pl	2012-10-14 22:56:20 UTC (rev 2517)
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+#
+# Copyright 2011 Niels Thykier <niels at thykier.net>
+# License: GPL-2 (or at your option any later)
+#
+# Usage: $0 < leaf-packages > removal-hints
+#
+# NB: leaf-packages is the file/output from
+# rt-find-rc-buggy-leaf-packages.
+#
+
+use strict;
+use warnings;
+
+use Dpkg::Control;
+
+my $ctrl;
+
+while (defined ($ctrl = Dpkg::Control->new) and
+       $ctrl->parse (\*STDIN, '<stdin>')) {
+    my $src = $ctrl->{'Package'};
+    my $version = $ctrl->{'Version'};
+    my $bugs_raw = $ctrl->{'Bugs'};
+    my $bugs = '#' . join ('/#', split m/\s++/, $bugs_raw);
+    print "# $bugs\nremove $src/$version\n\n";
+}


Property changes on: rc-buggy-leaf-packages/leaf2remove.pl
___________________________________________________________________
Added: svn:executable
   + *