From 2d8a599cc6d4a7c4e57c1474c8de161e6d618f06 Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Fri, 19 Jun 2015 15:54:28 +0200
Subject: [PATCH] Detect supported lang based on files in I18N

---
 templates/default/public_toolbar.html.ep |  2 +-
 vroom.pl                                 | 15 +++++++++------
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/templates/default/public_toolbar.html.ep b/templates/default/public_toolbar.html.ep
index 159e5f7..43c887d 100644
--- a/templates/default/public_toolbar.html.ep
+++ b/templates/default/public_toolbar.html.ep
@@ -30,7 +30,7 @@
           <% } %>
           <li class="hidden-xs">
             <select class="form-control navbar-btn" id="switch_lang">
-              <% foreach my $lang (qw(en fr)){ %>
+              <% foreach my $lang ($self->get_supported_lang){ %>
               <option value="<%= $lang %>" <%= ($self->languages eq $lang) ? 'selected="selected"' : '' %>>
                 <%= $lang %>
               </option>
diff --git a/vroom.pl b/vroom.pl
index c421c89..f1f5322 100755
--- a/vroom.pl
+++ b/vroom.pl
@@ -22,6 +22,7 @@ use Email::Valid;
 use Protocol::SocketIO::Handshake;
 use Protocol::SocketIO::Message;
 use File::Path qw(make_path);
+use File::Basename;
 use Data::Dumper;
 
 app->log->level('info');
@@ -57,15 +58,11 @@ our $error = undef;
 # Global peers hash
 our $peers = {};
 
-# Load I18N, and declare supported languages
+# Initialize localization
 plugin I18N => {
   namespace => 'Vroom::I18N',
 };
 
-# Supported languages must be declared here
-# Used to generate the dropdown menu
-our @supported_lang = qw(en fr);
-
 # Connect to the database
 # Only MySQL supported for now
 plugin database => {
@@ -453,6 +450,12 @@ helper update_room_last_activity => sub {
   return 1;
 };
 
+# Return an array of supported languages
+helper get_supported_lang => sub {
+  my $self = shift;
+  return map { basename(s/\.pm$//r) } glob('lib/Vroom/I18N/*.pm');
+};
+
 # Generate a random token
 helper get_random => sub {
   my $self = shift;
@@ -1408,7 +1411,7 @@ any '/api' => sub {
   }   
   # Handle requests authorized for anonymous users righ now
   if ($req->{action} eq 'switch_lang'){
-    if (!grep { $req->{param}->{language} eq $_ } @supported_lang){
+    if (!grep { $req->{param}->{language} eq $_ } $self->get_supported_lang()){
       return $self->render(
         json => {
           msg => $self->l('UNSUPPORTED_LANG'),