added localization via Locale::Maketext

5 files changed, 171 insertions, 7 deletions

diff --git a/lib/JWebmail/Controller/Webmail.pm b/lib/JWebmail/Controller/Webmail.pm
index bdd7176..c61c493 100644
--- a/lib/JWebmail/Controller/Webmail.pm
+++ b/lib/JWebmail/Controller/Webmail.pm
@@ -34,7 +34,7 @@ sub auth {
     my ($pw, $ch) = $self->session_passwd;
 
     unless ($user && $pw) {
-        $self->flash(message => $self->l('no_session'));
+        $self->flash(message => $self->l('No active session.'));
         $self->res->code(401);
         $self->redirect_to('logout');
         return 0;
@@ -95,7 +95,7 @@ sub login {
     else {
         $self->render(
             status => 401,
-            warning => $self->l('login') . ' ' . $self->l('failed') . '!',
+            warning => $self->l('Login failed!'),
         );
     }
 }
diff --git a/lib/JWebmail/I18N.pm b/lib/JWebmail/I18N.pm
new file mode 100644
index 0000000..576c413
--- /dev/null
+++ b/lib/JWebmail/I18N.pm
@@ -0,0 +1,16 @@
+package JWebmail::I18N;
+
+use parent 'Locale::Maketext';
+
+
+1
+
+__END__
+
+=encoding utf-8
+
+=head1 NAME
+
+JWebmail::L10N - Base class for internationalization
+
+=cut
diff --git a/lib/JWebmail/I18N/de_de.pm b/lib/JWebmail/I18N/de_de.pm
new file mode 100644
index 0000000..637e88f
--- /dev/null
+++ b/lib/JWebmail/I18N/de_de.pm
@@ -0,0 +1,78 @@
+package JWebmail::I18N::de_de;
+
+use v5.22;
+use warnings;
+use utf8;
+
+use parent 'JWebmail::I18N';
+
+
+our %Lexicon = (
+    'login' => 'anmelden',
+    'userid' => 'nuzerkennung',
+    'password' => 'passwort',
+    'failed' => 'fehlgeschlagen',
+    'about' => 'über',
+    'mbox_size' => 'mailboxgröße',
+    # and = und
+    'subject' => 'betreff',
+    'version' => 'version',
+    'from' => 'von',
+    'to' => 'für',
+    'cc' => 'cc',
+    'date' => 'datum',
+    'size' => 'größe',
+    'content-type' => 'inhaltsart',
+    'send to' => 'senden an',
+    'answer_to' => 'antworten gehen an',
+    'content' => 'inhalt',
+    'check_all' => 'alle markieren',
+    'move' => 'verschieben',
+    'nr' => 'nummer',
+    'status' => 'mehrteilig',
+    'logout' => 'abmelden',
+    'compose' => 'schreiben',
+    'search' => 'suche',
+    'of' => 'von',
+    'messages' => 'nachrichten',
+    'new' => 'neu',
+    'mbox_size' => 'mailboxgröße',
+    'home' => 'übersicht',
+    'no' => 'nein',
+    'yes' => 'ja',
+    'page' => 'seite',
+    'next' => 'nächste',
+    'last' => 'letzte',
+    'first' => 'erste',
+    'previous' => 'vorherige',
+    'sender' => 'gesendet von',
+    'back' => 'zurück',
+
+    # Mailboxen
+    'queue' => 'warteschlange',
+    'drafts' => 'vorlagen',
+    'home' => 'wurzelverzeichnis',
+
+    # Fehler
+    'No active session.' => 'Keine aktive Sitzung.',
+    'Login failed!' => 'Einloggen fehlgeschlagen!',
+
+    'no_folder' => 'Dieses Verzeichnis gibt es nicht.',
+    'error_send' => 'Die Nachricht konnte nicht gesendet werden.',
+    'succ_send' => 'Die Nachricht wurde verschikt.',
+    'succ_move' => 'Nachrichten wurden verschoben.',
+    'empty_folder' => 'Dies Verzeichnis ist leer.',
+);
+
+
+1
+
+__END__
+
+=encoding utf-8
+
+=head1 NAME
+
+JWebmail::I18N::de_de - German translation of JWebmail
+
+=cut
diff --git a/lib/JWebmail/I18N/en_us.pm b/lib/JWebmail/I18N/en_us.pm
new file mode 100644
index 0000000..22de05e
--- /dev/null
+++ b/lib/JWebmail/I18N/en_us.pm
@@ -0,0 +1,13 @@
+package JWebmail::I18N::en_us;
+
+use v5.22;
+use warnings;
+use utf8;
+
+use parent 'JWebmail::I18N';
+
+
+our %Lexicon = (_AUTO => 1);
+
+
+1
diff --git a/lib/JWebmail/Plugin/I18N2.pm b/lib/JWebmail/Plugin/I18N2.pm
index 9c10c8d..8c57ec5 100644
--- a/lib/JWebmail/Plugin/I18N2.pm
+++ b/lib/JWebmail/Plugin/I18N2.pm
@@ -2,6 +2,59 @@ package JWebmail::Plugin::I18N2;
 
 use Mojo::Base 'Mojolicious::Plugin';
 
+use List::Util 'any';
+
+
+package JWebmail::Plugin::I18N2::Maketext {
+
+    use JWebmail::I18N;
+    use File::Basename 'fileparse';
+
+    sub new {
+        my $class = shift;
+        my $conf = @_ == 1 ? shift : {@_};
+
+        my $lexica = $conf->{directory} || [fileparse(__FILE__)]->[1] . '../I18N';
+
+        my @languages = keys %{$conf->{languages} // {}};
+
+        unless (@languages) {
+            use autodie;
+
+            opendir(my $dh, $lexica);
+            my @res = grep { /\.pm$/ && -f "$lexica/$_" } readdir $dh;
+            closedir($dh);
+            @languages = map { scalar fileparse $_, '.pm' } @res;
+        }
+
+        my $self = {};
+        for (@languages) {
+            $self->{$_} = JWebmail::I18N->get_handle($_) || die "unable to load language $_";
+        }
+
+        if (my $dl = $conf->{default_language}) {
+            $self->{$dl} = JWebmail::I18N->get_handle($dl) || die "unable to load language $dl";
+        }
+
+        return bless $self, $class;
+    }
+
+    sub languages {
+        my $self = shift;
+        if (@_) {
+            return exists $self->{$_[0]};
+        }
+        return wantarray ? sort keys $self->%* : scalar keys $self->%*;
+    }
+
+    sub translate {
+        my $self = shift;
+        my $lang = shift;
+        my $phrase = shift;
+        return $self->{$lang}->maketext($phrase, @_);
+    }
+
+}
 
 package JWebmail::Plugin::I18N2::Translator {
 
@@ -12,7 +65,6 @@ package JWebmail::Plugin::I18N2::Translator {
     sub new {
         my $cls = shift;
         my $conf = @_ == 1 ? shift : {@_};
-        my $self = {};
 
         my @languages = keys %{$conf->{languages} // {}};
 
@@ -21,6 +73,7 @@ package JWebmail::Plugin::I18N2::Translator {
         }
 
         # load languages
+        my $self = {};
         for my $l (@languages) {
             if (my $dict = __loadi18n($conf->{directory}, $l)) {
                 $self->{$l} = $dict;
@@ -110,11 +163,11 @@ sub register {
 
     my $i18n_log = $app->log->context('[' . __PACKAGE__ . ']');
 
-    my $translator = $conf->{translator} || sub { JWebmail::Plugin::I18N2::Translator->new(@_) };
+    my $translator = $conf->{translator} || sub { JWebmail::Plugin::I18N2::Maketext->new(@_) };
     my $defaultLang = $conf->{default_language} || 'en';
-    my $fileLocation = $conf->{directory} && Mojo::File->new($conf->{directory})->is_abs
-                     ? $conf->{directory}
-                     : $app->home->child($conf->{directory} || 'lang');
+    my $fileLocation = $conf->{directory}
+                     ? Mojo::File->new($conf->{directory})
+                     : $app->home->child('lang');
 
     my $t = $translator->(
         default_language => $defaultLang,
@@ -126,6 +179,10 @@ sub register {
         local $" = ',';
         $i18n_log->info("loaded languages (@{[$t->languages]})");
 
+        unless (any { $defaultLang eq $_ } $t->languages) {
+            die "default language '$defaultLang' not loaded";
+        }
+
         if (keys $conf->{languages}->%* > $t->languages) {
             $i18n_log->warn("missing languages");
         }