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

[lucas at alioth.debian.org]

Author: lucas
Date: 2008-06-05 12:55:14 +0000 (Thu, 05 Jun 2008)
New Revision: 883

Removed:
   ddpo-by-mail/DeadCode
Log:
removed Deadcode

Deleted: ddpo-by-mail/DeadCode
===================================================================
--- ddpo-by-mail/DeadCode	2008-06-05 12:54:04 UTC (rev 882)
+++ ddpo-by-mail/DeadCode	2008-06-05 12:55:14 UTC (rev 883)
@@ -1,106 +0,0 @@
-system('wget -q -O - http://popcon.debian.org/by_inst | grep -v "^#" | grep -v "^Total" | awk \'{print $2 " " $3 " " $4 " " $5 " " $6 " " $7}\' > popcon_by_inst')
-
-# parse popcon
-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
-
-if WRITEPCLIST
-  f = File::new('pc-list.txt', 'w')
-  pc = getpopcon
-  issues.keys.sort { |a,b| pc[a] <=> pc[b] }.reverse.each do |p|
-    ptext = ""
-    issues[p].each do |iss|
-      ptext += " ; " if ptext != ""
-      if iss[0] == :rc_bugs
-        rcbugs = iss[1].map { |b| "##{b}" }.join(', ')
-        ptext += "RC bugs (#{rcbugs})"
-      elsif iss[0] == :not_testing
-        ptext += "not in testing (>#{iss[1]}d)"
-      elsif iss[0] == :no_migration
-        ptext += "no testing migration (>#{iss[1]}d)"
-      end
-    end
-    f.puts "#{p} (#{pc[p]}) #{ptext}"
-  end
-  f.close
-end
-
-if WRITEDDLIST
-  f = File::new('dd-list.txt', 'w')
-  f.puts <<-EOF
-Subject: List of packages with problems regarding release
-
-Hi,
-
-Here is a list (sorted by maintainer email) of packages:
-- that have RC bugs older than #{BUG_AGE} days.
-- that are not currently in testing.
-- that have not migrated from unstable to testing for more than #{LAST_IN_SYNC} days.
-
-(U) after the package means "Uploader", as with dd-list.
-
-  EOF
-  maintainers_pkg.keys.sort.each do |email|
-    mpkgs = {}
-    gissues = 0
-    gtext =<<-EOF
-    #{maintainers_name[email]} <#{email}>
-  EOF
-    maintainers_pkg[email].each do |p|
-      if p =~ /#/
-        mpkgs[p.chop] = false
-      else
-        mpkgs[p] = true
-      end
-    end
-    mpkgs.keys.sort.each do |p|
-      if not mpkgs[p]
-        comaint = ' (U)'
-      else
-        comaint = ''
-      end
-      next if issues[p].empty?
-      ctext = "  #{p}#{comaint}:"
-      ptext = ""
-      issues[p].each do |iss|
-        if iss[0] == :rc_bugs
-          rcbugs = iss[1].map { |b| "##{b}" }.join(', ')
-          ptext += "#{ctext} has RC bugs (#{rcbugs})\n"
-        elsif iss[0] == :not_testing
-          ptext += "#{ctext} not in testing (>#{iss[1]}d)\n"
-        elsif iss[0] == :no_migration
-          ptext += "#{ctext} no testing migration (>#{iss[1]}d)\n"
-        end
-      end
-      gtext += ptext
-      gtext += "\n"
-      gissues += 1
-    end
-    if gissues > 0
-      gtext += "\n"
-      f.puts gtext
-    end
-  end
-  f.close
-end
-