update-cdbs-dh7.rb

   1 #!/usr/bin/ruby -w
   2
   3 require 'date'
   4
   5 BROKEN_DATES = ['2011-05-16', '2011-05-17', '2011-05-18', '2011-05-19', '2011-05-20']
   6
   7 system("scp lintian.debian.org:~cjwatson/dhstats.txt .")
   8 f = File::new("cdbs-dh7.txt", 'w')
   9 f.puts "date dh dh7 cdbs"
  10 IO::read("dhstats.txt").split(/\n\n/).each do |par|
  11   par.strip!
  12   next if par == "Sun Sep 20 00:29:01 UTC 2009"
  13   lines = par.split(/\n/)
  14   date = Date::parse(lines[0]).to_s
  15   dh = lines.grep(/^debhelper: /)[0].split[2].gsub(/[\(\)\%]/,'').to_f
  16   dh7 = lines.grep(/^dh\(1\): /)[0].split[2].gsub(/[\(\)\%]/,'').to_f
  17   cdbs = lines.grep(/^CDBS: /)[0].split[2].gsub(/[\(\)\%]/,'').to_f
  18   next if BROKEN_DATES.include?(date)
  19   f.puts "#{date} #{dh - dh7 - cdbs} #{dh7} #{cdbs}"
  20 end
  21 f.close
  22 system("rm dhstats.txt")