Padre I18N translation

(updated on June 23, 2009)

from http://padre.perlide.org/wiki/TranslationIntro:

the first time:
* msginit -i messages.pot -o zh-cn.po -l zh_CN

later then message.pot get updated.
* msgmerge -o zh-cn.po.new zh-cn.po messages.pot
open the file, grep 'fuzzy'. and fix them

check the syntax
* msgfmt -c zh-cn.po

check the difference
* msgcmp zh-cn.po messages.pot

Thanks.

Catalyst PageCache with I18N

well, I have something like as follows in the Foorum Root.pm sub auto:

 # internationalization
    $c->stash->{lang} = $c->req->cookie('pref_lang')->value if ($c->req->cookie('pref_lang'));
    $c->stash->{lang} ||= $c->user->lang if ($c->user_exists);
    $c->stash->{lang} ||= $c->config->{default_pref_lang};
    if (my $lang = $c->req->param('set_lang')) {
        $lang =~ s/\W+//isg;
        if (length($lang) == 2) {
            $c->res->cookies->{pref_lang} = { value => $lang };
            $c->stash->{lang} = $lang;
        }
    }
    $c->languages( [ $c->stash->{lang} ] );

but the Catalyst::Plugin::PageCache does NOT get along well with the I18N's languages.

so that I patch this module for a bit. to create a new plugin based on that:

package Catalyst::Plugin::PageCacheWithI18N;

use strict;
use warnings;
use Class::C3;
use vars qw/$VERSION/;
$VERSION = '0.01';
use base qw/Catalyst::Plugin::PageCache/;

sub _get_page_cache_key {
    my ($c) = @_;
    
    my $key = $c->next::method(@_);
    my $lang = $c->req->cookie('pref_lang')->value if ($c->req->cookie('pref_lang'));
    $lang ||= $c->user->lang if ($c->user_exists);
    $lang ||= $c->config->{default_pref_lang};
    if (my $set_lang = $c->req->param('set_lang')) {
        $set_lang =~ s/\W+//isg;
        if (length($set_lang) == 2) {
            $lang = $set_lang;
        }
    }
    $key .= '#' . $lang if ($lang);
    return $key;
}

1;

Links: http://fayland.googlecode.com/svn/trunk/Foorum/lib/Catalyst/Plugin/PageCacheWithI18N.pm