+
+ # This constant hash holds the mapping
+ # from long language names to the usual POSIX
+ # locale specifications
+ Lang2Locale = {
+ :english => 'en',
+ :british_english => 'en_GB',
+ :american_english => 'en_US',
+ :italian => 'it',
+ :french => 'fr',
+ :german => 'de',
+ :dutch => 'nl',
+ :japanese => 'ja',
+ :russian => 'ru',
+ :traditional_chinese => 'zh_TW',
+ :simplified_chinese => 'zh_CN'
+ }
+ # On WIN32 it appears necessary to have ".UTF-8" explicitly for gettext to use UTF-8
+ Lang2Locale.each_value {|v| v.replace(v + '.UTF-8')}
+
+ # Return the shortest language for the current
+ # GetText locale
+ def Language.from_locale
+ return 'english' unless defined?(GetText)
+ lang = locale.language
+ if locale.country
+ str = lang + "_#{locale.country}"
+ if Lang2Locale.value?(str)
+ # Get the shortest key in Lang2Locale which maps to the given lang_country
+ lang_str = Lang2Locale.select { |k, v| v == str }.transpose.first.map { |v| v.to_s }.sort { |a, b| a.length <=> b.length }.first
+ if File.exist?(File.join(Config::datadir, "languages/#{lang_str}.lang"))
+ return lang_str
+ end
+ end
+ end
+ # lang_country didn't work, let's try lan
+ if Lang2Locale.value?(lang)
+ # Get the shortest key in Lang2Locale which maps to the given lang
+ lang_str = Lang2Locale.select { |k, v| v == lang }.transpose.first.map { |v| v.to_s }.sort { |a, b| a.length <=> b.length }.first
+ if File.exist?(File.join(Config::datadir, "/languages/#{lang_str}.lang"))
+ return lang_str
+ end
+ end
+ # all else fail, return 'english'
+ return 'english'
+ end
+
+ Config.register Config::EnumValue.new('core.language',
+ :default => Irc::Bot::Language.from_locale, :wizard => true,
+ :values => Proc.new{|bot|
+ Dir.new(Config::datadir + "/languages").collect {|f|
+ f =~ /\.lang$/ ? f.gsub(/\.lang$/, "") : nil
+ }.compact
+ },
+ :on_change => Proc.new {|bot, v| bot.lang.set_language v},