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"
_______________________________________________
Collab-qa-commits mailing list
[email protected]
http://lists.alioth.debian.org/mailman/listinfo/collab-qa-commits
