=encoding UTF-8 =head1 NAME Catalyst::Plugin::I18N::Manual - (Draft) I18N and L10N with Catalyst and Template Toolkit. =head1 OUTLINE Prerequisites: - perl >= 5.8.0 - Catalyst >= 5.33 - Catalyst::Plugin::I18N >= 0.04 - Catalyst::Plugin::Unicode >= 0.2 - Catlayst::View::TT && Template-Toolkit >= 2.14 - GNU gettext utilities - An editor that understands UTF-8 and Byte Order Mark (BOM) $ catalyst.pl MyApp created "MyApp" created "MyApp/script" created "MyApp/lib" created "MyApp/root" created "MyApp/root/static" created "MyApp/root/static/images" created "MyApp/t" created "MyApp/lib/MyApp" created "MyApp/lib/MyApp/Model" created "MyApp/lib/MyApp/View" created "MyApp/lib/MyApp/Controller" created "MyApp/lib/MyApp.pm" created "MyApp/Makefile.PL" created "MyApp/README" created "MyApp/Changes" created "MyApp/t/01app.t" created "MyApp/t/02pod.t" created "MyApp/t/03podcoverage.t" created "MyApp/root/static/images/catalyst_logo.png" created "MyApp/root/static/images/btn_120x50_built.png" created "MyApp/root/static/images/btn_120x50_built_shadow.png" created "MyApp/root/static/images/btn_120x50_powered.png" created "MyApp/root/static/images/btn_120x50_powered_shadow.png" created "MyApp/root/static/images/btn_88x31_built.png" created "MyApp/root/static/images/btn_88x31_built_shadow.png" created "MyApp/root/static/images/btn_88x31_powered.png" created "MyApp/root/static/images/btn_88x31_powered_shadow.png" created "MyApp/root/favicon.ico" created "MyApp/script/myapp_cgi.pl" created "MyApp/script/myapp_fastcgi.pl" created "MyApp/script/myapp_server.pl" created "MyApp/script/myapp_test.pl" created "MyApp/script/myapp_create.pl" $ cd MyApp $ vim lib/MyApp.pm use Catalyst qw/-Debug I18N Unicode/; sub begin : Private { my ( $self, $c ) = @_; my $locale = $c->request->param('locale'); $c->response->headers->push_header( 'Vary' => 'Accept-Language' ); # hmm vary and param? $c->languages( $locale ? [ $locale ] : undef ); } sub default : Private { my ( $self, $c ) = @_; my $name = $c->request->param('name') || $c->loc('Guest'); $c->response->content_type('text/plain; charset=utf-8'); $c->response->body( $c->loc( 'Welcome [_1]!', $name ) ); } $ mkdir lib/MyApp/I18N $ xgettext.pl --output=lib/MyApp/I18N/messages.pot --directory=lib/ $ ls lib/MyApp/I18N/ messages.pot $ msginit --input=lib/MyApp/I18N/messages.pot --output=lib/MyApp/I18N/sv.po --locale=sv Created lib/MyApp/I18N/sv.po. $ vim lib/MyApp/I18N/sv.po "Content-Type: text/plain; charset=utf-8\n" #: lib/MyApp.pm:50 msgid "Guest" msgstr "Gäst" #. ($name) #: lib/MyApp.pm:54 msgid "Welcome %1!" msgstr "Välkommen %1!" $ perl script/myapp_server.pl [Fri Dec 2 03:52:45 2005] [catalyst] [debug] Debug messages enabled [Fri Dec 2 03:52:47 2005] [catalyst] [debug] Loaded plugins: .------------------------------------------------------------------------------. | Catalyst::Plugin::I18N | | Catalyst::Plugin::Unicode | '------------------------------------------------------------------------------' [Fri Dec 2 03:52:47 2005] [catalyst] [debug] Loaded dispatcher "Catalyst::Dispatcher" [Fri Dec 2 03:52:47 2005] [catalyst] [debug] Loaded engine "Catalyst::Engine::HTTP" [Fri Dec 2 03:52:47 2005] [catalyst] [debug] Found home "/Users/chansen/MyApp" [Fri Dec 2 03:52:48 2005] [catalyst] [debug] Initialized i18n "MyApp::I18N" [Fri Dec 2 03:52:48 2005] [catalyst] [debug] Loaded Private actions: .----------------------+----------------------------------------+--------------. | Private | Class | Method | +----------------------+----------------------------------------+--------------+ | /default | MyApp | default | '----------------------+----------------------------------------+--------------' [Fri Dec 2 03:52:48 2005] [catalyst] [info] MyApp powered by Catalyst 5.57 You can connect to your server at http://localhost:3000 # point your browser to http://localhost:3000/?name=Joe # output should render: Välkommen Joe! $ vim lib/MyApp.pm sub default : Private { # ... $c->response->body( $c->loc( 'Welcome to my homepage [_1]!', $name ) ); } $ xgettext.pl --output=lib/MyApp/I18N/messages.pot --directory=lib/ $ msgmerge --update lib/MyApp/I18N/sv.po lib/MyApp/I18N/messages.pot . done. $ vim lib/MyApp/I18N/sv.po #. ($name) #: lib/MyApp.pm:54 msgid "Welcome to my homepage %1!" msgstr "Välkommen till min hemsida %1!" $ perl script/myapp_server.pl # point your browser to http://localhost:3000/?name=Joe # output should render: Välkommen till min hemsida Joe! $ perl script/myapp_create.pl view TT TT exists "/Users/chansen/MyApp/script/../lib/MyApp/View" exists "/Users/chansen/MyApp/script/../t" created "/Users/chansen/MyApp/script/../lib/MyApp/View/TT.pm" created "/Users/chansen/MyApp/script/../t/view_TT.t" $ vim lib/MyApp.pm sub default : Private { my ( $self, $c ) = @_; my $name = $c->request->param('name') || $c->loc('Guest'); $c->response->content_type('text/plain; charset=utf-8'); $c->stash( name => $name, template => 'test.tt' ); $c->forward('MyApp::View::TT'); } $ vim root/test.tt # Save file in UTF-8 with BOM [% c.loc( 'Welcome to my place [_1]!', c.stash.name ) %] $ xgettext.pl --output=lib/MyApp/I18N/messages.pot --directory=lib/ --directory=root/ $ msgmerge --update lib/MyApp/I18N/sv.po lib/MyApp/I18N/messages.pot . done. $ vim lib/MyApp/I18N/sv.po #. (c.stash.name) #: root/test.tt:1 msgid "Welcome to my place %1!" msgstr "Välkommen till mitt ställe %1!" $ perl script/myapp_server.pl [Fri Dec 2 05:12:58 2005] [catalyst] [debug] Debug messages enabled [Fri Dec 2 05:12:58 2005] [catalyst] [debug] Loaded plugins: .------------------------------------------------------------------------------. | Catalyst::Plugin::I18N | | Catalyst::Plugin::Unicode | '------------------------------------------------------------------------------' [Fri Dec 2 05:12:58 2005] [catalyst] [debug] Loaded dispatcher "Catalyst::Dispatcher" [Fri Dec 2 05:12:58 2005] [catalyst] [debug] Loaded engine "Catalyst::Engine::HTTP" [Fri Dec 2 05:12:58 2005] [catalyst] [debug] Found home "/Users/chansen/MyApp" [Fri Dec 2 05:12:58 2005] [catalyst] [debug] Initialized i18n "MyApp::I18N" [Fri Dec 2 05:12:59 2005] [catalyst] [debug] Loaded components: .-------------------------------------------------------------------+----------. | Class | Type | +-------------------------------------------------------------------+----------+ | MyApp::View::TT | instance | '-------------------------------------------------------------------+----------' [Fri Dec 2 05:12:59 2005] [catalyst] [debug] Loaded Private actions: .----------------------+----------------------------------------+--------------. | Private | Class | Method | +----------------------+----------------------------------------+--------------+ | /default | MyApp | default | '----------------------+----------------------------------------+--------------' [Fri Dec 2 05:12:59 2005] [catalyst] [info] MyApp powered by Catalyst 5.57 You can connect to your server at http://localhost:3000 # point your browser to http://localhost:3000/?name=Joe # output should render: Välkommen till mitt ställe Joe! =head1 INTRODUCTION =head1 INTERNATIONALIZATION =head1 CONTENT NEGOTIATION =head2 Server-driven =head2 Agent-driven =head1 LOCALIZATION =head1 STAYING IN SYNC =head1 TEMPLATE TOOLKIT =head1 RESOURCES =head2 Documentation =head3 Definitions =over 4 =item Internationalization and localization L =item Locale L =item Byte Order Mark (BOM) L =item Character encoding L =item Collation L =item Content Negotiation L =item Unicode L =back =head3 Guides =over 4 =item Guidelines, Checklists, and Resources L =item Localisation Guide L =back =head3 Perl =over 4 =item Perl Locale handling L =item Perl Unicode introduction L =item Perl Unicode support L =item Unicode-processing issues in Perl and how to cope with it L =item Web Localization in Perl L =item Localization and Perl: gettext breaks, Maketext fixes L =item Lessons Learned with Perl and UTF-8 L =item UTF-8 and Perl (In Five Minutes) Slides from a talk given by Mark Fowler. L =item Perl Loves UTF-8 Slides from a talk given by Tom Insam. L =item Perl I18N Mailing List L =item Perl Unicode Mailing List L =back =head3 Portals =over 4 =item Google Directory - Computers > Software > Globalization L =item Internationalization (I18N), Localization (L10N), Standards, and Amusements L =back =head3 Standards =over 4 =item RFC 2616 Hypertext Transfer Protocol -- HTTP/1.1 L =over 8 =item Section 12: Content Negotiation L =item Section 13: Caching in HTTP L =item Section 13.6: Caching Negotiated Responses L =back =item RFC 3066 Tags for the Identification of Languages L =back =head3 Web =over 4 =item W3C Internationalization (I18N) Activity L =item Authoring Techniques for XHTML & HTML Internationalization: Characters and Encodings 1.0 L =item Authoring Techniques for XHTML & HTML Internationalization: Specifying the language of content 1.0 L =back =head2 Locale Repositories =over 4 =item Common Locale Data Repository (CLDR) L =item International Components for Unicode (ICU) L =back =head2 Modules =head3 Character Encoding, Collation and Normalization =over 4 =item Encode L =item Unicode::Collate L =item Unicode::Normalize L =back =head3 Currency =over 4 =item Locale::Currency::Format L =item Math::Currency L =back =head3 Dates =over 4 =item DateTime L =item DateTime::Locale L =item DateTime::TimeZone L =back =head3 Language Tags, Identification and Negotiation =over 4 =item HTTP::Negotiate L =item I18N::AcceptLanguage L =item I18N::LangTags L L =back =head3 Message Catalogs =over 4 =item Locale::Maketext L L =item Locale::Maketext::Lexicon L L L =item Locale::Maketext::Simple Provides a simple interface to Locale::Maketext::Lexicon. L =item libintl-perl L L =back =head3 Numbers =over 4 =item Number::Format L =back =head2 Tools =over 4 =item GNU gettext utilities L L L =item gtranslator Translation tool for Gnome. Supports gettext catalogs. L =item Ini Translator Translation tool for Windows 98/Me/XP/2000. Supports several formats, including gettext catalogs. L =item KBabel Translation tool for KDE. Supports gettext catalogs. L =item LocFactory Editor Translation tool for Mac OS X. Supports sevral formats, including gettext catalogs. L =item poEdit A cross-platform gettext catalogs editor. L =back =head1 AUTHOR Christian Hansen C =head1 COPYRIGHT This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut