[Collab-qa-commits] r845 - ddpo-by-mail

[lucas at alioth.debian.org]

Author: lucas
Date: 2008-05-01 09:25:42 +0000 (Thu, 01 May 2008)
New Revision: 845

Modified:
   ddpo-by-mail/reminder-mail.rb
Log:
add support for missing builds

Modified: ddpo-by-mail/reminder-mail.rb
===================================================================
--- ddpo-by-mail/reminder-mail.rb	2008-05-01 09:07:40 UTC (rev 844)
+++ ddpo-by-mail/reminder-mail.rb	2008-05-01 09:25:42 UTC (rev 845)
@@ -55,6 +55,14 @@
   end
 end
 
+# Get missing builds
+builds = {}
+IO::read('ood_excuses.txt').each_line do |l|
+  pkg, ver, archs = l.chomp.split(' ')
+  builds[pkg] = archs
+end
+
+
 # get removals
 rms = `lynx -dump 'http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=ftp.debian.org;dist=unstable' |grep RM | awk '{print $4}'`.chomp.split(/\n/).map { |e| e.chomp(',') }
 
@@ -81,6 +89,10 @@
     pissues << [ :bugs, bugs[pkg] ]
     pserious = bugs[pkg].inject(pserious) { |a, b| a or b[1] } # update pserious
   end
+  if builds[pkg]
+    pissues << [ :builds, builds[pkg] ]
+    pserious = true
+  end
   if testingissues[pkg]
     pissues << testingissues[pkg]
     pserious ||= testingissues[pkg][1]
@@ -155,6 +167,11 @@
             ptext += "  Part of release goal: #{b[2]}\n"
           end
         end
+      elsif iss[0] == :builds
+        incptext = true
+        ptext += "= Missing build(s) on #{iss[1]}\n"
+        ptext += "  This might need manual action from your side.\n"
+        ptext += "  See http://buildd.debian.org/pkg.cgi?pkg=#{pkg}\n"
       elsif iss[0] == :not_testing
         incptext = true
         ptext += "= Not in testing for #{iss[2]} days.\n"