Better spam score

- Correctly encode the subject
- Change subject string in en and fr locales (looks like gmail doesn't like "Join us")

Should fix #10

lib/Vroom/I18N/en.pm

@@ -10,7 +10,7 @@ our %Lexicon = (
   "ERROR_ROOM_s_LOCKED"                  => "The room %s is locked, you cannot join it",
   "ERROR_OCCURED"                        => "An error occured",
   "ERROR_NOT_LOGGED_IN"                  => "Sorry, your not logged in",
-  "JOIN_US_ON_s"                         => "Join us on room %s",
+  "JOIN_US_ON_s"                         => "Video conference %s",
   "INVITE_SENT_TO_s"                     => "An invitation was sent to %s",
   "TO_JOIN_s_CLICK_s"                    => "You're invited to join the video conference %s. " .
                                             "All you need is a modern web browser and a webcam. When you're ready " .

lib/Vroom/I18N/fr.pm

@@ -12,7 +12,7 @@ our %Lexicon = (
     "ERROR_ROOM_s_LOCKED"                       => "Le salon %s est verrouillé, vous ne pouvez pas le rejoindre",
     "ERROR_OCCURED"                             => "Une erreur est survenue",
     "ERROR_NOT_LOGGED_IN"                       => "Désolé, vous n'êtes pas identifié",
-    "JOIN_US_ON_s"                              => "Rejoignez nous sur le salon %s",
+    "JOIN_US_ON_s"                              => "Vidéo conférence %s",
     "TO_JOIN_s_CLICK_s"                         => "Vous êtes invité à rejoindre le salon de vidéo conférence %s. " .
                                                    "Tout ce dont vous avez besoin est un navigateur web récent et " .
                                                    "une webcam. Quand vous êtes prêt, cliquez sur <a href='%s'>ce lien</a>",

public/vroom.pl

@@ -14,6 +14,7 @@ use Data::GUID qw(guid_string);
 use Digest::MD5 qw(md5_hex);
 use MIME::Base64;
 use Email::Sender::Transport::Sendmail;
+use Encode;
 
 # Used to generate thanks on the about template
 our $components = {
@@ -318,7 +319,7 @@ post '/action' => sub {
     my $rcpt = $self->param('recipient');
     $self->email(
       header => [
-        Subject => sprintf ($self->l("JOIN_US_ON_s"), $room),
+        Subject => encode("MIME-Header", sprintf ($self->l("JOIN_US_ON_s"), $room)),
         To => $rcpt
       ],
       data => [