From c8601d93f056efcc018587a6c79cde2f61aeb224 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 27 May 2010 20:36:11 +0200
Subject: detect locale from http headers

---
 lib/Plack/Middleware/i18n.pm | 44 +++++++++++++++++++++++++++++---------------
 1 file changed, 29 insertions(+), 15 deletions(-)

(limited to 'lib')

diff --git a/lib/Plack/Middleware/i18n.pm b/lib/Plack/Middleware/i18n.pm
index 28d4536..6a6e927 100644
--- a/lib/Plack/Middleware/i18n.pm
+++ b/lib/Plack/Middleware/i18n.pm
@@ -2,8 +2,10 @@ package Plack::Middleware::i18n;
 
 use strict;
 use warnings;
+
 use Plack::Util;
 use Plack::Util::Accessor qw/default_lang/;
+use Plack::Request;
 use I18N::LangTags;
 use I18N::LangTags::Detect;
 
@@ -12,23 +14,35 @@ our $VERSION = '0.01';
 use parent 'Plack::Middleware';
 
 sub call {
-    my $self = shift;
-    my $res  = $self->app->(@_);
-
-    my $h = Plack::Util::headers($res->[1]);
-
-    my @languages = ($self->default_lang) if $self->default_lang;
-    push @languages,
-      I18N::LangTags::implicate_supers(
-        I18N::LangTags::Detect->http_accept_langs($h->get('Accept-Language')));
-
-    # XXX store languages in psgix.languages
-    # XXX if session, store in session too
-    # XXX maybe redirect to appropriate location ?
-    
-    return $res;
+    my ($self, $env) = @_;
+
+    my $locale;
+
+    if (my $lang = $env->{'HTTP_ACCEPT_LANGUAGE'}) {
+        $locale = (
+            split(
+                '-',
+                (   I18N::LangTags::implicate_supers(
+                        I18N::LangTags::Detect->http_accept_langs($lang)
+                    )
+                  )[0]
+            )
+        )[0];
+    }
+    else {
+        $locale = $self->default_lang // 'en';
+    }
+
+    $env->{'psgix.locale'} = $locale;
+
+    if (my $session = $env->{'psgix.session'}) {
+        $session->{locale} = $locale;
+    }
+
+    $self->app->($env);
 }
 
+
 1;
 
 __END__
-- 
cgit v1.2.3