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"
      return unless File.exist? file
      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