Display number of members in room in the admin area

The number should be quite accurate, as it's now counting socket.io peers

lib/Vroom/I18N/en.pm

@@ -156,6 +156,7 @@ our %Lexicon = (
   "EMAIL_INVITE"                         => "Email invitation",
   "DELETE"                               => "Delete",
   "CONFIRM_DELETE"                       => "Confirm delation",
+  "ROOM_WILL_BE_DELETED"                 => "This room, and its configuration will be deleted",
   "LOGOUT"                               => "Leave the room",
   "LEAVE_THIS_ROOM"                      => "Leave the room",
   "ARE_YOU_SURE_YOU_WANT_TO_LEAVE"       => "Are you sure you want to leave this room ?",

lib/Vroom/I18N/fr.pm

@@ -162,6 +162,7 @@ our %Lexicon = (
     "EMAIL_INVITE"                              => "Invitation par email",
     "DELETE"                                    => "Supprimer",
     "CONFIRM_DELETE"                            => "Confirmer la suppression",
+    "ROOM_WILL_BE_DELETED"                      => "Le salon, ainsi que sa configuration seront définitivement supprimés",
     "LOGOUT"                                    => "Quitter le salon",
     "LEAVE_THIS_ROOM"                           => "Quitter le salon",
     "ARE_YOU_SURE_YOU_WANT_TO_LEAVE"            => "Êtes-vous sûr de vouloir quitter le salon ?",

public/js/vroom.js

@@ -423,6 +423,7 @@ function initAdminRooms(){
             .append($('<td>').html(stringEscape(obj.name)))
             .append($('<td>').html(stringEscape(create)).addClass('hidden-xs'))
             .append($('<td>').html(stringEscape(activity)).addClass('hidden-xs'))
+            .append($('<td>').html(obj.members).addClass('hidden-xs'))
             .append($('<td>')
               .append($('<div>').addClass('btn-group')
                 .append($('<a>').addClass('btn btn-default').attr('href',rootUrl + obj.name)

templates/default/admin_manage_rooms.html.ep

@@ -34,6 +34,9 @@
             <th class="hidden-xs">
               <%=l 'LAST_ACTIVITY' %>
             </th>
+            <th class="hidden-xs">
+              <%=l 'NUMBER_OF_PARTICIPANTS' %>
+            </th>
             <th>
               <%=l 'MANAGE' %>
             </th>

vroom.pl

@@ -1290,11 +1290,16 @@ any '/api' => sub {
   # Here are method not tied to a room
   if ($req->{action} eq 'get_room_list'){
     my $rooms = $self->get_room_list;
-    # Blank out a few param we don't need
     foreach my $r (keys %{$rooms}){
+      # Blank out a few param we don't need
       foreach my $p (qw/join_password owner_password owner token etherpad_group/){
         delete $rooms->{$r}->{$p};
       }
+      # Count active users
+      $rooms->{$r}->{members} = 0;
+      foreach my $peer (keys %$peers){
+        $rooms->{$r}->{members}++ if ($peers->{$peer}->{room} eq $r);
+      }
     }
     return $self->render(
       json => {