allow custom translation files

bin/access-check-manager.cgi.in

@@ -6,6 +6,7 @@ use utf8;
 use lib qw(@modulesdir@);
 
 use Config::Tiny;
+use File::Basename;
 
 use AccountManager::App;
 
@@ -16,8 +17,11 @@ if (!$configuration) {
     die Config::Tiny->errstr() . "\n";
 }
 
+my $configuration_directory = dirname($configuration_file);
+
 my $app = AccountManager::App->new(
-    configuration => $configuration
+    configuration => $configuration,
+    custom_l10n   => sprintf("%s/l10n", $configuration_directory)
 );
 $app->run();
 

lib/AccountManager/App.pm

@@ -87,6 +87,7 @@ sub new {
             }
         );
     }
+    $self->{lh}->load_custom_lexicon($args{custom_l10n});
 
     if (!$self->{configuration}->{mailer}) {
         $self->{logger}->fatal(

lib/AccountManager/L10N.pm

@@ -4,5 +4,20 @@ use strict;
 use warnings;
 
 use base 'Locale::Maketext';
+use Locale::Maketext::Lexicon::Gettext;
+
+sub load_custom_lexicon {
+    my ($self, $directory) = @_;
+
+    my $language = $self->language_tag();
+
+    my $lexicon_file = sprintf("%s/%s.po", $directory , $language);
+    return unless -f $lexicon_file;
+
+    Locale::Maketext::Lexicon->import({
+        $language => [Gettext => $lexicon_file],
+        _decode => 1,
+    });
+}
 
 1;