[Collab-qa-commits] r814 - / collab-qa-tools/lib/collab-qa not-in-testing

[lucas at alioth.debian.org]

Author: lucas
Date: 2008-04-26 16:17:40 +0000 (Sat, 26 Apr 2008)
New Revision: 814

Added:
   not-in-testing/
   not-in-testing/not-in-testing.rb
Modified:
   collab-qa-tools/lib/collab-qa/log-parser.rb
Log:
added short script to list packages not in testing, sorted by popcon

Modified: collab-qa-tools/lib/collab-qa/log-parser.rb
===================================================================
--- collab-qa-tools/lib/collab-qa/log-parser.rb	2008-04-26 15:22:07 UTC (rev 813)
+++ collab-qa-tools/lib/collab-qa/log-parser.rb	2008-04-26 16:17:40 UTC (rev 814)
@@ -71,7 +71,9 @@
     LD_LINES_CONTEXT = [
       / In function /,
       /: first defined here/,
-      /: warning: .* is deprecated; use .* instead/
+      /: warning: .* is deprecated; use .* instead/,
+      /: warning: cannot find entry symbol/
+
     ]
 
     LD_LINES_ERRORS = [
@@ -298,7 +300,14 @@
       /File format not recognized/,
       /libtool: link: cannot find the library/,
       / is already defined$/,
-      /Could not find module /
+      /Could not find module /,
+      / invalid option /,
+      /configure: error: The pkg-config script could not be found or is too old./,
+      /configure: error: installation or configuration problem:/,
+      /configure: error: can only configure for one host and one target at a time/,
+      /configure: error: C compiler cannot create executables/,
+      /dh_install: \w+ missing files /,
+      /dpkg-source: unrepresentable changes to source/
 
     ]
 

Added: not-in-testing/not-in-testing.rb
===================================================================
--- not-in-testing/not-in-testing.rb	                        (rev 0)
+++ not-in-testing/not-in-testing.rb	2008-04-26 16:17:40 UTC (rev 814)
@@ -0,0 +1,48 @@
+#!/usr/bin/ruby -w
+system("rm -f ddpo_packages popcon_by_inst")
+system("wget http://qa.debian.org/data/ddpo/results/ddpo_packages")
+system('wget -q -O /dev/stdout http://popcon.debian.org/by_inst | grep -v "^#" | grep -v "^Total" | awk \'{print $2 " " $3 " " $4 " " $5 " " $6 " " $7}\' > popcon_by_inst')
+
+pkgs = Hash::new { [] }
+f = IO::read("ddpo_packages")
+f.each_line do |l|
+  next if l =~ /^\)/
+  pkg = l.match(/^([^\(]*)\(/)[1]
+  vers = l.match(/\[([^\]]*)\]/)[1].split(/,/)
+  pkgs[pkg] = vers
+end
+
+def getpopcon
+s = IO::read('popcon_by_inst')
+pkg = IO::read('ddpo_packages')
+binpkg = {}
+pkg.each_line do |l|
+  next if l =~ /^\)\[/
+  src = l.match(/^([^\(]*)\(/)[1]
+  bin = l.match(/\(([^\)]*)\)/)[1]
+  bin.split(/, /).each do |b|
+    binpkg[b] = src
+  end
+end
+popcon = Hash::new { 0 }
+s.each_line do |l|
+  p, i, rest = l.split(' ')
+  s = binpkg[p]
+  i = i.to_i
+  popcon[s] = i if popcon[s] < i
+end
+#return popcon.to_a.sort { |a,b| a[1] <=> b[1] }.reverse
+return popcon
+end
+
+pc = getpopcon
+(pkgs.keys).uniq.sort { |a,b| pc[a] <=> pc[b] }.reverse.each do |p|
+  ptext = ""
+  if pkgs[p][1] == '-' and pkgs[p][2] != '-'
+    ptext += "in unstable (#{pkgs[p][2]}) but not in testing."
+  end
+  if ptext != ""
+    puts "#{p} (#{pc[p]}) #{ptext}"
+  end
+end
+


Property changes on: not-in-testing/not-in-testing.rb
___________________________________________________________________
Name: svn:executable
   + *