SpeciesFileGroup/taxonworks

# ORCID iD - https://orcid.org/
class Identifier::Global::Orcid < Identifier::Global
  validate :using_orcid_class

  validate :person_use_only

  # 'http://orcid.org/0000-0002-1825-0097'
  def using_orcid_class
    unless identifier.nil?
      orcid = identifier.upcase

      /^(?<preamble>http[s]?:\/\/){0,1}(?<domain>orcid\.org\/){1}(?<part_1>\d{4})-(?<part_2>\d{4})-(?<part_3>\d{4})-(?<part_4>\d{3})(?<last>.)$/i =~ orcid

      if domain.nil? or part_1.nil? or part_2.nil? or part_3.nil? or part_4.nil? or last.nil?
        errors.add(:identifier, "'#{identifier}' is an improperly formed ORCID ID.")
        return
      end

      if last != generate_check_digit(part_1 + part_2 + part_3 + part_4)
        errors.add(:identifier, "'#{identifier}' has bad check digit.")
        return
      end
    end
  end

  def generate_check_digit(base_digits)
    total = 0

    base_digits.each_char { |digit|
      total = (total + digit.to_i) * 2
    }
    remainder = (total % 11)
    result = (12 - remainder) % 11
    return result == 10 ? 'X' : result.to_s
  end

  private

  def person_use_only
    errors.add(:identifier_object_type, 'is not a Person') if identifier_object_type.present? && identifier_object_type != 'Person'
  end

end