whimsy-asf 0.0.1

data/lib/whimsy/asf/auth.rb

@@ -0,0 +1,28 @@
+module ASF
+
+  class Authorization
+    include Enumerable
+
+    def self.find_by_id(value)
+      new.select {|auth, ids| ids.include? value}.map(&:first)
+    end
+
+    def initialize(file='asf')
+      @file = file
+    end
+
+    def each
+      auth = ASF::SVN['infra/infrastructure/trunk/subversion/authorization']
+      File.read("#{auth}/#{@file}-authorization-template").
+        scan(/^([-\w]+)=(\w.*)$/).each do |pmc, ids|
+        yield pmc, ids.split(',')
+      end
+    end
+  end
+
+  class Person
+    def auth
+      @auths ||= ASF::Authorization.find_by_id(name)
+    end
+  end
+end

data/lib/whimsy/asf/committee.rb

@@ -0,0 +1,124 @@
+module ASF
+
+  class Base
+  end
+
+  class Committee < Base
+    attr_accessor :info, :names, :emeritus, :report
+    def initialize(*args)
+      @info = []
+      @emeritus = []
+      super
+    end
+
+    # mapping of committee names to canonical names (generally from ldap)
+    # See also www/roster/committee.cgi
+    @@aliases = Hash.new {|hash, name| name}
+    @@aliases.merge! \
+      'community development'       => 'comdev',
+      'conference planning'         => 'concom',
+      'conferences'                 => 'concom',
+      'http server'                 => 'httpd',
+      'httpserver'                  => 'httpd',
+      'java community process'      => 'jcp',
+      'lucene.net'                  => 'lucenenet',
+      'quetzalcoatl'                => 'quetz',
+      'security team'               => 'security',
+      'open climate workbench'      => 'climate',
+      'c++ standard library'        => 'stdcxx',
+      'travel assistance'           => 'tac',
+      'traffic server'              => 'trafficserver',
+      'web services'                => 'ws',
+      'xml graphics'                => 'xmlgraphics'
+
+    @@namemap = Proc.new do |name|
+      cname = @@aliases[name.downcase]
+      cname
+    end
+
+    def self.load_committee_info
+      board = ASF::SVN['private/committers/board']
+      file = "#{board}/committee-info.txt"
+      if @committee_info and File.mtime(file) == @committee_mtime
+        return @committee_info 
+      end
+      @committee_mtime = File.mtime(file)
+
+      info = File.read(file).split(/^\* /)
+      head, report = info.shift.split(/^\d\./)[1..2]
+      head.scan(/^\s+(\w.*?)\s\s+.*<(\w+)@apache\.org>/).each do |name, id|
+        find(name).chair = ASF::Person.find(id) 
+      end
+      @nonpmcs = head.sub(/.*?also has/m,'').
+        scan(/^\s+(\w.*?)\s\s+.*<\w+@apache\.org>/).flatten.uniq.
+        map {|name| find(name)}
+
+      info.each do |roster|
+        committee = find(@@namemap.call(roster[/(\w.*?)\s+\(/,1]))
+        roster.gsub! /^.*\(\s*emeritus\s*\).*/i do |line|
+          committee.emeritus += line.scan(/<(.*?)@apache\.org>/).flatten
+          ''
+        end
+        committee.info = roster.scan(/<(.*?)@apache\.org>/).flatten
+        committee.names = Hash[roster.gsub(/\(\w+\)/, '').
+          scan(/^\s*(.*?)\s*<(.*?)@apache\.org>/).map {|list| list.reverse}]
+      end
+
+      report.scan(/^([^\n]+)\n---+\n(.*?)\n\n/m).each do |period, committees|
+        committees.scan(/^   \s*(.*)/).each do |committee|
+          committee, comment = committee.first.split(/\s+#\s+/,2)
+          committee = find(committee)
+          if comment
+            committee.report = "#{period}: #{comment}"
+          elsif period == 'Next month'
+            committee.report = 'Every month'
+          else
+            committee.report = period
+          end
+        end
+      end
+
+      @committee_info = ASF::Committee.collection.values
+    end
+
+    def self.nonpmcs
+      @nonpmcs
+    end
+
+    def self.find(name)
+      result = super(@@aliases[name.downcase])
+      result.display_name = name if name =~ /[A-Z]/
+      result
+    end
+
+    def chair
+      Committee.load_committee_info
+      @chair
+    end
+
+    def display_name
+      Committee.load_committee_info
+      @display_name || name
+    end
+
+    def display_name=(name)
+      @display_name ||= name
+    end
+
+    def chair=(person)
+      @chair = person
+    end
+
+    def info=(list)
+      @info = list
+    end
+
+    def names=(hash)
+      @names = hash
+    end
+
+    def nonpmc?
+      Committee.nonpmcs.include? self
+    end
+  end
+end

data/lib/whimsy/asf/icla.rb

@@ -0,0 +1,67 @@
+module ASF
+
+  class ICLA
+    include Enumerable
+
+    def self.find_by_id(value)
+      return if value == 'notinavail'
+      new.each do |id, name, email|
+        if id == value
+	  return Struct.new(:id, :name, :email).new(id, name, email)
+        end 
+      end
+      nil
+    end
+
+    def self.find_by_email(value)
+      value = value.downcase
+      ICLA.new.each do |id, name, email|
+        if email.downcase == value
+	  return Struct.new(:id, :name, :email).new(id, name, email)
+        end 
+      end
+      nil
+    end
+
+    def self.availids
+      return @availids if @availids
+      availids = []
+      ICLA.new.each {|id, name, email| availids << id unless id == 'notinavail'}
+      @availids = availids
+    end
+
+    def each(&block)
+      officers = ASF::SVN['private/foundation/officers']
+      iclas = File.read("#{officers}/iclas.txt")
+      iclas.scan(/^([-\w]+):.*?:(.*?):(.*?):/).each(&block)
+    end
+  end
+
+  class Person
+    def icla
+      @icla ||= ASF::ICLA.find_by_id(name)
+    end
+
+    def icla?
+      ICLA.availids.include? name
+    end
+  end
+
+  # Search archive for historical records of people who were committers
+  # but never submitted an ICLA (some of which are still ASF members or
+  # members of a PMC).
+  def self.search_archive_by_id(value)
+    require 'net/http'
+    require 'nokogiri'
+    historical_committers = 'http://people.apache.org/~rubys/committers.html'
+    doc = Nokogiri::HTML(Net::HTTP.get(URI.parse(historical_committers)))
+    doc.search('tr').each do |tr|
+      tds = tr.search('td')
+      next unless tds.length == 3
+      return tds[1].text if tds[0].text == value
+    end
+    nil
+  rescue
+    nil
+  end
+end

data/lib/whimsy/asf/ldap.rb

@@ -0,0 +1,232 @@
+require 'wunderbar'
+require 'rubygems'
+require 'ldap'
+
+module ASF
+
+  # determine whether or not the LDAP API can be used
+  def self.init_ldap
+    @ldap = nil
+    begin
+      conf = '/etc/ldap/ldap.conf'
+      host = File.read(conf).scan(/^uri\s+ldaps:\/\/(\S+?):(\d+)/i).first
+      if host
+         Wunderbar.info "Connecting to LDAP server: [ldaps://#{host[0]}:#{host[1]}]"
+      end
+    rescue Errno::ENOENT
+      host = nil
+      Wunderbar.error "No LDAP server defined, there must be a LDAP ldaps:// URI in /etc/ldap/ldap.conf"
+    end
+    begin
+      @ldap = LDAP::SSLConn.new(host.first, host.last.to_i) if host
+    rescue LDAP::ResultError=>re
+      Wunderbar.error "Error binding to LDAP server: message: ["+ re.message + "]"
+    end
+  end
+
+  # search with a scope of one
+  def self.search_one(base, filter, attrs=nil)
+    init_ldap unless defined? @ldap
+    return [] unless @ldap
+
+    Wunderbar.info "ldapsearch -x -LLL -b #{base} -s one #{filter} " +
+      "#{[attrs].flatten.join(' ')}"
+    
+    begin
+      result = @ldap.search2(base, LDAP::LDAP_SCOPE_ONELEVEL, filter, attrs)
+    rescue
+      result = []
+    end
+
+    result.map! {|hash| hash[attrs]} if String === attrs
+
+    result
+  end
+
+  def self.pmc_chairs
+    @pmc_chairs ||= Service.find('pmc-chairs').members
+  end
+
+  def self.committers
+    @committers ||= Group.find('committers').members
+  end
+
+  def self.members
+    @members ||= Group.find('member').members
+  end
+
+  class Base
+    attr_reader :name
+
+    def self.base
+      @base
+    end
+
+    def base
+      self.class.base
+    end
+
+    def self.collection
+      @collection ||= Hash.new
+    end
+
+    def self.[] name
+      collection[name] || new(name)
+    end
+
+    def self.find name
+      collection[name] || new(name)
+    end
+
+    def self.new name
+      collection[name] || super
+    end
+
+    def initialize name
+      self.class.collection[name] = self
+      @name = name
+    end
+
+    unless Object.respond_to? :id
+      def id
+        @name
+      end
+    end
+  end
+
+  class LazyHash < Hash
+    def initialize(&initializer)
+      @initializer = initializer
+    end
+
+    def load
+     return unless @initializer
+     merge! @initializer.call || {}
+     @initializer = super
+    end
+
+    def [](key)
+      result = super
+      if not result and not keys.include? key and @initializer
+        merge! @initializer.call || {}
+        @initializer = nil
+        result = super
+      end
+      result
+    end
+  end
+
+  class Person < Base
+    @base = 'ou=people,dc=apache,dc=org'
+
+    def self.list(filter='uid=*')
+      ASF.search_one(base, filter, 'uid').flatten.map {|uid| find(uid)}
+    end
+
+    # pre-fetch a given attribute, for a given list of people
+    def self.preload(attributes, people={})
+      attributes = [attributes].flatten
+
+      if people.empty?
+        filter = "(|#{attributes.map {|attribute| "(#{attribute}=*)"}.join})"
+      else
+        filter = "(|#{people.map {|person| "(uid=#{person.name})"}.join})"
+      end
+      
+      zero = Hash[attributes.map {|attribute| [attribute,nil]}]
+
+      data = ASF.search_one(base, filter, attributes + ['uid'])
+      data = Hash[data.map! {|hash| [find(hash['uid'].first), hash]}]
+      data.each {|person, hash| person.attrs.merge!(zero.merge(hash))}
+
+      if people.empty?
+        (collection.values - data.keys).each do |person| 
+          person.attrs.merge! zero
+        end
+      end
+    end
+
+    def attrs
+      @attrs ||= LazyHash.new {ASF.search_one(base, "uid=#{name}").first}
+    end
+
+    def public_name
+      cn = [attrs['cn']].flatten.first
+      cn.force_encoding('utf-8') if cn.respond_to? :force_encoding
+      return cn if cn
+      return icla.name if icla
+      ASF.search_archive_by_id(name)
+    end
+
+    def asf_member?
+      ASF::Member.status[name] or ASF.members.include? self
+    end
+
+    def banned?
+      not attrs['loginShell'] or attrs['loginShell'].include? "/usr/bin/false"
+    end
+
+    def mail
+      attrs['mail'] || []
+    end
+
+    def alt_email
+      attrs['asf-altEmail'] || []
+    end
+
+    def pgp_key_fingerprints
+      attrs['asf-pgpKeyFingerprint']
+    end
+
+    def urls
+      attrs['asf-personalURL'] || []
+    end
+
+    def committees
+      Committee.list("member=uid=#{name},#{base}")
+    end
+
+    def groups
+      Group.list("memberUid=#{name}")
+    end
+  end
+
+  class Group < Base
+    @base = 'ou=groups,dc=apache,dc=org'
+
+    def self.list(filter='cn=*')
+      ASF.search_one(base, filter, 'cn').flatten.map {|cn| find(cn)}
+    end
+
+    def members
+      ASF.search_one(base, "cn=#{name}", 'memberUid').flatten.
+        map {|uid| Person.find(uid)}
+    end
+  end
+
+  class Committee < Base
+    @base = 'ou=pmc,ou=committees,ou=groups,dc=apache,dc=org'
+
+    def self.list(filter='cn=*')
+      ASF.search_one(base, filter, 'cn').flatten.map {|cn| Committee.find(cn)}
+    end
+
+    def members
+      ASF.search_one(base, "cn=#{name}", 'member').flatten.
+        map {|uid| Person.find uid[/uid=(.*?),/,1]}
+    end
+  end
+
+  class Service < Base
+    @base = 'ou=groups,ou=services,dc=apache,dc=org'
+
+    def self.list(filter='cn=*')
+      ASF.search_one(base, filter, 'cn').flatten
+    end
+
+    def members
+      ASF.search_one(base, "cn=#{name}", 'member').flatten.
+        map {|uid| Person.find uid[/uid=(.*?),/,1]}
+    end
+  end
+end