From 34a15ef1645a5e392e8fd9b753d96279714d0058 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Tue, 25 May 2010 08:29:34 +0200
Subject: initial commit

---
 lib/Plack/Middleware/i18n.pm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 lib/Plack/Middleware/i18n.pm

(limited to 'lib')

diff --git a/lib/Plack/Middleware/i18n.pm b/lib/Plack/Middleware/i18n.pm
new file mode 100644
index 0000000..28d4536
--- /dev/null
+++ b/lib/Plack/Middleware/i18n.pm
@@ -0,0 +1,34 @@
+package Plack::Middleware::i18n;
+
+use strict;
+use warnings;
+use Plack::Util;
+use Plack::Util::Accessor qw/default_lang/;
+use I18N::LangTags;
+use I18N::LangTags::Detect;
+
+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;
+}
+
+1;
+
+__END__
-- 
cgit v1.2.3