HttpAcceptLanguage

# File lib/http_accept_language.rb, line 49
def compatible_language_from(available_languages)
  user_preferred_languages.map do |preferred|
    available_languages.find do |available|
      available.to_s =~ /^#{Regexp.escape(preferred.to_s)}(-|$)/
    end
  end.compact.first
end

# File lib/http_accept_language.rb, line 38
def preferred_language_from(array)
  (user_preferred_languages & array.collect { |i| i.to_s }).first
end

# File lib/http_accept_language.rb, line 11
def user_preferred_languages
  @user_preferred_languages ||= env['HTTP_ACCEPT_LANGUAGE'].split(/\s*,\s*/).collect do |l|
    l += ';q=1.0' unless l =~ /;q=\d+\.\d+$/
    l.split(';q=')
  end.sort do |x,y|
    raise "Not correctly formatted" unless x.first =~ /^[a-z\-]+$/
    y.last.to_f <=> x.last.to_f
  end.collect do |l|
    l.first.downcase.gsub(/-[a-z]+$/) { |x| x.upcase }
  end
rescue # Just rescue anything if the browser messed up badly.
  []
end

# File lib/http_accept_language.rb, line 27
def user_preferred_languages=(languages)
  @user_preferred_languages = languages
end