Bug#720982: how-can-i-help: support providing a list of additional packages to care about

[Christophe Siraut]

Now with better help message.

Regards,
Christophe

--- /usr/bin/how-can-i-help	2013-09-12 09:11:18.000000000 +0200
+++ how-can-i-help	2013-09-12 16:55:24.602299535 +0200
@@ -33,6 +33,7 @@
 $quiet = false
 $all = false
 $root = (Process.euid == 0)
+$additionals = nil
 
 optparse = OptionParser.new do |opts|
   opts.on('-h', '--help', 'show help') do
@@ -48,6 +49,10 @@
     $quiet = true
   end
 
+  opts.on('-p',  '--packages somepackage,anotherone,yetanother', Array, 'provide a list of additional packages to care about') do |ap|
+    $additionals = ap
+  end
+
 end
 optparse.parse!
 
@@ -95,6 +100,12 @@
   end
 end
 
+if $additionals
+  $additionals.each do |p|
+    packages << p.lstrip
+  end
+end
+
 helpitems_filtered = []
 helpitems.each do |hi|
   next if (not $all) and seen.include?(hi['hash'])