• Home
  • History
  • Annotate
Name Date Size #Lines LOC

..03-May-2022-

ChangesH A D14-Dec-20032.3 KiB12367

MANIFESTH A D18-Jan-200357 76

Makefile.PLH A D12-Apr-2003248 85

Preferred.pmH A D14-Dec-20037 KiB270113

READMEH A D14-Dec-20031.5 KiB3627

test.plH A D14-Dec-20037.3 KiB140121

README

1Lingua::Preferred
2
3Many web browsers let you specify which languages you understand.
4Then they negotiate with the web server to get documents in the best
5language possible.  This is something similar in Perl.
6
7which_lang() takes a list of languages the user understands, such as
8qw(en es) and a list of those available on the server, such as qw(en fr
9de), and it returns the language to use.  There is some fooling around
10with picking second-best 'dialects' of a language, for example if the
11user's language is en_IE and a page is available in en_US.
12
13acceptable_lang() takes a list of languages the user understands and a
14single language, and returns true iff that language is acceptable.
15Again it assumes that different dialects of a language are mutually
16comprehensible.
17
18Note: I created this module by packaging up some of my own code, but
19with hindsight I'm not sure it was a good idea.  The world does not
20need another NIH way of doing language selections.  It would be better
21to pick languages by adapting HTTP language negotiation or gettext.
22So I do not plan further development on this module except for
23bugfixes.
24
25Version 0.2.4: accept language choice 'C' (named after the Unix
26locale) to mean pick the first available language.
27
28* Copying
29
30Copyright 2001-2003 Ed Avis.  This is free software; you may
31distribute it under the same terms as perl itself (either under the
32GNU General Public License, version 2 or at your option any later
33version); or under the Artistic License.
34
35-- Ed Avis, <ed@membled.com>, 2003-12-14
36