Localization with Locale::Maketext

WiP, no suitable foundation for merge requests yet.

Still todo:
* override Accept-Language header via account settings
* Adjust all the templates and frontend javascript

Related to #223

1 files changed, 33 insertions, 0 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 7dba658..3ddce00 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -26,6 +26,7 @@ use Travelynx::Helper::DBRIS;
 use Travelynx::Helper::EFA;
 use Travelynx::Helper::HAFAS;
 use Travelynx::Helper::IRIS;
+use Travelynx::Helper::Locales;
 use Travelynx::Helper::MOTIS;
 use Travelynx::Helper::Sendmail;
 use Travelynx::Helper::Traewelling;
@@ -157,6 +158,31 @@ sub startup {
 		}
 	);
 
+	$self->hook(
+		'before_render' => sub {
+			my ($self) = @_;
+
+			# TODO load languages from user profile, if set
+
+			my @languages = ('en-GB');
+			if ( my $languages = $self->req->headers->accept_language ) {
+				@languages = ();
+
+				#say "-- Accept-Language: $languages";
+				for my $lang ( split( qr{ \s* , \s* }x, $languages ) ) {
+					if ( $lang =~ m{ ^ de }x ) {
+						push( @languages, 'de-DE' );
+					}
+					elsif ( $lang =~ m{ ^ en }x ) {
+						push( @languages, 'en-GB' );
+					}
+				}
+			}
+			$self->stash( loc_handle =>
+				  Travelynx::Helper::Locales->get_handle(@languages) );
+		}
+	);
+
 	$self->attr(
 		cache_iris_main => sub {
 			my ($self) = @_;
@@ -412,6 +438,13 @@ sub startup {
 	);
 
 	$self->helper(
+		'L' => sub {
+			my ( $self, @args ) = @_;
+			$self->stash('loc_handle')->maketext(@args);
+		}
+	);
+
+	$self->helper(
 		'now' => sub {
 			return DateTime->now( time_zone => 'Europe/Berlin' );
 		}