<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="X-UA-Compatible" content="IE=7"/>
<title>MSEC: süsteemi turvalisus ja audit</title><meta name="generator" content="DocBook XSL-NS Stylesheets V1.75.2"/><link rel="home" href="index.html" title="Mageia juhtimiskeskus"/><link rel="up" href="mcc-security.html" title="Turvalisus"/><link rel="prev" href="mcc-security.html" title="Turvalisus"/><link rel="next" href="drakfirewall.html" title="Isikliku tulemüüri seadistamine"/><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/><script type="text/javascript">
//The id for tree cookie
var treeCookieId = "treeview-6076";
var language = "en";
var w = new Object();
//Localization
txt_filesfound = 'Tulemused';
txt_enter_at_least_1_char = "Kirjutada tuleb vähemalt üks märk.";
txt_browser_not_supported = "JavaScript on brauseris keelatud. Lülitage JavaScript sisse, et näha lehekülge täielikult.";
txt_please_wait = "Palun oodake, otsitakse ...";
txt_results_for = "Tulemused otsingule: ";
txt_no_results_for = "";
</script><style type="text/css">
input {
margin-bottom: 5px;
margin-top: 2px;
}
.folder {
display: block;
height: 22px;
padding-left: 20px;
background: transparent url(../../common/jquery/treeview/images/folder.gif) 0 0px no-repeat;
}
</style><link rel="shortcut icon" href="favicon.png" type="image/x-icon"/><link rel="stylesheet" type="text/css" href="../../common/css/positioning.css"/><link rel="stylesheet" type="text/css" href="../../common/jquery/theme-redmond/jquery-ui-1.8.2.custom.css"/><link rel="stylesheet" type="text/css" href="../../common/jquery/treeview/jquery.treeview.css"/><link rel="stylesheet" type="text/css" href="webhelp-default.css"/><link rel="stylesheet" type="text/css" href="webhelp-custom.css"/><script type="text/javascript" src="../../common/jquery/jquery-1.4.2.min.js"><!----></script><script type="text/javascript" src="../../common/jquery/jquery-ui-1.8.2.custom.min.js"><!----></script><script type="text/javascript" src="../../common/jquery/jquery.cookie.js"><!----></script><script type="text/javascript" src="../../common/jquery/treeview/jquery.treeview.min.js"><!----></script><script type="text/javascript" src="search/htmlFileList.js"><!----></script><script type="text/javascript" src="search/htmlFileInfoList.js"><!----></script><script type="text/javascript" src="nwSearchFnt.js"><!----></script><script type="text/javascript" src="search/stemmers/en_stemmer.js"><!--//make this scalable to other languages as well.--></script><script type="text/javascript" src="search/index-1.js"><!----></script><script type="text/javascript" src="search/index-2.js"><!----></script><script type="text/javascript" src="search/index-3.js"><!----></script></head><body><div xmlns="" id="header"><div id="navheader"><!----><table><tr><td style="height: 28px; width: 16px;"><a id="showHideButton" onclick="showHideToc();" class="pointLeft" title="Hide TOC tree">.
</a></td><td><img src="../../common/images/highlight-blue.gif" alt="H" height="25px" onclick="toggleHighlight()" id="showHideHighlight" style="cursor:pointer" title="Otsingutulemuste tähistamise sisse/väljalülitamine"/></td><td><a accesskey="p" href="mcc-security.html">Eelmine</a>
|
<a accesskey="u" href="mcc-security.html">Üles</a>
|
<a accesskey="n" href="drakfirewall.html">Järgmine</a></td></tr></table></div><div id="headerlogo"><img src="mageia-2013-200p.png" alt="Company Logo"/></div><h1 id="pagetitle">MSEC: süsteemi turvalisus ja audit<br/>Turvalisus</h1></div><div id="content"><!----><div xml:lang="et" class="section" title="MSEC: süsteemi turvalisus ja audit"><div class="titlepage"><div><div><h3 class="title"><a id="msecgui"><!----></a>MSEC: süsteemi turvalisus ja audit</h3></div><div><h2 class="subtitle">msecgui</h2></div></div></div><div class="mediaobject" align="center"><img src="images/msecgui.png" align="middle"/></div><div class="section" title="Tutvustus"><div class="titlepage"><div><div><h4 class="title"><a id="d4e3065"><!----></a>Tutvustus</h4></div></div></div><p>Tööriist msecgui<sup>[<a id="d4e3068" href="#ftn.d4e3068" class="footnote">43</a>]</sup> on programmi msec
graafiline kasutajaliides, mis võimaldab seadistada süsteemi turvet kahel
moel:</p><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Sellega saab paika panna süsteemi käitumise, mille korral msec kehtestab
süsteemis muudatused, mis suurendavad selle turvalisust.</p></li><li class="listitem"><p>See lubab määrata kindlaks perioodilised kontrollid, mida võetakse süsteemis
ette automaatselt, et hoiatada teid, kui miski paistab ohtlikuna.</p></li></ul></div><p>Programm msec kasutab niinimetatud turbetasemete kontseptsiooni. Need
tasemed hõlmavad teatavat süsteemsete õiguste kogumit, mille põhjal
analüüsitakse süsteemis toimuvaid muutusi. Mõningad tasemed annab Mageia
ette, aga neid saab oma soovi kohaselt muuta ja kohandada.</p></div><div class="section" title="Ülevaate kaart"><div class="titlepage"><div><div><h4 class="title"><a id="d4e3077"><!----></a>Ülevaate kaart</h4></div></div></div><p>Pilt on näha ülal.</p><p>Esimesel kaardil on ära toodud eri turbetööriistade loetelu, millest paremal
asuvad nupud nende seadistamiseks:</p><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Tulemüür, mille leiab ka juhtimiskeskuses Turvalisus -> Isikliku tulemüüri
seadistamine</p></li><li class="listitem"><p>Uuendused, mille leiab ka juhtimiskeskuses Tarkvara -> Süsteemi uuendamine</p></li><li class="listitem"><p>Msec ise koos mõninga teabega:</p><div class="itemizedlist"><ul class="itemizedlist" type="circle"><li class="listitem"><p>lubatud või mitte</p></li><li class="listitem"><p>seadistatud baasturbetase</p></li><li class="listitem"><p>viimaste perioodiliste kontrollide aeg ning nupud, mis vastavalt näitavad
üksikasjalikumat teavet ja võimaldavad kontrolli kohe käivitada</p></li></ul></div></li></ul></div></div><div class="section" title="Turbeseadistuste kaart"><div class="titlepage"><div><div><h4 class="title"><a id="d4e3095"><!----></a>Turbeseadistuste kaart</h4></div></div></div><p>Klõps teisele sakile või nupule Turve -> <span class="guibutton">Seadista</span>
avab allnähtava akna.</p><div class="mediaobject"><img src="images/msecgui2.png"/></div><div class="section" title="Põhiseadistuste kaart"><div class="titlepage"><div><div><h5 class="title"><a id="d4e3102"><!----></a>Põhiseadistuste kaart</h5></div></div></div><p class="underline">
<span class="underline">Turbetasemed:</span>
</p><p>Kui olete märkinud kastikese <span class="guilabel">MSEC-i tööriista lubamine</span>,
saab siin kaardil topeltklõpsuga valida sobiva turbetaseme, mida pärast
valimist näidatakse rasvases kirjas. Kui kastike on märkimata, kasutatakse
taset « puudub ». Saadaval on järgmised tasemed:</p><div class="orderedlist"><ol class="orderedlist" type="1"><li class="listitem"><p>Tase <span class="bold"><strong>puudub</strong></span>. See on hea siis, kui te ei
soovi, et msec majandaks süsteemi turbega, ja eelistate sellega omal käel
hakkama saada. Sel tasemel keelatakse kõik turbekontrollid ning ei piirata
mingil moel süsteemseid seadistusi. Palun valige see tase ainult siis, kui
olete täiesti kindel, et teate, mida teete, sest sel juhul on teie süsteem
rünnakutele avatud.</p></li><li class="listitem"><p>Tase <span class="bold"><strong>standard</strong></span> on vaikimisi rakendatav
seadistus, mida kasutatakse paigaldamisel, kui paigaldaja ei vali midagi
muud. See tavalisele kasutajale sobiv tase sisaldab mõningaid süsteemsete
seadistuste piiranguid ning käivitab igapäevased turbekontrollid, mis
otsivad muudatusi süsteemsetes failides ja kontodes ning kataloogide
õigustes, mis võivad anda võimaluse halba korda saata. (See tase on sarnane
mseci varasemate versioonide tasemetega 2 ja 3.)</p></li><li class="listitem"><p>Tase <span class="bold"><strong>secure</strong></span> on mõeldud selleks, kui
soovite, et süsteem oleks tõeliselt turvaline, aga siiski veel
kasutatav. Süsteemi seadistusi piiratakse veelgi ning perioodilisi
kontrollegi on rohkem. Lisaks piiratakse ligipääsu süsteemile. (See tase on
sarnane mseci varasemate versioonide tasemetega 4 (kõrge) ja 5
(paranoiline).)</p></li><li class="listitem"><p>Lisaks mainitud tasemetele pakutakse veel mitmeid eesmärgipõhiseid
turbetasemeid, näiteks <span class="bold"><strong>fileserver</strong></span>,
<span class="bold"><strong>webserver</strong></span> ja <span class="bold"><strong>netbook</strong></span>. Nende puhul üritatakse süsteemi turve
seadistada vastavalt levinumatele kasutusjuhtumitele.</p></li><li class="listitem"><p>Viimased kaks taset nimetustega <span class="bold"><strong>audit_daily
</strong></span> ja <span class="bold"><strong>audit_weekly</strong></span> ei ole
õigupoolest päris turbetasemed, vaid pigem ainult tööriistad perioodiliste
kontrollide tarbeks.</p></li></ol></div><p>Tasemed salvestatakse faili
<code class="filename">etc/security/msec/level.<tasemenimi></code>. Soovi korral
võib paika panna omaenda kohandatud turbetaseme, salvestades selle failina
<code class="filename">level.<tasemenimi></code> kataloogis
<code class="filename">etc/security/msec/.</code> See võimalus on mõistagi mõeldud
väga kogenud kasutajatele, kellel on oma vajadused süsteemi turvet enda käe
järgi kohendada.</p><div class="caution" title="Ettevaatust" style="margin-left: 0.5in; margin-right: 0.5in;"><h3 class="title">Ettevaatust</h3><p>Pidage kindlasti silmas, et kasutaja muudetud parameetreid arvestatakse enne
vaiketaseme määratlusi.</p></div><p>
<span class="underline">Turbehoiatused:</span>
</p><p>Kui märkida ära kastike <span class="guibutton">Turbehoiatuste saatmine
e-postiga:</span>, saadetakse mseci loodud turbehoiatused kohalikule
e-posti aadressile turbeadministraatorile, kelle nimi tuleb kirja panna
kõrval asuval väljal. Sinna võib kirjutada kas kohaliku kasutajanime või
täieliku e-posti aadressi (selle huvides peavad olema vajalikult seadistatud
kohalik e-post ja e-posti haldur). Samuti võib lasta turbehoiatusi näidata
otse töölaual, milleks tuleb ära märkida vastav kastike.</p><div class="important" title="Oluline" style="margin-left: 0.5in; margin-right: 0.5in;"><h3 class="title">Oluline</h3><p>Turbehoiatuste edastamine on äärmiselt soovitatav sisse lülitada, et
turbeadministraator saab õigeaegselt teada võimalikest
probleemidest. Vastasel juhul peab administraator järjepidevalt uurima
logifaile, mis salvestatakse kataloogi
<code class="filename">/var/log/security.</code></p></div><p><span class="underline">Turbevalikud:</span></p><p>Kohandatud taseme loomine ei ole ainuke viis sättida arvuti turvet oma käe
järgi: samamoodi võib kasutada tööriista eri kaarte, et muuta just neid
valikuid, mida vaja. Mseci kehtiv seadistus on salvestatud faili
<code class="filename">/etc/security/msec/security.conf</code>. See sisaldab nii
kehtivat turbetaseme nime kui ka loetelu kõigist muudetud valikutest.</p></div><div class="section" title="Süsteemi turvalisuse kaart"><div class="titlepage"><div><div><h5 class="title"><a id="d4e3144"><!----></a>Süsteemi turvalisuse kaart</h5></div></div></div><p>Sellel kaardil võib näha vasakus veerus turbevalikut, keskmises veerus selle
kirjeldust ja paremas veerus kehtivat väärtust.</p><div class="mediaobject"><img src="images/msecgui3.png"/></div><p>Mõne valiku muutmiseks tehke sellel topeltklõps, mille järel ilmub uus aken
(vt pilti allpool). Selles on näha valiku nimi, lühike kirjeldus, kehtiv ja
vaikeväärtus ning ripploend, milles saab valida uue väärtuse. Klõpsuga
nupule <span class="guibutton">Olgu</span> saab muudatuse kinnitada.</p><div class="mediaobject"><img src="images/msecgui11.png"/></div><div class="caution" title="Ettevaatust" style="margin-left: 0.5in; margin-right: 0.5in;"><h3 class="title">Ettevaatust</h3><p>Ärge unustage tööriista sulgedes oma seadistust lõplikult salvestamast
menüükäsuga <span class="guimenu">Fail -> Salvesta seadistus</span>. Kui olete
seadistusi muutnud, annab msecgui võimaluse need enne salvestamist üle
vaadata.</p></div><div class="mediaobject"><img src="images/msecgui10.png"/></div></div><div class="section" title="Võrguturvalisuse kaart"><div class="titlepage"><div><div><h5 class="title"><a id="d4e3161"><!----></a>Võrguturvalisuse kaart</h5></div></div></div><p>Sellelt kaardilt leiab võrguga seotud valikud ja kõik käib siin samamoodi
nagu eelmisel kaardil.</p><div class="mediaobject"><img src="images/msecgui4.png"/></div></div><div class="section" title="Perioodiliste kontrollide kaart"><div class="titlepage"><div><div><h5 class="title"><a id="d4e3167"><!----></a>Perioodiliste kontrollide kaart</h5></div></div></div><p>Perioodiliste kontrollide eesmärk on anda turbehoiatuste abil
turbeadministraatorile teada kõigest, mida msec peab võimalikuks ohuks.</p><p>Kui märkida kastike <span class="guibutton">Perioodiliste turbekontrollide
lubamine</span>, näeb sellel kaardil kõiki mseci sooritatavaid
perioodilisi kontrolle ja nende sagedust. Muudatusi saab siin teha samamoodi
nagu eespool kirjeldatud kaartidel.</p><div class="mediaobject"><img src="images/msecgui5.png"/></div></div><div class="section" title="Erandite kaart"><div class="titlepage"><div><div><h5 class="title"><a id="d4e3175"><!----></a>Erandite kaart</h5></div></div></div><p>Mõnikord käivad hoiatused hästi teada ja soovitud olukorra kohta. Sel juhul
ei ole neil tegelikult mõtet ja nad vaid raiskavad administraatori
aega. Sellel kaardil saab luua nii palju erandeid kui vaja, et vältida
tarbetuid turbehoiatusi. Enesest mõista on see kaart mseci esmakäivitusel
tühi. Allpool oleval pildil on näha neli erandit.</p><div class="mediaobject"><img src="images/msecgui6.png"/></div><p>Erandi loomiseks tuleb klõpsata nupule <span class="guibutton">Lisa reegel</span>.</p><div class="mediaobject"><img src="images/msecgui7.png"/></div><p>Valige vajalik perioodiline kontroll ripploendist
<span class="guilabel">Kontroll</span> ja kirjutage erand tekstikasti
<span class="guilabel">Erand</span>. Erandi lisamine ei ole mõistagi midagi jäävat:
selle võib kustutada <span class="guilabel">erandite</span> kaardil klõpsuga nupule
<span class="guibutton">Kustuta</span>, samuti võib seda topeltklõpsuga muuta.</p></div><div class="section" title="Õiguste kaart"><div class="titlepage"><div><div><h5 class="title"><a id="d4e3191"><!----></a>Õiguste kaart</h5></div></div></div><p>Sellel kaardil saab kontrollida ja jõustada failide ja kataloogide õigusi.</p><p>Nagu turvalisuse puhul, kasutab msec ka õiguste puhul mitmesuguseid tasemeid
(standard, secure jne), mida kehtestatakse vastavalt valitud
turbetasemele. Soovi korral saab luua omaenda õigustetasemeid, salvestades
need faili <code class="filename">perm.<tasemenimi></code> kataloogis
<code class="filename">etc/security/msec/</code>. See võimalus on mõeldud väga
kogenud kasutajatele, kel läheb tarvis kohandatud seadistust. Samuti saab
siinsamas kaardil muuta õigusi just selliseks nagu vaja. Kehtiv seadustus on
salvestatud faili <code class="filename">/etc/security/msec/perms.conf.</code> Selles
leiab loetelu kõigist õiguste muudatustest.</p><div class="mediaobject"><img src="images/msecgui8.png"/></div><p>Vaikimisi õigusi kuvatakse reeglite loendina (üks reegel rea kohta). Alates
vasakult antakse teada reegliga hõlmatud fail või kataloog, seejärel selle
omanik, grupp ja lõpuks õigused. Kui reegli puhul</p><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>kastike <span class="guilabel">Jõuga kehtestamine</span> ei ole märgitud, kontrollib
msec ainult seda, kas reeglis määratud õigused kehtivad, ning saadab
turvahoiatuse, kui see nii pole, aga ei muuda ise midagi.</p></li><li class="listitem"><p>kui kastike <span class="guilabel">Jõuga kehtestamine</span> on märgitud, kontrollib
msec esimese perioodilise kontrolli ajal õiguste vastavust reeglile ning
kirjutab need erinevuse korral üle.</p></li></ul></div><div class="important" title="Oluline" style="margin-left: 0.5in; margin-right: 0.5in;"><h3 class="title">Oluline</h3><p>Et see toimiks, peab <span class="bold"><strong>perioodiliste kontrollide
kaardil</strong></span> olema valik CHECK_PERMS sobivalt seadistatud.</p></div><p>Uue reegli loomiseks klõpsake nupule <span class="guibutton">Lisa reegel</span> ja
täitke väljad, nagu näha alloleval pildil. Väljal <span class="guilabel">Fail</span>
võib kasutada metamärki *. “current” tähendab, et midagi ei muudeta.</p><div class="mediaobject"><img src="images/msecgui9.png"/></div><p>Muudatuste jõustamiseks klõpsake nupule <span class="guibutton">Olgu</span> ning
kindlasti ärge unustage enne tööriistast väljumist kõiki muudatusi
salvestamast menüükäsuga <span class="guimenu">Fail -> Salvesta seadistus</span>. Kui
olete seadistusi muutnud, annab msecgui võimaluse need enne salvestamist üle
vaadata. </p><div class="note" title="Märkus" style="margin-left: 0.5in; margin-right: 0.5in;"><h3 class="title">Märkus</h3><p>Reegleid võib samuti luua või muuta seadistustefaili
<code class="filename">/etc/security/msec/perms.conf</code> redigeerides.
</p></div><div class="caution" title="Ettevaatust" style="margin-left: 0.5in; margin-right: 0.5in;"><h3 class="title">Ettevaatust</h3><p><span class="bold"><strong>Õiguste kaardil</strong></span> (või otse
seadistustefailis) tehtud muudatusi võetakse arvesse esimesel perioodilisel
kontrollil (vt valikut CHECK_PERMS <span class="bold"><strong>perioodiliste
kontrollide kaardil</strong></span>). Kui soovite, et neid kohe arvestataks,
kasutage käsureal administraatori õigustes käsku msecperms. Eelnevalt võib
anda käsu msecperms -p, millega saab teada õigused, mida msecperms muudab.</p></div><div class="caution" title="Ettevaatust" style="margin-left: 0.5in; margin-right: 0.5in;"><h3 class="title">Ettevaatust</h3><p>Pange kindlasti tähele, et kui muudate õigusi käsureal või failihalduris,
siis faili puhul, millel on <span class="bold"><strong>õiguste kaardil</strong></span>
ära märgitud kastike <span class="guilabel">Jõuga kehtestamine</span>, kirjutab
msecgui mõne aja pärast vanad õigused tagasi vastavalt valikutele
CHECK_PERMS ja CHECK_PERMS_ENFORCE <span class="bold"><strong>perioodiliste
kontrollide kaardil</strong></span>.</p></div></div></div><div class="footnotes"><br/><hr width="100" align="left"/><div class="footnote"><p><sup>[<a id="ftn.d4e3068" href="#d4e3068" class="para">43</a>] </sup>Tööriista saab käsurealt käivitada, kui anda administraatori õigustes käsk
<span class="bold"><strong>msecgui</strong></span>.</p></div></div></div><script xmlns="" type="text/javascript" src="main.js"><!----></script><hr xmlns=""/><div xmlns="" class="copyright">© Mageia</div><div xmlns="" class="license"><a href="index.html#CC_BY-SA">CC BY-SA 3.0</a></div><div class="navfooter"><hr/><table width="100%" summary="Navigation footer"><tr><td width="40%" align="left"><a accesskey="p" href="mcc-security.html">Eelmine</a> </td><td width="20%" align="center"><a accesskey="u" href="mcc-security.html">Üles</a></td><td width="40%" align="right"> <a accesskey="n" href="drakfirewall.html">Järgmine</a></td></tr><tr><td width="40%" align="left" valign="top"> </td><td width="20%" align="center"><a accesskey="h" href="index.html">Koju</a></td><td width="40%" align="right" valign="top"> </td></tr></table></div></div><div><div id="leftnavigation"><div id="tabs"><ul><li><a href="#treeDiv"><em>Sisukord</em></a></li><li><a href="#searchDiv"><em>Otsing</em></a></li></ul><div id="treeDiv"><img src="../../common/images/loading.gif" alt="loading table of contents..." id="tocLoading" style="display:block;"/><div id="ulTreeDiv" style="display:none"><ul id="tree" class="filetree"><li><span class="file section"><a href="mcc-intro.html">Mageia juhtimiskeskuse käsiraamatust</a></span></li><li><span class="file section"><a href="software-management.html">Tarkvara haldamine</a></span><ul><li><span class="file section"><a href="rpmdrake.html">Tarkvara haldamine (paigaldamine ja eemaldamine)</a></span><ul><li><span class="file section"><a href="rpmdrake.html#rpmdrake-introduction">Rpmdrake'i sissejuhatus</a></span></li><li><span class="file section"><a href="rpmdrake.html#d4e65">Akna põhiosad</a></span></li><li><span class="file section"><a href="rpmdrake.html#d4e103">Olekuveerg</a></span></li><li><span class="file section"><a href="rpmdrake.html#d4e156">Sõltuvused</a></span></li></ul></li><li><span class="file section"><a href="MageiaUpdate.html">Tarkvara uuendamine</a></span></li><li><span class="file section"><a href="mgaapplet-config.html">Uuendamissageduse seadistamine</a></span></li><li><span class="file section"><a href="drakrpm-edit-media.html">Tarkvaraallikate seadistamine</a></span><ul><li><span class="file section"><a href="drakrpm-edit-media.html#d4e228">Veerud</a></span></li><li><span class="file section"><a href="drakrpm-edit-media.html#d4e260">Nupud paremal</a></span></li><li><span class="file section"><a href="drakrpm-edit-media.html#d4e274">Menüü</a></span></li></ul></li></ul></li><li><span class="file section"><a href="mcc-sharing.html">Failide jagamine</a></span><ul><li><span class="file section"><a href="drakwizard_proftpd.html">FTP seadistamine</a></span><ul><li><span class="file section"><a href="drakwizard_proftpd.html#d4e348">Mis on FTP?</a></span></li><li><span class="file section"><a href="drakwizard_proftpd.html#d4e354">FTP-serveri loomine tööriistaga drakwizard proftpd</a></span></li></ul></li><li><span class="file section"><a href="drakwizard_apache2.html">Veebiserveri seadistamine</a></span><ul><li><span class="file section"><a href="drakwizard_apache2.html#d4e409">Mis on veebiserver?</a></span></li><li><span class="file section"><a href="drakwizard_apache2.html#d4e412">Veebiserveri loomine tööriistaga drakwizard apache2</a></span></li></ul></li></ul></li><li><span class="file section"><a href="mcc-networkservices.html">Võrguteenused</a></span><ul><li><span class="file section"><a href="drakwizard_dhcp.html">DHCP seadistamine</a></span><ul><li><span class="file section"><a href="drakwizard_dhcp.html#d4e503">Mis on DHCP?</a></span></li><li><span class="file section"><a href="drakwizard_dhcp.html#d4e507">DHCP-serveri loomine tööriistaga drakwizard dhcp</a></span></li><li><span class="file section"><a href="drakwizard_dhcp.html#d4e551">Mida tehakse?</a></span></li></ul></li><li><span class="file section"><a href="drakwizard_bind.html">DNS seadistamine</a></span></li><li><span class="file section"><a href="drakwizard_squid.html">Puhverserveri seadistamine</a></span><ul><li><span class="file section"><a href="drakwizard_squid.html#d4e625">Mis on puhverserver?</a></span></li><li><span class="file section"><a href="drakwizard_squid.html#d4e628">Puhverserveri loomine tööriistaga drakwizard squid</a></span></li><li><span class="file section"><a href="drakwizard_squid.html#d4e701">Mida tehakse?</a></span></li></ul></li><li><span class="file section"><a href="drakwizard_ntp.html">Aja seadistamine</a></span><ul><li><span class="file section"><a href="drakwizard_ntp.html#d4e750">NTP-serveri loomine tööriistaga drakwizard ntp</a></span></li><li><span class="file section"><a href="drakwizard_ntp.html#d4e776">Mida tehakse?</a></span></li></ul></li><li><span class="file section"><a href="drakwizard_sshd.html">OpenSSH deemoni seadistamine</a></span><ul><li><span class="file section"><a href="drakwizard_sshd.html#d4e815">Mis on SSH?</a></span></li><li><span class="file section"><a href="drakwizard_sshd.html#d4e820">SSH-deemoni loomine tööriistaga drakwizard sshd</a></span></li></ul></li></ul></li><li><span class="file section"><a href="mcc-hardware.html">Riistvara</a></span><ul><li><span class="file section"><a href="harddrake2.html">Riistvara seadistamine</a></span><ul><li><span class="file section"><a href="harddrake2.html#d4e956">Aken</a></span></li><li><span class="file section"><a href="harddrake2.html#d4e971">Menüü</a></span></li></ul></li><li><span class="file section"><a href="draksound.html">Heli seadistamine</a></span></li><li><span class="file section"><a href="drak3d.html">Ruumilise töölaua efektid</a></span><ul><li><span class="file section"><a href="drak3d.html#d4e1022">Sissejuhatus</a></span></li><li><span class="file section"><a href="drak3d.html#d4e1028">Alustamine</a></span></li><li><span class="file section"><a href="drak3d.html#d4e1042">Probleemide lahendamine</a></span><ul><li><span class="file section"><a href="drak3d.html#d4e1044">Töölauda pole sisselogimise järel näha</a></span></li></ul></li></ul></li><li><span class="file section"><a href="XFdrake.html">Graafikaserveri seadistamine</a></span></li><li><span class="file section"><a href="keyboarddrake.html">Klaviatuuri seadistamine</a></span><ul><li><span class="file section"><a href="keyboarddrake.html#d4e1133">Sissejuhatus</a></span></li><li><span class="file section"><a href="keyboarddrake.html#d4e1139">Klaviatuuripaigutus</a></span></li><li><span class="file section"><a href="keyboarddrake.html#d4e1142">Klaviatuuritüüp</a></span></li></ul></li><li><span class="file section"><a href="mousedrake.html">Osutusseadme (hiir, puutepadi) seadistamine</a></span></li><li><span class="file section"><a href="system-config-printer.html">Printeri paigaldamine ja seadistamine</a></span><ul><li><span class="file section"><a href="system-config-printer.html#introduction">Sissejuhatus</a></span></li><li><span class="file section"><a href="system-config-printer.html#automatic">Printer tuvastati automaatselt</a></span></li><li><span class="file section"><a href="system-config-printer.html#non_automatic">Printerit ei tuvastatud automaatselt</a></span></li><li><span class="file section"><a href="system-config-printer.html#terminate">Paigaldamise lõpetamine</a></span></li><li><span class="file section"><a href="system-config-printer.html#network_printer">Võrguprinter</a></span></li><li><span class="file section"><a href="system-config-printer.html#network_printing_protocols">Trükkimise võrguprotokollid</a></span></li><li><span class="file section"><a href="system-config-printer.html#properties">Seadme omadused</a></span></li><li><span class="file section"><a href="system-config-printer.html#d4e1277">Probleemide lahendamine</a></span></li><li><span class="file section"><a href="system-config-printer.html#specificities">Spetsiifilised probleemid</a></span></li></ul></li><li><span class="file section"><a href="scannerdrake.html">Skanneri seadistamine</a></span><ul><li><span class="file section"><a href="scannerdrake.html#scannerinstallation">Paigaldamine</a></span></li><li><span class="file section"><a href="scannerdrake.html#scannersharing">Skanneri jagamine</a></span></li><li><span class="file section"><a href="scannerdrake.html#scannerspecifics">Spetsiifilised probleemid</a></span></li><li><span class="file section"><a href="scannerdrake.html#scannerextrasteps">Paigaldamise lisasammud</a></span></li></ul></li><li><span class="file section"><a href="drakups.html">Puhvertoiteallika (UPS) seadistamine</a></span></li></ul></li><li><span class="file section"><a href="mcc-network.html">Kohtvõrk ja internet</a></span><ul><li><span class="file section"><a href="draknetcenter.html">Võrgukeskus</a></span><ul><li><span class="file section"><a href="draknetcenter.html#d4e1504">Sissejuhatus</a></span></li><li><span class="file section"><a href="draknetcenter.html#d4e1534">Nupp Jälgi</a></span></li><li><span class="file section"><a href="draknetcenter.html#d4e1545">Nupp Seadista</a></span></li><li><span class="file section"><a href="draknetcenter.html#d4e1604">Nupp Muud seadistused</a></span></li></ul></li><li><span class="file section"><a href="drakconnect.html">Uue võrguliidese seadistamine (LAN, ISDN, ADSL...)</a></span><ul><li><span class="file section"><a href="drakconnect.html#d4e1619">Sissejuhatus</a></span></li><li><span class="file section"><a href="drakconnect.html#d4e1626">Uus juhtmega ühendus (Ethernet)</a></span></li><li><span class="file section"><a href="drakconnect.html#d4e1680">Uus satelliidiühendus (DVB)</a></span></li><li><span class="file section"><a href="drakconnect.html#d4e1684">Uus kaablimodemi ühendus</a></span></li><li><span class="file section"><a href="drakconnect.html#d4e1742">Uus DSL-ühendus</a></span></li><li><span class="file section"><a href="drakconnect.html#d4e1778">Uus ISDN-ühendus</a></span></li><li><span class="file section"><a href="drakconnect.html#d4e1827">Uus juhtmeta ühendus (WiFi)</a></span></li><li><span class="file section"><a href="drakconnect.html#d4e1909">Uus GPRS/Edge/3G ühendus</a></span></li><li><span class="file section"><a href="drakconnect.html#d4e1935">Uus Bluetoothi sissehelistamisühendus</a></span></li><li><span class="file section"><a href="drakconnect.html#d4e1939">Uus analoogtelefonimodemi ühendus (POTS)</a></span></li><li><span class="file section"><a href="drakconnect.html#drakconnect-end">Seadistamise lõpetamine</a></span></li></ul></li><li><span class="file section"><a href="drakconnect--del.html">Ühenduse eemaldamine</a></span></li><li><span class="file section"><a href="drakproxy.html">Puhverserver</a></span></li><li><span class="file section"><a href="drakgw.html">Internetiühenduse jagamine teistele kohalikele masinatele</a></span><ul><li><span class="file section"><a href="drakgw.html#drakgw-principles">Põhialused</a></span></li><li><span class="file section"><a href="drakgw.html#drakgw-wizard">Interneti jagamise nõustaja</a></span></li><li><span class="file section"><a href="drakgw.html#drakgw-configure">Kliendi seadistamine</a></span></li><li><span class="file section"><a href="drakgw.html#drakgw-stop">Ühenduse jagamise peatamine</a></span></li></ul></li><li><span class="file section"><a href="draknetprofile.html">Võrguprofiilide haldamine</a></span></li><li><span class="file section"><a href="drakvpn.html">VPN-ühenduse seadistamine</a></span><ul><li><span class="file section"><a href="drakvpn.html#d4e2114">Sissejuhatus</a></span></li><li><span class="file section"><a href="drakvpn.html#d4e2120">Seadistamine</a></span></li></ul></li><li><span class="file section"><a href="drakhosts.html">Masinate määratlemine</a></span></li></ul></li><li><span class="file section"><a href="mcc-system.html">Süsteem</a></span><ul><li><span class="file section"><a href="drakauth.html">Autentimine</a></span></li><li><span class="file section"><a href="drakxservices.html">Süsteemi teenuste haldamine</a></span></li><li><span class="file section"><a href="drakfont.html">Fontide haldamine, lisamine ja eemaldamine. Windows(TM) fontide import</a></span></li><li><span class="file section"><a href="drakclock.html">Kuupäeva ja kellaaja seadistamine</a></span></li><li><span class="file section"><a href="localedrake.html">Süsteemi lokaliseerimine</a></span><ul><li><span class="file section"><a href="localedrake.html#input_method">Sisestusmeetod</a></span></li></ul></li><li><span class="file section"><a href="logdrake.html">Süsteemi logifailide vaatamine ja neis otsimine</a></span><ul><li><span class="file section"><a href="logdrake.html#d4e2333">Logides otsimine</a></span></li><li><span class="file section"><a href="logdrake.html#d4e2348">E-kirjaga hoiatuse saatmise seadistamine</a></span></li></ul></li><li><span class="file section"><a href="drakconsole.html">Konsooli avamine administraatorina</a></span></li><li><span class="file section"><a href="userdrake.html">Kasutajad ja grupid</a></span></li><li><span class="file section"><a href="transfugdrake.html">Windows(TM) dokumentide ja seadistuste import</a></span></li><li><span class="file section"><a href="draksnapshot-config.html">Hetktõmmised</a></span></li></ul></li><li><span class="file section"><a href="mcc-networksharing.html">Võrgu jagamine</a></span><ul><li><span class="file section"><a href="diskdrake--smb.html">Windowsi (SMB) jagatud ketaste ja kataloogide kasutamine</a></span><ul><li><span class="file section"><a href="diskdrake--smb.html#d4e2616">Sissejuhatus</a></span></li><li><span class="file section"><a href="diskdrake--smb.html#d4e2624">Kasutamine</a></span></li></ul></li><li><span class="file section"><a href="draksambashare.html">Kataloogide ja ketaste jagamine Sambaga</a></span><ul><li><span class="file section"><a href="draksambashare.html#d4e2657">Sissejuhatus</a></span></li><li><span class="file section"><a href="draksambashare.html#d4e2660">Valmistumine</a></span></li><li><span class="file section"><a href="draksambashare.html#d4e2665">Nõustaja - autonoomne server</a></span></li><li><span class="file section"><a href="draksambashare.html#d4e2708">Nõustaja - primaarne domeenikontroller</a></span></li><li><span class="file section"><a href="draksambashare.html#d4e2718">Kataloogi määramine jagatud ressursiks</a></span></li><li><span class="file section"><a href="draksambashare.html#d4e2731">Menüükirjed</a></span></li><li><span class="file section"><a href="draksambashare.html#d4e2747">Printerite jagamine</a></span></li><li><span class="file section"><a href="draksambashare.html#d4e2754">Samba kasutajad</a></span></li></ul></li><li><span class="file section"><a href="diskdrake--nfs.html">NFS-i jagatud ketaste ja kataloogide kasutamine</a></span><ul><li><span class="file section"><a href="diskdrake--nfs.html#d4e2771">Sissejuhatus</a></span></li><li><span class="file section"><a href="diskdrake--nfs.html#d4e2777">Kasutamine</a></span></li></ul></li><li><span class="file section"><a href="draknfs.html">Ketaste ja kataloogide jagamine NFS-i abil</a></span><ul><li><span class="file section"><a href="draknfs.html#d4e2812">Eelnevad nõuded</a></span></li><li><span class="file section"><a href="draknfs.html#d4e2821">Peaaken</a></span></li><li><span class="file section"><a href="draknfs.html#d4e2825">Kirje muutmine</a></span><ul><li><span class="file section"><a href="draknfs.html#d4e2832">NFS-kataloog</a></span></li><li><span class="file section"><a href="draknfs.html#d4e2836">Masina ligipääs</a></span></li><li><span class="file section"><a href="draknfs.html#d4e2848">Kasutaja ID sidumine</a></span></li><li><span class="file section"><a href="draknfs.html#d4e2858">Muud valikud</a></span></li></ul></li><li><span class="file section"><a href="draknfs.html#d4e2868">Menüükirjed</a></span><ul><li><span class="file section"><a href="draknfs.html#d4e2874">Fail|Salvesta konfiguratsioon</a></span></li><li><span class="file section"><a href="draknfs.html#d4e2877">NFS-server|Käivita uuesti</a></span></li><li><span class="file section"><a href="draknfs.html#d4e2880">NFS-server|Laadi uuesti</a></span></li></ul></li></ul></li><li><span class="file section"><a href="diskdrake--dav.html">WebDAV-i jagatud ketaste ja kataloogide kasutamine</a></span><ul><li><span class="file section"><a href="diskdrake--dav.html#d4e2895">Sissejuhatus</a></span></li><li><span class="file section"><a href="diskdrake--dav.html#d4e2899">Uue kirje loomine</a></span></li></ul></li></ul></li><li><span class="file section"><a href="mcc-localdisks.html">Kohalikud kettad</a></span><ul><li><span class="file section"><a href="drakdisk.html">Kettapartitsioonide haldamine</a></span></li><li><span class="file section"><a href="diskdrake--removable.html">CD/DVD-kirjuti</a></span><ul><li><span class="file section"><a href="diskdrake--removable.html#d4e2989">Haakepunkt</a></span></li><li><span class="file section"><a href="diskdrake--removable.html#d4e2993">Eelistused</a></span><ul><li><span class="file section"><a href="diskdrake--removable.html#d4e2998">user/nouser</a></span></li></ul></li></ul></li><li><span class="file section"><a href="diskdrake--fileshare.html">Kõvaketta partitsioonide jagamine</a></span></li></ul></li><li><span class="file section"><a href="mcc-security.html">Turvalisus</a></span><ul><li id="webhelp-currentid"><span class="file section"><a href="msecgui.html">MSEC: süsteemi turvalisus ja audit</a></span><ul><li><span class="file section"><a href="msecgui.html#d4e3065">Tutvustus</a></span></li><li><span class="file section"><a href="msecgui.html#d4e3077">Ülevaate kaart</a></span></li><li><span class="file section"><a href="msecgui.html#d4e3095">Turbeseadistuste kaart</a></span><ul><li><span class="file section"><a href="msecgui.html#d4e3102">Põhiseadistuste kaart</a></span></li><li><span class="file section"><a href="msecgui.html#d4e3144">Süsteemi turvalisuse kaart</a></span></li><li><span class="file section"><a href="msecgui.html#d4e3161">Võrguturvalisuse kaart</a></span></li><li><span class="file section"><a href="msecgui.html#d4e3167">Perioodiliste kontrollide kaart</a></span></li><li><span class="file section"><a href="msecgui.html#d4e3175">Erandite kaart</a></span></li><li><span class="file section"><a href="msecgui.html#d4e3191">Õiguste kaart</a></span></li></ul></li></ul></li><li><span class="file section"><a href="drakfirewall.html">Isikliku tulemüüri seadistamine</a></span></li><li><span class="file section"><a href="draksec.html">Mageia tööriistade autentimise seadistamine</a></span></li><li><span class="file section"><a href="drakinvictus.html">Võrguliideste ja tulemüüri põhjalikum seadistamine</a></span></li><li><span class="file section"><a href="drakguard.html">Lapselukk</a></span><ul><li><span class="file section"><a href="drakguard.html#d4e3321">Tutvustus</a></span></li><li><span class="file section"><a href="drakguard.html#d4e3331">Lapseluku seadistamine</a></span><ul><li><span class="file section"><a href="drakguard.html#d4e3348">Musta ja valge nimekirja kaardid</a></span></li><li><span class="file section"><a href="drakguard.html#d4e3352">Programmide blokeerimise kaart</a></span></li></ul></li></ul></li></ul></li><li><span class="file section"><a href="mcc-boot.html">Algkäivitus</a></span><ul><li><span class="file section"><a href="drakboot.html">Automaatse sisselogimise lubamine</a></span></li><li><span class="file section"><a href="drakboot--boot.html">Süsteemi käivitumise seadistamine</a></span></li><li><span class="file section"><a href="drakedm.html">Kuvahalduri seadistamine</a></span></li></ul></li><li><span class="file section"><a href="otherMageiaTools.html">Muud Mageia tööriistad</a></span><ul><li><span class="file section"><a href="drakbug.html">Mageia veateadete tööriist</a></span></li><li><span class="file section"><a href="drakbug_report.html">Logide ja süsteemiteabe kogumine veateate tarbeks</a></span></li><li><span class="file section"><a href="lsnetdrake.html">Saadaolevate NFS- ja SMB-ressursside leidmine</a></span></li><li><span class="file section"><a href="lspcidrake.html">PCI, USB ja PCMCIA teabe leidmine</a></span></li></ul></li></ul></div></div><div id="searchDiv"><div id="search"><form onsubmit="Verifie(ditaSearch_Form);return false" name="ditaSearch_Form" class="searchForm"><fieldset class="searchFieldSet"><legend>Otsing</legend><center><input id="textToSearch" name="textToSearch" type="text" class="searchText"/> <input onclick="Verifie(ditaSearch_Form)" type="button" class="searchButton" value="Go" id="doSearch"/></center></fieldset></form></div><div id="searchResults"><center/></div></div></div></div></div></body></html>
8' href='#n998'>998</a>
<a id='n999' href='#n999'>999</a>
<a id='n1000' href='#n1000'>1000</a>
<a id='n1001' href='#n1001'>1001</a>
<a id='n1002' href='#n1002'>1002</a>
<a id='n1003' href='#n1003'>1003</a>
<a id='n1004' href='#n1004'>1004</a>
<a id='n1005' href='#n1005'>1005</a>
<a id='n1006' href='#n1006'>1006</a>
<a id='n1007' href='#n1007'>1007</a>
<a id='n1008' href='#n1008'>1008</a>
<a id='n1009' href='#n1009'>1009</a>
<a id='n1010' href='#n1010'>1010</a>
<a id='n1011' href='#n1011'>1011</a>
<a id='n1012' href='#n1012'>1012</a>
<a id='n1013' href='#n1013'>1013</a>
<a id='n1014' href='#n1014'>1014</a>
<a id='n1015' href='#n1015'>1015</a>
<a id='n1016' href='#n1016'>1016</a>
<a id='n1017' href='#n1017'>1017</a>
<a id='n1018' href='#n1018'>1018</a>
<a id='n1019' href='#n1019'>1019</a>
<a id='n1020' href='#n1020'>1020</a>
<a id='n1021' href='#n1021'>1021</a>
<a id='n1022' href='#n1022'>1022</a>
<a id='n1023' href='#n1023'>1023</a>
<a id='n1024' href='#n1024'>1024</a>
<a id='n1025' href='#n1025'>1025</a>
<a id='n1026' href='#n1026'>1026</a>
<a id='n1027' href='#n1027'>1027</a>
<a id='n1028' href='#n1028'>1028</a>
<a id='n1029' href='#n1029'>1029</a>
<a id='n1030' href='#n1030'>1030</a>
<a id='n1031' href='#n1031'>1031</a>
<a id='n1032' href='#n1032'>1032</a>
<a id='n1033' href='#n1033'>1033</a>
<a id='n1034' href='#n1034'>1034</a>
<a id='n1035' href='#n1035'>1035</a>
<a id='n1036' href='#n1036'>1036</a>
<a id='n1037' href='#n1037'>1037</a>
<a id='n1038' href='#n1038'>1038</a>
<a id='n1039' href='#n1039'>1039</a>
<a id='n1040' href='#n1040'>1040</a>
<a id='n1041' href='#n1041'>1041</a>
<a id='n1042' href='#n1042'>1042</a>
<a id='n1043' href='#n1043'>1043</a>
<a id='n1044' href='#n1044'>1044</a>
<a id='n1045' href='#n1045'>1045</a>
<a id='n1046' href='#n1046'>1046</a>
<a id='n1047' href='#n1047'>1047</a>
<a id='n1048' href='#n1048'>1048</a>
<a id='n1049' href='#n1049'>1049</a>
<a id='n1050' href='#n1050'>1050</a>
<a id='n1051' href='#n1051'>1051</a>
<a id='n1052' href='#n1052'>1052</a>
<a id='n1053' href='#n1053'>1053</a>
<a id='n1054' href='#n1054'>1054</a>
<a id='n1055' href='#n1055'>1055</a>
<a id='n1056' href='#n1056'>1056</a>
<a id='n1057' href='#n1057'>1057</a>
<a id='n1058' href='#n1058'>1058</a>
<a id='n1059' href='#n1059'>1059</a>
<a id='n1060' href='#n1060'>1060</a>
<a id='n1061' href='#n1061'>1061</a>
<a id='n1062' href='#n1062'>1062</a>
<a id='n1063' href='#n1063'>1063</a>
<a id='n1064' href='#n1064'>1064</a>
<a id='n1065' href='#n1065'>1065</a>
<a id='n1066' href='#n1066'>1066</a>
<a id='n1067' href='#n1067'>1067</a>
<a id='n1068' href='#n1068'>1068</a>
<a id='n1069' href='#n1069'>1069</a>
<a id='n1070' href='#n1070'>1070</a>
<a id='n1071' href='#n1071'>1071</a>
<a id='n1072' href='#n1072'>1072</a>
<a id='n1073' href='#n1073'>1073</a>
<a id='n1074' href='#n1074'>1074</a>
<a id='n1075' href='#n1075'>1075</a>
<a id='n1076' href='#n1076'>1076</a>
<a id='n1077' href='#n1077'>1077</a>
<a id='n1078' href='#n1078'>1078</a>
<a id='n1079' href='#n1079'>1079</a>
<a id='n1080' href='#n1080'>1080</a>
<a id='n1081' href='#n1081'>1081</a>
<a id='n1082' href='#n1082'>1082</a>
<a id='n1083' href='#n1083'>1083</a>
<a id='n1084' href='#n1084'>1084</a>
<a id='n1085' href='#n1085'>1085</a>
</pre></td>
<td class='lines'><pre><code><span class="hl kwa">package</span> lang<span class="hl opt">;</span> <span class="hl slc"># $Id$</span>
<span class="hl kwa">use</span> diagnostics<span class="hl opt">;</span>
<span class="hl kwa">use</span> strict<span class="hl opt">;</span>
<span class="hl kwa">use</span> common<span class="hl opt">;</span>
<span class="hl kwa">use</span> <span class="hl kwc">log</span><span class="hl opt">;</span>
<span class="hl slc">#- key: lang name (locale name for some (~5) special cases needing</span>
<span class="hl slc">#- extra distinctions)</span>
<span class="hl slc">#- [0]: lang name in english</span>
<span class="hl slc">#- [1]: transliterated locale name in the locale name (used for sorting)</span>
<span class="hl slc">#- [2]: default locale name to use for that language if there isn't</span>
<span class="hl slc">#- an existing locale for the combination language+country choosen</span>
<span class="hl slc">#- [3]: geographic groups that this language belongs to (for displaying</span>
<span class="hl slc">#- in the menu grouped in smaller lists), 1=Europe, 2=Asia, 3=Africa,</span>
<span class="hl slc">#- 4=Oceania&Pacific, 5=America (if you wonder, it's the order</span>
<span class="hl slc">#- used in the olympic flag)</span>
<span class="hl slc">#- [4]: special value for LANGUAGE variable (if different of the default</span>
<span class="hl slc">#- of 'll_CC:ll_DD:ll' (ll_CC: locale (if exist) resulting of the</span>
<span class="hl slc">#- combination of chosen lang (ll) and country (CC), ll_DD: the</span>
<span class="hl slc">#- default locale shown here (field [2]) and ll: the language (the key))</span>
<span class="hl kwc">my</span> <span class="hl kwb">%langs</span> <span class="hl opt">= (</span>
<span class="hl str">'af'</span> <span class="hl opt">=> [</span> <span class="hl str">'Afrikaans'</span><span class="hl opt">,</span> <span class="hl str">'Afrikaans'</span><span class="hl opt">,</span> <span class="hl str">'af_ZA'</span><span class="hl opt">,</span> <span class="hl str">' 3 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-1'</span> <span class="hl opt">],</span>
<span class="hl str">'am'</span> <span class="hl opt">=> [</span> <span class="hl str">'Amharic'</span><span class="hl opt">,</span> <span class="hl str">'ZZ emarNa'</span><span class="hl opt">,</span> <span class="hl str">'am_ET'</span><span class="hl opt">,</span> <span class="hl str">' 3 '</span><span class="hl opt">,</span> <span class="hl str">'utf_am'</span> <span class="hl opt">],</span>
<span class="hl slc">#- doesn't work well after install</span>
<span class="hl slc">#'ar' => [ 'Arabic', 'AA Arabic', 'ar_EG', ' 23 ', 'utf_ar' ],</span>
<span class="hl str">'az'</span> <span class="hl opt">=> [</span> <span class="hl str">'Azeri (Latin)'</span><span class="hl opt">,</span> <span class="hl str">'Azerbaycanca'</span><span class="hl opt">,</span> <span class="hl str">'az_AZ'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_az'</span> <span class="hl opt">],</span>
<span class="hl str">'be'</span> <span class="hl opt">=> [</span> <span class="hl str">'Belarussian'</span><span class="hl opt">,</span> <span class="hl str">'Belaruskaya'</span><span class="hl opt">,</span> <span class="hl str">'be_BY'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'cp1251'</span> <span class="hl opt">],</span>
<span class="hl str">'bg'</span> <span class="hl opt">=> [</span> <span class="hl str">'Bulgarian'</span><span class="hl opt">,</span> <span class="hl str">'Blgarski'</span><span class="hl opt">,</span> <span class="hl str">'bg_BG'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'cp1251'</span> <span class="hl opt">],</span>
<span class="hl str">'bn'</span> <span class="hl opt">=> [</span> <span class="hl str">'Bengali'</span><span class="hl opt">,</span> <span class="hl str">'ZZ Bengali'</span><span class="hl opt">,</span> <span class="hl str">'bn_BD'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'unicode'</span> <span class="hl opt">],</span>
<span class="hl str">'br'</span> <span class="hl opt">=> [</span> <span class="hl str">'Britton'</span><span class="hl opt">,</span> <span class="hl str">'Brezhoneg'</span><span class="hl opt">,</span> <span class="hl str">'br_FR'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span><span class="hl opt">,</span> <span class="hl str">'br:fr_FR:fr'</span> <span class="hl opt">],</span>
<span class="hl str">'bs'</span> <span class="hl opt">=> [</span> <span class="hl str">'Bosnian'</span><span class="hl opt">,</span> <span class="hl str">'Bosanski'</span><span class="hl opt">,</span> <span class="hl str">'bs_BA'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-2'</span> <span class="hl opt">],</span>
<span class="hl str">'ca'</span> <span class="hl opt">=> [</span> <span class="hl str">'Catalan'</span><span class="hl opt">,</span> <span class="hl str">'Catala'</span><span class="hl opt">,</span> <span class="hl str">'ca_ES'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span><span class="hl opt">,</span> <span class="hl str">'ca:es_ES:es'</span> <span class="hl opt">],</span>
<span class="hl str">'cs'</span> <span class="hl opt">=> [</span> <span class="hl str">'Czech'</span><span class="hl opt">,</span> <span class="hl str">'Cestina'</span><span class="hl opt">,</span> <span class="hl str">'cs_CZ'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-2'</span> <span class="hl opt">],</span>
<span class="hl str">'cy'</span> <span class="hl opt">=> [</span> <span class="hl str">'Welsh'</span><span class="hl opt">,</span> <span class="hl str">'Cymraeg'</span><span class="hl opt">,</span> <span class="hl str">'cy_GB'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'utf_lat8'</span><span class="hl opt">,</span> <span class="hl str">'cy:en_GB:en'</span> <span class="hl opt">],</span>
<span class="hl str">'da'</span> <span class="hl opt">=> [</span> <span class="hl str">'Danish'</span><span class="hl opt">,</span> <span class="hl str">'Dansk'</span><span class="hl opt">,</span> <span class="hl str">'da_DK'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl str">'de'</span> <span class="hl opt">=> [</span> <span class="hl str">'German'</span><span class="hl opt">,</span> <span class="hl str">'Deutsch'</span><span class="hl opt">,</span> <span class="hl str">'de_DE'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl str">'el'</span> <span class="hl opt">=> [</span> <span class="hl str">'Greek'</span><span class="hl opt">,</span> <span class="hl str">'Ellynika'</span><span class="hl opt">,</span> <span class="hl str">'el_GR'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-7'</span> <span class="hl opt">],</span>
<span class="hl str">'en_GB'</span> <span class="hl opt">=> [</span> <span class="hl str">'English (British)'</span><span class="hl opt">,</span> <span class="hl str">'English (British)'</span><span class="hl opt">,</span> <span class="hl str">'en_GB'</span><span class="hl opt">,</span> <span class="hl str">'12345'</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl str">'en_US'</span> <span class="hl opt">=> [</span> <span class="hl str">'English (American)'</span><span class="hl opt">,</span> <span class="hl str">'English (American)'</span><span class="hl opt">,</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">' 5'</span><span class="hl opt">,</span> <span class="hl str">'C'</span> <span class="hl opt">],</span>
<span class="hl str">'eo'</span> <span class="hl opt">=> [</span> <span class="hl str">'Esperanto'</span><span class="hl opt">,</span> <span class="hl str">'Esperanto'</span><span class="hl opt">,</span> <span class="hl str">'eo_XX'</span><span class="hl opt">,</span> <span class="hl str">'12345'</span><span class="hl opt">,</span> <span class="hl str">'unicode'</span> <span class="hl opt">],</span>
<span class="hl str">'es'</span> <span class="hl opt">=> [</span> <span class="hl str">'Spanish'</span><span class="hl opt">,</span> <span class="hl str">'Espanol'</span><span class="hl opt">,</span> <span class="hl str">'es_ES'</span><span class="hl opt">,</span> <span class="hl str">'1 3 5'</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl str">'et'</span> <span class="hl opt">=> [</span> <span class="hl str">'Estonian'</span><span class="hl opt">,</span> <span class="hl str">'Eesti'</span><span class="hl opt">,</span> <span class="hl str">'et_EE'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl str">'eu'</span> <span class="hl opt">=> [</span> <span class="hl str">'Euskara (Basque)'</span><span class="hl opt">,</span> <span class="hl str">'Euskara'</span><span class="hl opt">,</span> <span class="hl str">'eu_ES'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl str">'fa'</span> <span class="hl opt">=> [</span> <span class="hl str">'Farsi (Iranian)'</span><span class="hl opt">,</span> <span class="hl str">'AA Farsi'</span><span class="hl opt">,</span> <span class="hl str">'fa_IR'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_ar'</span> <span class="hl opt">],</span>
<span class="hl str">'fi'</span> <span class="hl opt">=> [</span> <span class="hl str">'Finnish (Suomi)'</span><span class="hl opt">,</span> <span class="hl str">'Suomi'</span><span class="hl opt">,</span> <span class="hl str">'fi_FI'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl slc">#'fo' => [ 'Faroese', 'Foroyskt', 'fo_FO', '1 ', 'iso-8859-1' ],</span>
<span class="hl str">'fr'</span> <span class="hl opt">=> [</span> <span class="hl str">'French'</span><span class="hl opt">,</span> <span class="hl str">'Francais'</span><span class="hl opt">,</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'1 345'</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl str">'ga'</span> <span class="hl opt">=> [</span> <span class="hl str">'Gaelic (Irish)'</span><span class="hl opt">,</span> <span class="hl str">'Gaeilge'</span><span class="hl opt">,</span> <span class="hl str">'ga_IE'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span><span class="hl opt">,</span> <span class="hl str">'ga:en_IE:en_GB:en'</span> <span class="hl opt">],</span>
<span class="hl slc">#'gd' => [ 'Gaelic (Scottish)', 'Gaidhlig', 'gb_GB', '1 ', 'utf_lat8', 'gd:en_GB:en' ],</span>
<span class="hl str">'gl'</span> <span class="hl opt">=> [</span> <span class="hl str">'Galician'</span><span class="hl opt">,</span> <span class="hl str">'Galego'</span><span class="hl opt">,</span> <span class="hl str">'gl_ES'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span><span class="hl opt">,</span> <span class="hl str">'gl:es_ES:es:pt:pt_BR'</span> <span class="hl opt">],</span>
<span class="hl slc">#'gv' => [ 'Gaelic (Manx)', 'Gaelg', 'gv_GB', '1 ', 'utf_lat8', 'gv:en_GB:en' ],</span>
<span class="hl str">'he'</span> <span class="hl opt">=> [</span> <span class="hl str">'Hebrew'</span><span class="hl opt">,</span> <span class="hl str">'AA Ivrit'</span><span class="hl opt">,</span> <span class="hl str">'he_IL'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_he'</span> <span class="hl opt">],</span>
<span class="hl str">'hi'</span> <span class="hl opt">=> [</span> <span class="hl str">'Hindi'</span><span class="hl opt">,</span> <span class="hl str">'ZZ Hindi'</span><span class="hl opt">,</span> <span class="hl str">'hi_IN'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'unicode'</span> <span class="hl opt">],</span>
<span class="hl str">'hr'</span> <span class="hl opt">=> [</span> <span class="hl str">'Croatian'</span><span class="hl opt">,</span> <span class="hl str">'Hrvatski'</span><span class="hl opt">,</span> <span class="hl str">'hr_HR'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-2'</span> <span class="hl opt">],</span>
<span class="hl str">'hu'</span> <span class="hl opt">=> [</span> <span class="hl str">'Hungarian'</span><span class="hl opt">,</span> <span class="hl str">'Magyar'</span><span class="hl opt">,</span> <span class="hl str">'hu_HU'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-2'</span> <span class="hl opt">],</span>
<span class="hl str">'hy'</span> <span class="hl opt">=> [</span> <span class="hl str">'Armenian'</span><span class="hl opt">,</span> <span class="hl str">'ZZ Armenian'</span><span class="hl opt">,</span> <span class="hl str">'hy_AM'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_hy'</span> <span class="hl opt">],</span>
<span class="hl slc">#'ia' => [ 'Interlingua', 'Interlingua', 'ia_XX', '1 5', 'utf8' ],</span>
<span class="hl str">'id'</span> <span class="hl opt">=> [</span> <span class="hl str">'Indonesian'</span><span class="hl opt">,</span> <span class="hl str">'Bahasa Indonesia'</span><span class="hl opt">,</span> <span class="hl str">'id_ID'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-1'</span> <span class="hl opt">],</span>
<span class="hl str">'is'</span> <span class="hl opt">=> [</span> <span class="hl str">'Icelandic'</span><span class="hl opt">,</span> <span class="hl str">'Islenska'</span><span class="hl opt">,</span> <span class="hl str">'is_IS'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-1'</span> <span class="hl opt">],</span>
<span class="hl str">'it'</span> <span class="hl opt">=> [</span> <span class="hl str">'Italian'</span><span class="hl opt">,</span> <span class="hl str">'Italiano'</span><span class="hl opt">,</span> <span class="hl str">'it_IT'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl slc">#-'iu' => [ 'Inuktitut', 'ZZ Inuktitut', 'iu_CA', ' 5', 'utf_iu' ],</span>
<span class="hl str">'ja'</span> <span class="hl opt">=> [</span> <span class="hl str">'Japanese'</span><span class="hl opt">,</span> <span class="hl str">'ZZ Nihongo'</span><span class="hl opt">,</span> <span class="hl str">'ja_JP'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'jisx0208'</span> <span class="hl opt">],</span>
<span class="hl str">'ka'</span> <span class="hl opt">=> [</span> <span class="hl str">'Georgian'</span><span class="hl opt">,</span> <span class="hl str">'ZZ Georgian'</span><span class="hl opt">,</span> <span class="hl str">'ka_GE'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_ka'</span> <span class="hl opt">],</span>
<span class="hl slc">#-'kl' => [ 'Greenlandic (inuit)', 'ZZ Inuit', 'kl_GL', ' 5', 'iso-8859-1' ],</span>
<span class="hl str">'kn'</span> <span class="hl opt">=> [</span> <span class="hl str">'Kannada'</span><span class="hl opt">,</span> <span class="hl str">'ZZ Kannada'</span><span class="hl opt">,</span> <span class="hl str">'kn_IN'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'unicode'</span> <span class="hl opt">],</span>
<span class="hl str">'ko'</span> <span class="hl opt">=> [</span> <span class="hl str">'Korean'</span><span class="hl opt">,</span> <span class="hl str">'ZZ Korea'</span><span class="hl opt">,</span> <span class="hl str">'ko_KR'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'ksc5601'</span> <span class="hl opt">],</span>
<span class="hl slc">#-'kw' => [ 'Cornish', 'Kernewek', 'kw_GB', '1 ', 'utf_lat8', 'kw:en_GB:en' ],</span>
<span class="hl str">'lo'</span> <span class="hl opt">=> [</span> <span class="hl str">'Laotian'</span><span class="hl opt">,</span> <span class="hl str">'Laotian'</span><span class="hl opt">,</span> <span class="hl str">'lo_LA'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_lo'</span> <span class="hl opt">],</span>
<span class="hl str">'lt'</span> <span class="hl opt">=> [</span> <span class="hl str">'Lithuanian'</span><span class="hl opt">,</span> <span class="hl str">'Lietuviskai'</span><span class="hl opt">,</span> <span class="hl str">'lt_LT'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-13'</span> <span class="hl opt">],</span>
<span class="hl str">'lv'</span> <span class="hl opt">=> [</span> <span class="hl str">'Latvian'</span><span class="hl opt">,</span> <span class="hl str">'Latviesu'</span><span class="hl opt">,</span> <span class="hl str">'lv_LV'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-13'</span> <span class="hl opt">],</span>
<span class="hl str">'mi'</span> <span class="hl opt">=> [</span> <span class="hl str">'Maori'</span><span class="hl opt">,</span> <span class="hl str">'Maori'</span><span class="hl opt">,</span> <span class="hl str">'mi_NZ'</span><span class="hl opt">,</span> <span class="hl str">' 4 '</span><span class="hl opt">,</span> <span class="hl str">'unicode'</span> <span class="hl opt">],</span>
<span class="hl str">'mk'</span> <span class="hl opt">=> [</span> <span class="hl str">'Macedonian'</span><span class="hl opt">,</span> <span class="hl str">'Makedonski'</span><span class="hl opt">,</span> <span class="hl str">'mk_MK'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'utf_cyr1'</span> <span class="hl opt">],</span>
<span class="hl str">'mn'</span> <span class="hl opt">=> [</span> <span class="hl str">'Mongolian'</span><span class="hl opt">,</span> <span class="hl str">'Mongol'</span><span class="hl opt">,</span> <span class="hl str">'mn_MN'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_cyr2'</span> <span class="hl opt">],</span>
<span class="hl str">'ms'</span> <span class="hl opt">=> [</span> <span class="hl str">'Malay'</span><span class="hl opt">,</span> <span class="hl str">'Bahasa Melayu'</span><span class="hl opt">,</span> <span class="hl str">'ms_MY'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-1'</span> <span class="hl opt">],</span>
<span class="hl str">'mt'</span> <span class="hl opt">=> [</span> <span class="hl str">'Maltese'</span><span class="hl opt">,</span> <span class="hl str">'Maltin'</span><span class="hl opt">,</span> <span class="hl str">'mt_MT'</span><span class="hl opt">,</span> <span class="hl str">'1 3 '</span><span class="hl opt">,</span> <span class="hl str">'unicode'</span> <span class="hl opt">],</span>
<span class="hl str">'nb'</span> <span class="hl opt">=> [</span> <span class="hl str">'Norwegian Bokmaal'</span><span class="hl opt">,</span> <span class="hl str">'Norsk, Bokmal'</span><span class="hl opt">,</span> <span class="hl str">'no_NO'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-1'</span><span class="hl opt">,</span> <span class="hl str">'nb:no'</span> <span class="hl opt">],</span>
<span class="hl str">'nl'</span> <span class="hl opt">=> [</span> <span class="hl str">'Dutch'</span><span class="hl opt">,</span> <span class="hl str">'Nederlands'</span><span class="hl opt">,</span> <span class="hl str">'nl_NL'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span> <span class="hl opt">],</span>
<span class="hl str">'nn'</span> <span class="hl opt">=> [</span> <span class="hl str">'Norwegian Nynorsk'</span><span class="hl opt">,</span> <span class="hl str">'Norsk, Nynorsk'</span><span class="hl opt">,</span> <span class="hl str">'nn_NO'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-1'</span><span class="hl opt">,</span> <span class="hl str">'nn:no</span><span class="hl ipl">@nynorsk</span><span class="hl str">:no_NY:no:nb'</span> <span class="hl opt">],</span>
<span class="hl slc">#-'oc' => [ 'Occitan', 'Occitan', 'oc_FR', '1 ', 'iso-8859-1', 'oc:fr_FR:fr' ],</span>
<span class="hl slc">#-'ph' => [ 'Pilipino', 'Pilipino', 'ph_PH', ' 2 ', 'iso-8859-1', 'ph:tl' ],</span>
<span class="hl str">'pl'</span> <span class="hl opt">=> [</span> <span class="hl str">'Polish'</span><span class="hl opt">,</span> <span class="hl str">'Polski'</span><span class="hl opt">,</span> <span class="hl str">'pl_PL'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-2'</span> <span class="hl opt">],</span>
<span class="hl str">'pt'</span> <span class="hl opt">=> [</span> <span class="hl str">'Portuguese'</span><span class="hl opt">,</span> <span class="hl str">'Portugues'</span><span class="hl opt">,</span> <span class="hl str">'pt_PT'</span><span class="hl opt">,</span> <span class="hl str">'1 3 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span><span class="hl opt">,</span> <span class="hl str">'pt_PT:pt:pt_BR'</span> <span class="hl opt">],</span>
<span class="hl str">'pt_BR'</span> <span class="hl opt">=> [</span> <span class="hl str">'Portuguese Brazil'</span><span class="hl opt">,</span> <span class="hl str">'Portugues do Brasil'</span><span class="hl opt">,</span> <span class="hl str">'pt_BR'</span><span class="hl opt">,</span> <span class="hl str">' 5'</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-1'</span><span class="hl opt">,</span> <span class="hl str">'pt_BR:pt_PT:pt'</span> <span class="hl opt">],</span>
<span class="hl str">'ro'</span> <span class="hl opt">=> [</span> <span class="hl str">'Romanian'</span><span class="hl opt">,</span> <span class="hl str">'Romana'</span><span class="hl opt">,</span> <span class="hl str">'ro_RO'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-2'</span> <span class="hl opt">],</span>
<span class="hl str">'ru'</span> <span class="hl opt">=> [</span> <span class="hl str">'Russian'</span><span class="hl opt">,</span> <span class="hl str">'Russkij'</span><span class="hl opt">,</span> <span class="hl str">'ru_RU'</span><span class="hl opt">,</span> <span class="hl str">'12 '</span><span class="hl opt">,</span> <span class="hl str">'koi8-r'</span> <span class="hl opt">],</span>
<span class="hl str">'sh'</span> <span class="hl opt">=> [</span> <span class="hl str">'Serbian Latin'</span><span class="hl opt">,</span> <span class="hl str">'Srpska'</span><span class="hl opt">,</span> <span class="hl str">'sh_YU'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-2'</span><span class="hl opt">,</span> <span class="hl str">'sh:sr</span><span class="hl ipl">@Latn</span><span class="hl str">'</span> <span class="hl opt">],</span>
<span class="hl str">'sk'</span> <span class="hl opt">=> [</span> <span class="hl str">'Slovak'</span><span class="hl opt">,</span> <span class="hl str">'Slovencina'</span><span class="hl opt">,</span> <span class="hl str">'sk_SK'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-2'</span> <span class="hl opt">],</span>
<span class="hl str">'sl'</span> <span class="hl opt">=> [</span> <span class="hl str">'Slovenian'</span><span class="hl opt">,</span> <span class="hl str">'Slovenscina'</span><span class="hl opt">,</span> <span class="hl str">'sl_SI'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-2'</span> <span class="hl opt">],</span>
<span class="hl str">'sq'</span> <span class="hl opt">=> [</span> <span class="hl str">'Albanian'</span><span class="hl opt">,</span> <span class="hl str">'Shqip'</span><span class="hl opt">,</span> <span class="hl str">'sq_AL'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-1'</span> <span class="hl opt">],</span>
<span class="hl str">'sr'</span> <span class="hl opt">=> [</span> <span class="hl str">'Serbian Cyrillic'</span><span class="hl opt">,</span> <span class="hl str">'Srpska'</span><span class="hl opt">,</span> <span class="hl str">'sr_YU'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-5'</span><span class="hl opt">,</span> <span class="hl str">'sp:sr'</span> <span class="hl opt">],</span>
<span class="hl str">'sv'</span> <span class="hl opt">=> [</span> <span class="hl str">'Swedish'</span><span class="hl opt">,</span> <span class="hl str">'Svenska'</span><span class="hl opt">,</span> <span class="hl str">'sv_SE'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-1'</span> <span class="hl opt">],</span>
<span class="hl str">'ta'</span> <span class="hl opt">=> [</span> <span class="hl str">'Tamil'</span><span class="hl opt">,</span> <span class="hl str">'ZZ Tamil'</span><span class="hl opt">,</span> <span class="hl str">'ta_IN'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_ta'</span> <span class="hl opt">],</span>
<span class="hl str">'tg'</span> <span class="hl opt">=> [</span> <span class="hl str">'Tajik'</span><span class="hl opt">,</span> <span class="hl str">'Tojiki'</span><span class="hl opt">,</span> <span class="hl str">'tg_TJ'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_cyr2'</span> <span class="hl opt">],</span>
<span class="hl str">'th'</span> <span class="hl opt">=> [</span> <span class="hl str">'Thai'</span><span class="hl opt">,</span> <span class="hl str">'ZZ Thai'</span><span class="hl opt">,</span> <span class="hl str">'th_TH'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'tis620'</span> <span class="hl opt">],</span>
<span class="hl str">'tr'</span> <span class="hl opt">=> [</span> <span class="hl str">'Turkish'</span><span class="hl opt">,</span> <span class="hl str">'Turkce'</span><span class="hl opt">,</span> <span class="hl str">'tr_TR'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-9'</span> <span class="hl opt">],</span>
<span class="hl slc">#-'tt' => [ 'Tatar', 'Tatar', 'tt_RU', ' 2 ', 'utf_cyr2' ],</span>
<span class="hl str">'uk'</span> <span class="hl opt">=> [</span> <span class="hl str">'Ukrainian'</span><span class="hl opt">,</span> <span class="hl str">'Ukrayinska'</span><span class="hl opt">,</span> <span class="hl str">'uk_UA'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'koi8-u'</span> <span class="hl opt">],</span>
<span class="hl slc">#-'ur' => [ 'Urdu', 'AA Urdu', 'ur_PK', ' 2 ', 'utf_ar' ], </span>
<span class="hl str">'uz'</span> <span class="hl opt">=> [</span> <span class="hl str">'Uzbek'</span><span class="hl opt">,</span> <span class="hl str">'Ozbekcha'</span><span class="hl opt">,</span> <span class="hl str">'uz_UZ'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'unicode'</span> <span class="hl opt">],</span>
<span class="hl str">'vi'</span> <span class="hl opt">=> [</span> <span class="hl str">'Vietnamese'</span><span class="hl opt">,</span> <span class="hl str">'Tieng Viet'</span><span class="hl opt">,</span> <span class="hl str">'vi_VN'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'utf_vi'</span> <span class="hl opt">],</span>
<span class="hl str">'wa'</span> <span class="hl opt">=> [</span> <span class="hl str">'Walon'</span><span class="hl opt">,</span> <span class="hl str">'Walon'</span><span class="hl opt">,</span> <span class="hl str">'wa_BE'</span><span class="hl opt">,</span> <span class="hl str">'1 '</span><span class="hl opt">,</span> <span class="hl str">'iso-8859-15'</span><span class="hl opt">,</span> <span class="hl str">'wa:fr_BE:fr'</span> <span class="hl opt">],</span>
<span class="hl slc">#- Xhosa locale (xh_ZA) is not yet available, using en_ZA instead,</span>
<span class="hl slc">#- and defining a LANGUAGE variable</span>
<span class="hl slc">#waiting for lang-xh.png, it has kde trans.</span>
<span class="hl slc">#-'xh' => [ 'Xhosa', 'IsiXhosa', 'xh_ZA', ' 3 ', 'iso-8859-1', 'xh:en_ZA' ],</span>
<span class="hl slc">#-'yi' => [ 'Yiddish', 'AA Yidish', 'yi_US', '1 5', 'utf_he' ],</span>
<span class="hl str">'zh_CN'</span> <span class="hl opt">=> [</span> <span class="hl str">'Chinese Simplified'</span><span class="hl opt">,</span> <span class="hl str">'ZZ ZhongWen'</span><span class="hl opt">,</span> <span class="hl str">'zh_CN'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'gb2312'</span><span class="hl opt">,</span> <span class="hl str">'zh_CN.GB2312:zh_CN:zh'</span> <span class="hl opt">],</span>
<span class="hl str">'zh_TW'</span> <span class="hl opt">=> [</span> <span class="hl str">'Chinese Traditional'</span><span class="hl opt">,</span> <span class="hl str">'ZZ ZhongWen'</span><span class="hl opt">,</span> <span class="hl str">'zh_TW'</span><span class="hl opt">,</span> <span class="hl str">' 2 '</span><span class="hl opt">,</span> <span class="hl str">'Big5'</span><span class="hl opt">,</span> <span class="hl str">'zh_TW.Big5:zh_TW:zh_HK:zh'</span> <span class="hl opt">],</span>
<span class="hl opt">);</span>
<span class="hl kwa">sub</span> l2name <span class="hl opt">{</span> <span class="hl kwc">exists</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]} &&</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]}[</span><span class="hl num">0</span><span class="hl opt">] }</span>
<span class="hl kwa">sub</span> l2transliterated <span class="hl opt">{</span> <span class="hl kwc">exists</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]} &&</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]}[</span><span class="hl num">1</span><span class="hl opt">] }</span>
<span class="hl kwa">sub</span> l2locale <span class="hl opt">{</span> <span class="hl kwc">exists</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]} &&</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]}[</span><span class="hl num">2</span><span class="hl opt">] }</span>
<span class="hl kwa">sub</span> l2location <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl kwb">%geo</span> <span class="hl opt">= (</span><span class="hl num">1</span> <span class="hl opt">=></span> <span class="hl str">'Europe'</span><span class="hl opt">,</span> <span class="hl num">2</span> <span class="hl opt">=></span> <span class="hl str">'Asia'</span><span class="hl opt">,</span> <span class="hl num">3</span> <span class="hl opt">=></span> <span class="hl str">'Africa'</span><span class="hl opt">,</span> <span class="hl num">4</span> <span class="hl opt">=></span> <span class="hl str">'Oceania/Pacific'</span><span class="hl opt">,</span> <span class="hl num">5</span> <span class="hl opt">=></span> <span class="hl str">'America'</span><span class="hl opt">);</span>
<span class="hl kwc">map</span> <span class="hl opt">{</span> if_<span class="hl opt">(</span><span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]}[</span><span class="hl num">3</span><span class="hl opt">] =~</span> <span class="hl kwb">$_, $geo</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span> <span class="hl num">1</span><span class="hl opt">.</span><span class="hl num">.5</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> l2charset <span class="hl opt">{</span> <span class="hl kwc">exists</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]} &&</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]}[</span><span class="hl num">4</span><span class="hl opt">] }</span>
<span class="hl kwa">sub</span> l2language <span class="hl opt">{</span> <span class="hl kwc">exists</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]} &&</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]}[</span><span class="hl num">5</span><span class="hl opt">] }</span>
<span class="hl kwa">sub</span> list_langs <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">%options</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">@l</span> <span class="hl opt">=</span> <span class="hl kwc">keys</span> <span class="hl kwb">%langs</span><span class="hl opt">;</span>
<span class="hl kwb">$options</span><span class="hl opt">{</span>exclude_non_installed<span class="hl opt">}</span> ? <span class="hl kwc">grep</span> <span class="hl opt">{ -</span>e <span class="hl str">"/usr/share/locale/"</span><span class="hl opt">.</span>l2locale<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">).</span><span class="hl str">"/LC_CTYPE"</span> <span class="hl opt">}</span> <span class="hl kwb">@l</span> <span class="hl opt">:</span> <span class="hl kwb">@l</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> text_direction_rtl<span class="hl opt">() {</span> N<span class="hl opt">(</span><span class="hl str">"default:LTR"</span><span class="hl opt">)</span> <span class="hl kwc">eq</span> <span class="hl str">"default:RTL"</span> <span class="hl opt">}</span>
<span class="hl slc">#- key: country name (that should be YY in xx_YY locale)</span>
<span class="hl slc">#- [0]: country name in natural language</span>
<span class="hl slc">#- [1]: default locale for that country </span>
<span class="hl slc">#- [2]: geographic groups that this country belongs to (for displaying</span>
<span class="hl slc">#- in the menu grouped in smaller lists), 1=Europe, 2=Asia, 3=Africa,</span>
<span class="hl slc">#- 4=Oceania&Pacific, 5=America (if you wonder, it's the order</span>
<span class="hl slc">#- used in the olympic flag)</span>
<span class="hl slc">#-</span>
<span class="hl slc">#- Note: for countries for which a glibc locale don't exist (yet) I tried to</span>
<span class="hl slc">#- put a locale that makes sense; and a '#' at the end of the line to show</span>
<span class="hl slc">#- the locale is not the "correct" one. 'en_US' is used when no good choice</span>
<span class="hl slc">#- is available.</span>
<span class="hl kwc">my</span> <span class="hl kwb">%countries</span> <span class="hl opt">= (</span>
<span class="hl str">'AF'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Afghanistan"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'AD'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Andorra"</span><span class="hl opt">),</span> <span class="hl str">'ca_ES'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'AE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"United Arab Emirates"</span><span class="hl opt">),</span> <span class="hl str">'ar_AE'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'AG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Antigua and Barbuda"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'AI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Anguilla"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'AL'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Albania"</span><span class="hl opt">),</span> <span class="hl str">'sq_AL'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'AM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Armenia"</span><span class="hl opt">),</span> <span class="hl str">'hy_AM'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'AN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Netherlands Antilles"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'AO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Angola"</span><span class="hl opt">),</span> <span class="hl str">'pt_PT'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'AQ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Antarctica"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'AR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Argentina"</span><span class="hl opt">),</span> <span class="hl str">'es_AR'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'AS'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"American Samoa"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'AT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Austria"</span><span class="hl opt">),</span> <span class="hl str">'de_AT'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'AU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Australia"</span><span class="hl opt">),</span> <span class="hl str">'en_AU'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span>
<span class="hl str">'AW'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Aruba"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'AZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Azerbaijan"</span><span class="hl opt">),</span> <span class="hl str">'az_AZ'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'BA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Bosnia and Herzegovina"</span><span class="hl opt">),</span> <span class="hl str">'bs_BA'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'BB'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Barbados"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'BD'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Bangladesh"</span><span class="hl opt">),</span> <span class="hl str">'bn_BD'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'BE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Belgium"</span><span class="hl opt">),</span> <span class="hl str">'fr_BE'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'BF'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Burkina Faso"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'BG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Bulgaria"</span><span class="hl opt">),</span> <span class="hl str">'bg_BG'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'BH'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Bahrain"</span><span class="hl opt">),</span> <span class="hl str">'ar_BH'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'BI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Burundi"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'BJ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Benin"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'BM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Bermuda"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'BN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Brunei Darussalam"</span><span class="hl opt">),</span> <span class="hl str">'ar_EG'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'BO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Bolivia"</span><span class="hl opt">),</span> <span class="hl str">'es_BO'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'BR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Brazil"</span><span class="hl opt">),</span> <span class="hl str">'pt_BR'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'BS'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Bahamas"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'BT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Bhutan"</span><span class="hl opt">),</span> <span class="hl str">'en_IN'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'BV'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Bouvet Island"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'BW'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Botswana"</span><span class="hl opt">),</span> <span class="hl str">'en_BW'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span>
<span class="hl str">'BY'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Belarus"</span><span class="hl opt">),</span> <span class="hl str">'be_BY'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'BZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Belize"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Canada"</span><span class="hl opt">),</span> <span class="hl str">'en_CA'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'CC'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Cocos (Keeling) Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CD'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Congo (Kinshasa)"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CF'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Central African Republic"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Congo (Brazzaville)"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CH'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Switzerland"</span><span class="hl opt">),</span> <span class="hl str">'de_CH'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'CI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Cote d'Ivoire"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CK'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Cook Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CL'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Chile"</span><span class="hl opt">),</span> <span class="hl str">'es_CL'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'CM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Cameroon"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"China"</span><span class="hl opt">),</span> <span class="hl str">'zh_CN'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'CO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Colombia"</span><span class="hl opt">),</span> <span class="hl str">'es_CO'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'CR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Costa Rica"</span><span class="hl opt">),</span> <span class="hl str">'es_CR'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'CU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Cuba"</span><span class="hl opt">),</span> <span class="hl str">'es_DO'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CV'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Cape Verde"</span><span class="hl opt">),</span> <span class="hl str">'pt_PT'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CX'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Christmas Island"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CY'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Cyprus"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'CZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Czech Republic"</span><span class="hl opt">),</span> <span class="hl str">'cs_CZ'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'DE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Germany"</span><span class="hl opt">),</span> <span class="hl str">'de_DE'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'DJ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Djibouti"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'DK'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Denmark"</span><span class="hl opt">),</span> <span class="hl str">'da_DK'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'DM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Dominica"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'DO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Dominican Republic"</span><span class="hl opt">),</span> <span class="hl str">'es_DO'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'DZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Algeria"</span><span class="hl opt">),</span> <span class="hl str">'ar_DZ'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span>
<span class="hl str">'EC'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Ecuador"</span><span class="hl opt">),</span> <span class="hl str">'es_EC'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'EE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Estonia"</span><span class="hl opt">),</span> <span class="hl str">'et_EE'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'EG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Egypt"</span><span class="hl opt">),</span> <span class="hl str">'ar_EG'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span>
<span class="hl str">'EH'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Western Sahara"</span><span class="hl opt">),</span> <span class="hl str">'ar_MA'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'ER'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Eritrea"</span><span class="hl opt">),</span> <span class="hl str">'ti_ER'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span>
<span class="hl str">'ES'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Spain"</span><span class="hl opt">),</span> <span class="hl str">'es_ES'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'ET'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Ethiopia"</span><span class="hl opt">),</span> <span class="hl str">'am_ET'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span>
<span class="hl str">'FI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Finland"</span><span class="hl opt">),</span> <span class="hl str">'fi_FI'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'FJ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Fiji"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'FK'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Falkland Islands (Malvinas)"</span><span class="hl opt">),</span> <span class="hl str">'en_GB'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'FM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Micronesia"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'FO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Faroe Islands"</span><span class="hl opt">),</span> <span class="hl str">'fo_FO'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'FR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"France"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'GA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Gabon"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GB'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"United Kingdom"</span><span class="hl opt">),</span> <span class="hl str">'en_GB'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'GD'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Grenada"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Georgia"</span><span class="hl opt">),</span> <span class="hl str">'ka_GE'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'GF'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"French Guiana"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GH'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Ghana"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Gibraltar"</span><span class="hl opt">),</span> <span class="hl str">'en_GB'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GL'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Greenland"</span><span class="hl opt">),</span> <span class="hl str">'kl_GL'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'GM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Gambia"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Guinea"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GP'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Guadeloupe"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GQ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Equatorial Guinea"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Greece"</span><span class="hl opt">),</span> <span class="hl str">'el_GR'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'GS'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"South Georgia and the South Sandwich Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Guatemala"</span><span class="hl opt">),</span> <span class="hl str">'es_GT'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'GU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Guam"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GW'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Guinea-Bissau"</span><span class="hl opt">),</span> <span class="hl str">'pt_PT'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'GY'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Guyana"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'HK'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"China"</span><span class="hl opt">) .</span> <span class="hl str">' ('</span> <span class="hl opt">.</span> N_<span class="hl opt">(</span><span class="hl str">"Hong Kong"</span><span class="hl opt">) .</span> <span class="hl str">')'</span><span class="hl opt">,</span> <span class="hl str">'zh_HK'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'HM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Heard and McDonald Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'HN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Honduras"</span><span class="hl opt">),</span> <span class="hl str">'es_HN'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'HR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Croatia"</span><span class="hl opt">),</span> <span class="hl str">'hr_HR'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'HT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Haiti"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'HU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Hungary"</span><span class="hl opt">),</span> <span class="hl str">'hu_HU'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'ID'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Indonesia"</span><span class="hl opt">),</span> <span class="hl str">'id_ID'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'IE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Ireland"</span><span class="hl opt">),</span> <span class="hl str">'en_IE'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'IL'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Israel"</span><span class="hl opt">),</span> <span class="hl str">'he_IL'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'IN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"India"</span><span class="hl opt">),</span> <span class="hl str">'hi_IN'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'IO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"British Indian Ocean Territory"</span><span class="hl opt">),</span> <span class="hl str">'en_GB'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'IQ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Iraq"</span><span class="hl opt">),</span> <span class="hl str">'ar_IQ'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'IR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Iran"</span><span class="hl opt">),</span> <span class="hl str">'fa_IR'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'IS'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Iceland"</span><span class="hl opt">),</span> <span class="hl str">'is_IS'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'IT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Italy"</span><span class="hl opt">),</span> <span class="hl str">'it_IT'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'JM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Jamaica"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'JO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Jordan"</span><span class="hl opt">),</span> <span class="hl str">'ar_JO'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'JP'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Japan"</span><span class="hl opt">),</span> <span class="hl str">'ja_JP'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'KE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Kenya"</span><span class="hl opt">),</span> <span class="hl str">'en_ZW'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'KG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Kyrgyzstan"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'KH'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Cambodia"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc"># kh_KH not released yet</span>
<span class="hl str">'KI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Kiribati"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'KM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Comoros"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'KN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Saint Kitts and Nevis"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'KP'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Korea (North)"</span><span class="hl opt">),</span> <span class="hl str">'ko_KR'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'KR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Korea"</span><span class="hl opt">),</span> <span class="hl str">'ko_KR'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'KW'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Kuwait"</span><span class="hl opt">),</span> <span class="hl str">'ar_KW'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'KY'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Cayman Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'KZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Kazakhstan"</span><span class="hl opt">),</span> <span class="hl str">'ru_RU'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'LA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Laos"</span><span class="hl opt">),</span> <span class="hl str">'lo_LA'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'LB'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Lebanon"</span><span class="hl opt">),</span> <span class="hl str">'ar_LB'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'LC'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Saint Lucia"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'LI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Liechtenstein"</span><span class="hl opt">),</span> <span class="hl str">'de_CH'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'LK'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Sri Lanka"</span><span class="hl opt">),</span> <span class="hl str">'en_IN'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'LR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Liberia"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'LS'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Lesotho"</span><span class="hl opt">),</span> <span class="hl str">'en_BW'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'LT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Lithuania"</span><span class="hl opt">),</span> <span class="hl str">'lt_LT'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'LU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Luxembourg"</span><span class="hl opt">),</span> <span class="hl str">'de_LU'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'LV'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Latvia"</span><span class="hl opt">),</span> <span class="hl str">'lv_LV'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'LY'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Libya"</span><span class="hl opt">),</span> <span class="hl str">'ar_LY'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span>
<span class="hl str">'MA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Morocco"</span><span class="hl opt">),</span> <span class="hl str">'ar_MA'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span>
<span class="hl str">'MC'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Monaco"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MD'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Moldova"</span><span class="hl opt">),</span> <span class="hl str">'ro_RO'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Madagascar"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MH'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Marshall Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MK'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Macedonia"</span><span class="hl opt">),</span> <span class="hl str">'mk_MK'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'ML'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Mali"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Myanmar"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Mongolia"</span><span class="hl opt">),</span> <span class="hl str">'mn_MN'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'MP'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Northern Mariana Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MQ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Martinique"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Mauritania"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MS'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Montserrat"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Malta"</span><span class="hl opt">),</span> <span class="hl str">'mt_MT'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'MU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Mauritius"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MV'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Maldives"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MW'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Malawi"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'MX'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Mexico"</span><span class="hl opt">),</span> <span class="hl str">'es_MX'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'MY'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Malaysia"</span><span class="hl opt">),</span> <span class="hl str">'ms_MY'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'MZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Mozambique"</span><span class="hl opt">),</span> <span class="hl str">'pt_PT'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'NA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Namibia"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'NC'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"New Caledonia"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'NE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Niger"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'NF'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Norfolk Island"</span><span class="hl opt">),</span> <span class="hl str">'en_GB'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'NG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Nigeria"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'NI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Nicaragua"</span><span class="hl opt">),</span> <span class="hl str">'es_NI'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'NL'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Netherlands"</span><span class="hl opt">),</span> <span class="hl str">'nl_NL'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'NO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Norway"</span><span class="hl opt">),</span> <span class="hl str">'no_NO'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'NP'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Nepal"</span><span class="hl opt">),</span> <span class="hl str">'en_IN'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'NR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Nauru"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'NU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Niue"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'NZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"New Zealand"</span><span class="hl opt">),</span> <span class="hl str">'en_NZ'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span>
<span class="hl str">'OM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Oman"</span><span class="hl opt">),</span> <span class="hl str">'ar_OM'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'PA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Panama"</span><span class="hl opt">),</span> <span class="hl str">'es_PA'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'PE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Peru"</span><span class="hl opt">),</span> <span class="hl str">'es_PE'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'PF'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"French Polynesia"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'PG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Papua New Guinea"</span><span class="hl opt">),</span> <span class="hl str">'en_NZ'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'PH'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Philippines"</span><span class="hl opt">),</span> <span class="hl str">'ph_PH'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'PK'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Pakistan"</span><span class="hl opt">),</span> <span class="hl str">'ur_PK'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'PL'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Poland"</span><span class="hl opt">),</span> <span class="hl str">'pl_PL'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'PM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Saint Pierre and Miquelon"</span><span class="hl opt">),</span> <span class="hl str">'fr_CA'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'PN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Pitcairn"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'PR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Puerto Rico"</span><span class="hl opt">),</span> <span class="hl str">'es_PR'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'PS'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Palestine"</span><span class="hl opt">),</span> <span class="hl str">'ar_JO'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'PT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Portugal"</span><span class="hl opt">),</span> <span class="hl str">'pt_PT'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'PY'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Paraguay"</span><span class="hl opt">),</span> <span class="hl str">'es_PY'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'PW'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Palau"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'QA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Qatar"</span><span class="hl opt">),</span> <span class="hl str">'ar_QA'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'RE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Reunion"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'RO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Romania"</span><span class="hl opt">),</span> <span class="hl str">'ro_RO'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'RU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Russia"</span><span class="hl opt">),</span> <span class="hl str">'ru_RU'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'RW'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Rwanda"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Saudi Arabia"</span><span class="hl opt">),</span> <span class="hl str">'ar_SA'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'SB'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Solomon Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SC'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Seychelles"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SD'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Sudan"</span><span class="hl opt">),</span> <span class="hl str">'ar_SD'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'SE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Sweden"</span><span class="hl opt">),</span> <span class="hl str">'sv_SE'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'SG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Singapore"</span><span class="hl opt">),</span> <span class="hl str">'en_SG'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'SH'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Saint Helena"</span><span class="hl opt">),</span> <span class="hl str">'en_GB'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Slovenia"</span><span class="hl opt">),</span> <span class="hl str">'sl_SI'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'SJ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Svalbard and Jan Mayen Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SK'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Slovakia"</span><span class="hl opt">),</span> <span class="hl str">'sk_SK'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'SL'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Sierra Leone"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"San Marino"</span><span class="hl opt">),</span> <span class="hl str">'it_IT'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Senegal"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Somalia"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Suriname"</span><span class="hl opt">),</span> <span class="hl str">'nl_NL'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'ST'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Sao Tome and Principe"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'SV'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"El Salvador"</span><span class="hl opt">),</span> <span class="hl str">'es_SV'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'SY'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Syria"</span><span class="hl opt">),</span> <span class="hl str">'ar_SY'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'SZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Swaziland"</span><span class="hl opt">),</span> <span class="hl str">'en_BW'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TC'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Turks and Caicos Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TD'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Chad"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TF'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"French Southern Territories"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Togo"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TH'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Thailand"</span><span class="hl opt">),</span> <span class="hl str">'th_TH'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'TJ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Tajikistan"</span><span class="hl opt">),</span> <span class="hl str">'tg_TJ'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'TK'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Tokelau"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TL'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"East Timor"</span><span class="hl opt">),</span> <span class="hl str">'pt_PT'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Turkmenistan"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Tunisia"</span><span class="hl opt">),</span> <span class="hl str">'ar_TN'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'TO'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Tonga"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TR'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Turkey"</span><span class="hl opt">),</span> <span class="hl str">'tr_TR'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'TT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Trinidad and Tobago"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TV'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Tuvalu"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'TW'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Taiwan"</span><span class="hl opt">),</span> <span class="hl str">'zh_TW'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'TZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Tanzania"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'UA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Ukraine"</span><span class="hl opt">),</span> <span class="hl str">'uk_UA'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'UG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Uganda"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'UM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"United States Minor Outlying Islands"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'US'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"United States"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'UY'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Uruguay"</span><span class="hl opt">),</span> <span class="hl str">'es_UY'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'UZ'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Uzbekistan"</span><span class="hl opt">),</span> <span class="hl str">'uz_UZ'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'VA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Vatican"</span><span class="hl opt">),</span> <span class="hl str">'it_IT'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'VC'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Saint Vincent and the Grenadines"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'VE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Venezuela"</span><span class="hl opt">),</span> <span class="hl str">'es_VE'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'VG'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Virgin Islands (British)"</span><span class="hl opt">),</span> <span class="hl str">'en_GB'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'VI'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Virgin Islands (U.S.)"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'VN'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Vietnam"</span><span class="hl opt">),</span> <span class="hl str">'vi_VN'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'VU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Vanuatu"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'WF'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Wallis and Futuna"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'WS'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Samoa"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'4'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'YE'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Yemen"</span><span class="hl opt">),</span> <span class="hl str">'ar_YE'</span><span class="hl opt">,</span> <span class="hl str">'2'</span> <span class="hl opt">],</span>
<span class="hl str">'YT'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Mayotte"</span><span class="hl opt">),</span> <span class="hl str">'fr_FR'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'YU'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Serbia"</span><span class="hl opt">),</span> <span class="hl str">'sp_YU'</span><span class="hl opt">,</span> <span class="hl str">'1'</span> <span class="hl opt">],</span>
<span class="hl str">'ZA'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"South Africa"</span><span class="hl opt">),</span> <span class="hl str">'en_ZA'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl str">'ZM'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Zambia"</span><span class="hl opt">),</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl str">'3'</span> <span class="hl opt">],</span> <span class="hl slc">#</span>
<span class="hl str">'ZW'</span> <span class="hl opt">=> [</span> N_<span class="hl opt">(</span><span class="hl str">"Zimbabwe"</span><span class="hl opt">),</span> <span class="hl str">'en_ZW'</span><span class="hl opt">,</span> <span class="hl str">'5'</span> <span class="hl opt">],</span>
<span class="hl opt">);</span>
<span class="hl kwa">sub</span> c2name <span class="hl opt">{</span> <span class="hl kwc">exists</span> <span class="hl kwb">$countries</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]} &&</span> translate<span class="hl opt">(</span><span class="hl kwb">$countries</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]}[</span><span class="hl num">0</span><span class="hl opt">]) }</span>
<span class="hl kwa">sub</span> c2locale <span class="hl opt">{</span> <span class="hl kwc">exists</span> <span class="hl kwb">$countries</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]} &&</span> <span class="hl kwb">$countries</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]}[</span><span class="hl num">1</span><span class="hl opt">] }</span>
<span class="hl kwa">sub</span> list_countries <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">%options</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">@l</span> <span class="hl opt">=</span> <span class="hl kwc">keys</span> <span class="hl kwb">%countries</span><span class="hl opt">;</span>
<span class="hl kwb">$options</span><span class="hl opt">{</span>exclude_non_installed<span class="hl opt">}</span> ? <span class="hl kwc">grep</span> <span class="hl opt">{ -</span>e <span class="hl str">"/usr/share/locale/"</span><span class="hl opt">.</span>c2locale<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">).</span><span class="hl str">"/LC_CTYPE"</span> <span class="hl opt">}</span> <span class="hl kwb">@l</span> <span class="hl opt">:</span> <span class="hl kwb">@l</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl slc">#- this list is built with 'cd /usr/share/i18n/locales ; echo ??_??'</span>
<span class="hl slc">#- plus sp_YU, eo_XX, mn_MN, lo_LA, ph_PH, en_BE</span>
<span class="hl kwc">our</span> <span class="hl kwb">@locales</span> <span class="hl opt">=</span> <span class="hl str">qw(af_ZA am_ET ar_AE ar_BH ar_DZ ar_EG ar_IN ar_IQ ar_JO ar_KW ar_LB ar_LY ar_MA ar_OM ar_QA ar_SA ar_SD ar_SY ar_TN ar_YE az_AZ be_BY bg_BG bn_BD bn_IN br_FR bs_BA ca_ES cs_CZ cy_GB da_DK de_AT de_BE de_CH de_DE de_LU el_GR en_AU en_BW en_CA en_DK en_GB en_HK en_IE en_IN en_NZ en_PH en_SG en_US en_ZA en_ZW es_AR es_BO es_CL es_CO es_CR es_DO es_EC es_ES es_GT es_HN es_MX es_NI es_PA es_PE es_PR es_PY es_SV es_US es_UY es_VE et_EE eu_ES fa_IR fi_FI fo_FO fr_BE fr_CA fr_CH fr_FR fr_LU ga_IE gd_GB gl_ES gv_GB he_IL hi_IN hr_HR hu_HU hy_AM id_ID is_IS it_CH it_IT iw_IL ja_JP ka_GE kl_GL ko_KR kw_GB lt_LT lv_LV mi_NZ mk_MK mr_IN ms_MY mt_MT nl_BE nl_NL nn_NO no_NO oc_FR pl_PL pt_BR pt_PT ro_RO ru_RU ru_UA se_NO sk_SK sl_SI sq_AL sr_YU sv_FI sv_SE ta_IN te_IN tg_TJ th_TH ti_ER ti_ET tl_PH tr_TR tt_RU uk_UA ur_PK uz_UZ vi_VN wa_BE yi_US zh_CN zh_HK zh_SG zh_TW sp_YU eo_XX mn_MN lo_LA ph_PH en_BE)</span><span class="hl opt">;</span>
<span class="hl kwa">sub</span> standard_locale <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$lang, $country, $utf8</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
retry<span class="hl opt">:</span>
member<span class="hl opt">(</span><span class="hl str">"${lang}_${country}"</span><span class="hl opt">,</span> <span class="hl kwb">@locales</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl str">"${lang}_${country}"</span><span class="hl opt">.(</span><span class="hl kwb">$utf8</span> ? <span class="hl str">'.UTF-8'</span> <span class="hl opt">:</span> <span class="hl str">''</span><span class="hl opt">);</span>
<span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">) ></span> <span class="hl num">2</span> <span class="hl kwc">and</span> <span class="hl kwb">$lang</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^(..).*/$1/</span><span class="hl opt">,</span> <span class="hl kwa">goto</span> retry<span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> getlocale_for_lang <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$lang, $country, $o_utf8</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
standard_locale<span class="hl opt">(</span><span class="hl kwb">$lang, $country, $o_utf8</span><span class="hl opt">) ||</span> l2locale<span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">).(</span><span class="hl kwb">$o_utf8</span> ? <span class="hl str">'.UTF-8'</span> <span class="hl opt">:</span> <span class="hl str">''</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> getlocale_for_country <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$lang, $country, $o_utf8</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
standard_locale<span class="hl opt">(</span><span class="hl kwb">$lang, $country, $o_utf8</span><span class="hl opt">) ||</span> c2locale<span class="hl opt">(</span><span class="hl kwb">$country</span><span class="hl opt">).(</span><span class="hl kwb">$o_utf8</span> ? <span class="hl str">'.UTF-8'</span> <span class="hl opt">:</span> <span class="hl str">''</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> getLANGUAGE <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$lang, $o_country, $o_utf8</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
l2language<span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">) ||</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">':'</span><span class="hl opt">,</span> uniq<span class="hl opt">(</span>getlocale_for_lang<span class="hl opt">(</span><span class="hl kwb">$lang, $o_country, $o_utf8</span><span class="hl opt">),</span> <span class="hl kwb">$lang,</span> if_<span class="hl opt">(</span><span class="hl kwb">$lang</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(..)_/</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">)));</span>
<span class="hl opt">}</span>
<span class="hl kwc">my</span> <span class="hl kwb">%xim</span> <span class="hl opt">= (</span>
<span class="hl slc">#- xcin only works with 'zh_TW', 'zh_TW.Big5', 'zh_CN', 'zh_CN.GB2312'</span>
<span class="hl slc">#- all other locale names, in particular 'zh_HK' or 'zh_TW.UTF-8'</span>
<span class="hl slc">#- are unknown to it. So chinput is used for all but 'zh_TW'</span>
<span class="hl str">'zh_TW'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'big5'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'xcin'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'xcin'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=xcin-zh_TW"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'zh_TW.UTF-8'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'utf8'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'Chinput'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'chinput'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=Chinput"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'zh_CN'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'gb'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'Chinput'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'chinput'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=Chinput"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'zh_CN.UTF-8'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'utf8'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'Chinput'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'chinput'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=Chinput"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'zh_SG'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'gb'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'Chinput'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'chinput'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=Chinput"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'zh_SG.UTF-8'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'utf8'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'Chinput'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'chinput'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=Chinput"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'zh_HK'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'big5'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'Chinput'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'chinput'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=Chinput"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'zh_HK.UTF-8'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'utf8'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'Chinput'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'chinput'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=Chinput"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'ko_KR'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'kr'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'Ami'</span><span class="hl opt">,</span>
<span class="hl slc">#- NOTE: there are several possible versions of ami, for the different</span>
<span class="hl slc">#- desktops (kde, gnome, etc). So XIM_PROGRAM isn't defined; it will</span>
<span class="hl slc">#- be the xinitrc script, XIM section, that will choose the right one </span>
<span class="hl slc">#- XIM_PROGRAM => 'ami',</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=Ami"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'ko_KR.UTF-8'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'utf8'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'Ami'</span><span class="hl opt">,</span>
<span class="hl slc">#- NOTE: there are several possible versions of ami, for the different</span>
<span class="hl slc">#- desktops (kde, gnome, etc). So XIM_PROGRAM isn't defined; it will</span>
<span class="hl slc">#- be the xinitrc script, XIM section, that will choose the right one </span>
<span class="hl slc">#- XIM_PROGRAM => 'ami',</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=Ami"'</span><span class="hl opt">,</span>
CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'ja_JP'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'eucj'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'kinput2'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'kinput2'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=kinput2"'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl str">'ja_JP.UTF-8'</span> <span class="hl opt">=> {</span>
ENC <span class="hl opt">=></span> <span class="hl str">'utf8'</span><span class="hl opt">,</span>
XIM <span class="hl opt">=></span> <span class="hl str">'kinput2'</span><span class="hl opt">,</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'kinput2'</span><span class="hl opt">,</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=kinput2"'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl slc">#-�XFree86 has an internal XIM for Thai that enables syntax checking etc.</span>
<span class="hl slc">#-�'Passthroug' is no check at all, 'BasicCheck' accepts bad sequences</span>
<span class="hl slc">#-�and convert them to right ones, 'Strict' refuses bad sequences</span>
<span class="hl str">'th_TH'</span> <span class="hl opt">=> {</span>
XIM_PROGRAM <span class="hl opt">=></span> <span class="hl str">'/bin/true'</span><span class="hl opt">,</span> <span class="hl slc">#- it's an internal module</span>
XMODIFIERS <span class="hl opt">=></span> <span class="hl str">'"</span><span class="hl ipl">@im</span><span class="hl str">=BasicCheck"'</span><span class="hl opt">,</span>
<span class="hl opt">},</span>
<span class="hl slc">#-�xvnkb is not an XIM input method; but an input method of another</span>
<span class="hl slc">#-�kind, only XIM_PROGRAM needs to be defined</span>
<span class="hl slc">#- ! xvnkb doesn't work in UTF-8 !</span>
<span class="hl slc">#- 'vi_VN.VISCII' => {</span>
<span class="hl slc">#- XIM_PROGRAM => 'xvnkb',</span>
<span class="hl slc">#- },</span>
<span class="hl opt">);</span>
<span class="hl slc">#- [0]: console font name</span>
<span class="hl slc">#- [1]: sfm map for console font (if needed)</span>
<span class="hl slc">#- [2]: acm file for console font (none if utf8)</span>
<span class="hl slc">#- [3]: iocharset param for mount (utf8 if utf8)</span>
<span class="hl slc">#- [4]: codepage parameter for mount (none if utf8)</span>
<span class="hl kwc">my</span> <span class="hl kwb">%charsets</span> <span class="hl opt">= (</span>
<span class="hl slc">#- chinese needs special console driver for text mode</span>
<span class="hl str">"Big5"</span> <span class="hl opt">=> [</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"big5"</span><span class="hl opt">,</span> <span class="hl str">"950"</span> <span class="hl opt">],</span>
<span class="hl str">"gb2312"</span> <span class="hl opt">=> [</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"gb2312"</span><span class="hl opt">,</span> <span class="hl str">"936"</span> <span class="hl opt">],</span>
<span class="hl str">"C"</span> <span class="hl opt">=> [</span> <span class="hl str">"lat0-16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"iso15"</span><span class="hl opt">,</span> <span class="hl str">"iso8859-1"</span><span class="hl opt">,</span> <span class="hl str">"850"</span> <span class="hl opt">],</span>
<span class="hl str">"iso-8859-1"</span> <span class="hl opt">=> [</span> <span class="hl str">"lat1-16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"iso01"</span><span class="hl opt">,</span> <span class="hl str">"iso8859-1"</span><span class="hl opt">,</span> <span class="hl str">"850"</span> <span class="hl opt">],</span>
<span class="hl str">"iso-8859-2"</span> <span class="hl opt">=> [</span> <span class="hl str">"lat2-sun16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"iso02"</span><span class="hl opt">,</span> <span class="hl str">"iso8859-2"</span><span class="hl opt">,</span> <span class="hl str">"852"</span> <span class="hl opt">],</span>
<span class="hl str">"iso-8859-5"</span> <span class="hl opt">=> [</span> <span class="hl str">"UniCyr_8x16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"iso05"</span><span class="hl opt">,</span> <span class="hl str">"iso8859-5"</span><span class="hl opt">,</span> <span class="hl str">"866"</span> <span class="hl opt">],</span>
<span class="hl str">"iso-8859-7"</span> <span class="hl opt">=> [</span> <span class="hl str">"iso07.f16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"iso07"</span><span class="hl opt">,</span> <span class="hl str">"iso8859-7"</span><span class="hl opt">,</span> <span class="hl str">"869"</span> <span class="hl opt">],</span>
<span class="hl str">"iso-8859-9"</span> <span class="hl opt">=> [</span> <span class="hl str">"lat5u-16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"iso09"</span><span class="hl opt">,</span> <span class="hl str">"iso8859-9"</span><span class="hl opt">,</span> <span class="hl str">"857"</span> <span class="hl opt">],</span>
<span class="hl str">"iso-8859-13"</span> <span class="hl opt">=> [</span> <span class="hl str">"tlat7"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"iso13"</span><span class="hl opt">,</span> <span class="hl str">"iso8859-13"</span><span class="hl opt">,</span> <span class="hl str">"775"</span> <span class="hl opt">],</span>
<span class="hl str">"iso-8859-15"</span> <span class="hl opt">=> [</span> <span class="hl str">"lat0-16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"iso15"</span><span class="hl opt">,</span> <span class="hl str">"iso8859-15"</span><span class="hl opt">,</span> <span class="hl str">"850"</span> <span class="hl opt">],</span>
<span class="hl slc">#- japanese needs special console driver for text mode [kon2]</span>
<span class="hl str">"jisx0208"</span> <span class="hl opt">=> [</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"trivial.trans"</span><span class="hl opt">,</span> <span class="hl str">"euc-jp"</span><span class="hl opt">,</span> <span class="hl str">"932"</span> <span class="hl opt">],</span>
<span class="hl str">"koi8-r"</span> <span class="hl opt">=> [</span> <span class="hl str">"UniCyr_8x16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"koi8-r"</span><span class="hl opt">,</span> <span class="hl str">"koi8-r"</span><span class="hl opt">,</span> <span class="hl str">"866"</span> <span class="hl opt">],</span>
<span class="hl str">"koi8-u"</span> <span class="hl opt">=> [</span> <span class="hl str">"UniCyr_8x16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"koi8-u"</span><span class="hl opt">,</span> <span class="hl str">"koi8-u"</span><span class="hl opt">,</span> <span class="hl str">"866"</span> <span class="hl opt">],</span>
<span class="hl str">"cp1251"</span> <span class="hl opt">=> [</span> <span class="hl str">"UniCyr_8x16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"cp1251"</span><span class="hl opt">,</span> <span class="hl str">"cp1251"</span><span class="hl opt">,</span> <span class="hl str">"866"</span> <span class="hl opt">],</span>
<span class="hl slc">#- korean needs special console driver for text mode</span>
<span class="hl str">"ksc5601"</span> <span class="hl opt">=> [</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"euc-kr"</span><span class="hl opt">,</span> <span class="hl str">"949"</span> <span class="hl opt">],</span>
<span class="hl slc">#- I have no console font for Thai...</span>
<span class="hl str">"tis620"</span> <span class="hl opt">=> [</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"trivial.trans"</span><span class="hl opt">,</span> <span class="hl str">"tis-620"</span><span class="hl opt">,</span> <span class="hl str">"874"</span> <span class="hl opt">],</span>
<span class="hl slc"># UTF-8 encodings here; they differ in the console font mainly.</span>
<span class="hl str">"utf_am"</span> <span class="hl opt">=> [</span> <span class="hl str">"Agafari-16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_ar"</span> <span class="hl opt">=> [</span> <span class="hl str">"iso06.f16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_az"</span> <span class="hl opt">=> [</span> <span class="hl str">"tiso09e"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_cyr1"</span> <span class="hl opt">=> [</span> <span class="hl str">"UniCyr_8x16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_cyr2"</span> <span class="hl opt">=> [</span> <span class="hl str">"koi8-k"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_he"</span> <span class="hl opt">=> [</span> <span class="hl str">"iso08.f16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_hy"</span> <span class="hl opt">=> [</span> <span class="hl str">"arm8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_ka"</span> <span class="hl opt">=> [</span> <span class="hl str">"t_geors"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_lo"</span> <span class="hl opt">=> [</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_ta"</span> <span class="hl opt">=> [</span> <span class="hl str">"tamil"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_vi"</span> <span class="hl opt">=> [</span> <span class="hl str">"tcvn8x16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl str">"utf_lat8"</span> <span class="hl opt">=> [</span> <span class="hl str">"iso14.f16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl slc"># default for utf-8 encodings</span>
<span class="hl str">"unicode"</span> <span class="hl opt">=> [</span> <span class="hl str">"LatArCyrHeb-16"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl str">"utf8"</span><span class="hl opt">,</span> <span class="hl kwc">undef</span> <span class="hl opt">],</span>
<span class="hl opt">);</span>
<span class="hl slc">#- for special cases not handled magically</span>
<span class="hl kwc">my</span> <span class="hl kwb">%charset2kde_charset</span> <span class="hl opt">= (</span>
gb2312 <span class="hl opt">=></span> <span class="hl str">'gb2312.1980-0'</span><span class="hl opt">,</span>
jisx0208 <span class="hl opt">=></span> <span class="hl str">'jisx0208.1983-0'</span><span class="hl opt">,</span>
ksc5601 <span class="hl opt">=></span> <span class="hl str">'ksc5601.1987-0'</span><span class="hl opt">,</span>
Big5 <span class="hl opt">=></span> <span class="hl str">'big5-0'</span><span class="hl opt">,</span>
cp1251 <span class="hl opt">=></span> <span class="hl str">'microsoft-cp1251'</span><span class="hl opt">,</span>
utf8 <span class="hl opt">=></span> <span class="hl str">'iso10646-1'</span><span class="hl opt">,</span>
tis620 <span class="hl opt">=></span> <span class="hl str">'tis620-0'</span><span class="hl opt">,</span>
<span class="hl slc">#- Tamil KDE translations still use TSCII, and KDE know it as iso-8859-1</span>
utf_ta <span class="hl opt">=></span> <span class="hl str">'iso8859-1'</span><span class="hl opt">,</span>
<span class="hl opt">);</span>
<span class="hl kwc">my</span> <span class="hl kwb">@during_install__lang_having_their_LC_CTYPE</span> <span class="hl opt">=</span> <span class="hl str">qw(ja ko ta)</span><span class="hl opt">;</span>
<span class="hl slc">#- -------------------</span>
<span class="hl kwa">sub</span> list <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">%options</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">@l</span> <span class="hl opt">=</span> list_langs<span class="hl opt">();</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$options</span><span class="hl opt">{</span>exclude_non_installed_langs<span class="hl opt">}) {</span>
<span class="hl kwb">@l</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{ -</span>e <span class="hl str">"/usr/share/locale/</span><span class="hl ipl">$_/LC_CTYPE</span><span class="hl str">"</span> <span class="hl opt">}</span> <span class="hl kwb">@l</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwb">@l</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> l2console_font <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$c</span> <span class="hl opt">=</span> <span class="hl kwb">$charsets</span><span class="hl opt">{</span>l2charset<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">}) ||</span> <span class="hl kwa">return</span><span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$name, $sfm, $acm</span><span class="hl opt">) =</span> <span class="hl kwb">@$c</span><span class="hl opt">;</span>
<span class="hl kwc">undef</span> <span class="hl kwb">$acm</span> <span class="hl kwa">if</span> <span class="hl kwb">$locale</span><span class="hl opt">->{</span>utf8<span class="hl opt">};</span>
<span class="hl opt">(</span><span class="hl kwb">$name, $sfm, $acm</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> get_kde_lang <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$locale, $o_default</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl slc">#- get it using </span>
<span class="hl slc">#- echo C $(rpm -qp --qf "%{name}\n" /RPMS/kde-i18n-* | sed 's/kde-i18n-//')</span>
<span class="hl kwc">my</span> <span class="hl kwb">@valid_kde_langs</span> <span class="hl opt">=</span> <span class="hl str">qw(C af ar az bg ca cs da de el en_GB eo es et fi fr he hu is it ja ko lt lv mt nb nl nn pl pt pt_BR ro ru sk sl sr sv ta th tr uk xh zh_CN.GB2312 zh_TW.Big5)</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">%valid_kde_langs</span><span class="hl opt">;</span> <span class="hl kwb">@valid_kde_langs</span><span class="hl opt">{</span><span class="hl kwb">@valid_kde_langs</span><span class="hl opt">} = ();</span>
<span class="hl kwc">my</span> <span class="hl kwb">$valid_lang</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl slc">#- fast & dirty solution to ensure bad entries do not happen</span>
<span class="hl kwc">my</span> <span class="hl kwb">%fixlangs</span> <span class="hl opt">= (</span>en <span class="hl opt">=></span> <span class="hl str">'C'</span><span class="hl opt">,</span> en_US <span class="hl opt">=></span> <span class="hl str">'C'</span><span class="hl opt">,</span> <span class="hl kwa">no</span> <span class="hl opt">=></span> <span class="hl str">'nb'</span><span class="hl opt">,</span> sh <span class="hl opt">=></span> <span class="hl str">'sr'</span><span class="hl opt">,</span>
st <span class="hl opt">=></span> <span class="hl str">'nso'</span><span class="hl opt">,</span> ve <span class="hl opt">=></span> <span class="hl str">'ven'</span><span class="hl opt">,</span>
zh_CN <span class="hl opt">=></span> <span class="hl str">'zh_CN.GB2312'</span><span class="hl opt">,</span> zh_SG <span class="hl opt">=></span> <span class="hl str">'zh_CN.GB2312'</span><span class="hl opt">,</span> zh_TW <span class="hl opt">=></span> <span class="hl str">'zh_TW.Big5'</span><span class="hl opt">,</span> zh_HK <span class="hl opt">=></span> <span class="hl str">'zh_TW.Big5'</span><span class="hl opt">);</span>
<span class="hl kwc">exists</span> <span class="hl kwb">$fixlangs</span><span class="hl opt">{</span><span class="hl kwb">$lang</span><span class="hl opt">}</span> ? <span class="hl kwb">$fixlangs</span><span class="hl opt">{</span><span class="hl kwb">$lang</span><span class="hl opt">} :</span>
<span class="hl kwc">exists</span> <span class="hl kwb">$valid_kde_langs</span><span class="hl opt">{</span><span class="hl kwb">$lang</span><span class="hl opt">}</span> ? <span class="hl kwb">$lang</span> <span class="hl opt">:</span>
<span class="hl kwc">exists</span> <span class="hl kwb">$valid_kde_langs</span><span class="hl opt">{</span><span class="hl kwc">substr</span><span class="hl opt">(</span><span class="hl kwb">$lang,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">2</span><span class="hl opt">)}</span> ? <span class="hl kwc">substr</span><span class="hl opt">(</span><span class="hl kwb">$lang,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">2</span><span class="hl opt">) :</span> <span class="hl str">''</span><span class="hl opt">;</span>
<span class="hl opt">};</span>
<span class="hl kwc">my</span> <span class="hl kwb">$r</span><span class="hl opt">;</span>
<span class="hl kwb">$r</span> <span class="hl opt">||=</span> <span class="hl kwb">$valid_lang</span><span class="hl opt">->(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">});</span>
<span class="hl kwb">$r</span> <span class="hl opt">||=</span> find <span class="hl opt">{</span> <span class="hl kwb">$valid_lang</span><span class="hl opt">->(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">':'</span><span class="hl opt">,</span> getlocale_for_lang<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">},</span> <span class="hl kwb">$locale</span><span class="hl opt">->{</span>country<span class="hl opt">}));</span>
<span class="hl kwb">$r</span> <span class="hl opt">||</span> <span class="hl kwb">$o_default</span> <span class="hl opt">||</span> <span class="hl str">'C'</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> charset2kde_charset <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$charset, $o_default</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$iocharset</span> <span class="hl opt">= (</span><span class="hl kwb">$charsets</span><span class="hl opt">{</span><span class="hl kwb">$charset</span><span class="hl opt">} || [])->[</span><span class="hl num">3</span><span class="hl opt">];</span>
<span class="hl kwc">my</span> <span class="hl kwb">@valid_kde_charsets</span> <span class="hl opt">=</span> <span class="hl str">qw(big5-0 gb2312.1980-0 iso10646-1 iso8859-1 iso8859-4 iso8859-6 iso8859-8 iso8859-13 iso8859-14 iso8859-15 iso8859-2 iso8859-3 iso8859-5 iso8859-7 iso8859-9 koi8-r koi8-u ksc5601.1987-0 jisx0208.1983-0 microsoft-cp1251 tis620-0)</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">%valid_kde_charsets</span><span class="hl opt">;</span> <span class="hl kwb">@valid_kde_charsets</span><span class="hl opt">{</span><span class="hl kwb">@valid_kde_charsets</span><span class="hl opt">} = ();</span>
<span class="hl kwc">my</span> <span class="hl kwb">$valid_charset</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$charset</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl slc">#- fast & dirty solution to ensure bad entries do not happen</span>
<span class="hl kwc">exists</span> <span class="hl kwb">$valid_kde_charsets</span><span class="hl opt">{</span><span class="hl kwb">$charset</span><span class="hl opt">} &&</span> <span class="hl kwb">$charset</span><span class="hl opt">;</span>
<span class="hl opt">};</span>
<span class="hl kwc">my</span> <span class="hl kwb">$r</span><span class="hl opt">;</span>
<span class="hl kwb">$r</span> <span class="hl opt">||=</span> <span class="hl kwb">$valid_charset</span><span class="hl opt">->(</span><span class="hl kwb">$charset2kde_charset</span><span class="hl opt">{</span><span class="hl kwb">$charset</span><span class="hl opt">});</span>
<span class="hl kwb">$r</span> <span class="hl opt">||=</span> <span class="hl kwb">$valid_charset</span><span class="hl opt">->(</span><span class="hl kwb">$charset2kde_charset</span><span class="hl opt">{</span><span class="hl kwb">$iocharset</span><span class="hl opt">});</span>
<span class="hl kwb">$r</span> <span class="hl opt">||=</span> <span class="hl kwb">$valid_charset</span><span class="hl opt">->(</span><span class="hl kwb">$iocharset</span><span class="hl opt">);</span>
<span class="hl kwb">$r</span> <span class="hl opt">||</span> <span class="hl kwb">$o_default</span> <span class="hl opt">||</span> <span class="hl str">'iso10646-1'</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl slc">#- font+size for different charsets; the field [0] is the default,</span>
<span class="hl slc">#- others are overrridens for fixed(1), toolbar(2), menu(3) and taskbar(4)</span>
<span class="hl kwc">my</span> <span class="hl kwb">%charset2kde_font</span> <span class="hl opt">= (</span>
<span class="hl str">'C'</span> <span class="hl opt">=> [</span> <span class="hl str">"Sans,10"</span><span class="hl opt">,</span> <span class="hl str">"Monospace,10"</span> <span class="hl opt">],</span>
<span class="hl str">'iso-8859-1'</span> <span class="hl opt">=> [</span> <span class="hl str">"Sans,10"</span><span class="hl opt">,</span> <span class="hl str">"Monospace,10"</span> <span class="hl opt">],</span>
<span class="hl str">'iso-8859-2'</span> <span class="hl opt">=> [</span> <span class="hl str">"Sans,10"</span><span class="hl opt">,</span> <span class="hl str">"Monospace,10"</span> <span class="hl opt">],</span>
<span class="hl str">'iso-8859-7'</span> <span class="hl opt">=> [</span> <span class="hl str">"Helvetica,12"</span><span class="hl opt">,</span> <span class="hl str">"courier,10"</span><span class="hl opt">,</span> <span class="hl str">"Helvetica,11"</span> <span class="hl opt">],</span>
<span class="hl str">'iso-8859-9'</span> <span class="hl opt">=> [</span> <span class="hl str">"Sans,10"</span><span class="hl opt">,</span> <span class="hl str">"Monospace,10"</span> <span class="hl opt">],</span>
<span class="hl str">'iso-8859-15'</span> <span class="hl opt">=> [</span> <span class="hl str">"Sans,10"</span><span class="hl opt">,</span> <span class="hl str">"Monospace,10"</span> <span class="hl opt">],</span>
<span class="hl str">'iso-8859-13'</span> <span class="hl opt">=> [</span> <span class="hl str">"Sans,10"</span><span class="hl opt">,</span> <span class="hl str">"Monospace,10"</span> <span class="hl opt">],</span>
<span class="hl str">'jisx0208'</span> <span class="hl opt">=> [</span> <span class="hl str">"Kochi Mincho,13"</span><span class="hl opt">,</span> <span class="hl str">"Kochi Gothic,13"</span> <span class="hl opt">],</span>
<span class="hl str">'ksc5601'</span> <span class="hl opt">=> [</span> <span class="hl str">"Baekmuk Gulim,16"</span> <span class="hl opt">],</span>
<span class="hl str">'gb2312'</span> <span class="hl opt">=> [</span> <span class="hl str">"Ar Pl Sungtil Gb,13"</span> <span class="hl opt">],</span>
<span class="hl str">'Big5'</span> <span class="hl opt">=> [</span> <span class="hl str">"Ar Pl Mingti2l Big5,13"</span> <span class="hl opt">],</span>
<span class="hl str">'tis620'</span> <span class="hl opt">=> [</span> <span class="hl str">"Norasi,16"</span><span class="hl opt">,</span> <span class="hl str">"Norasi,15"</span> <span class="hl opt">],</span>
<span class="hl str">'utf_ar'</span> <span class="hl opt">=> [</span> <span class="hl str">"Kacs_qr,13"</span><span class="hl opt">,</span> <span class="hl str">"Courier New,13"</span><span class="hl opt">,</span> <span class="hl str">"Kacs_qr,12"</span> <span class="hl opt">],</span>
<span class="hl str">'utf_az'</span> <span class="hl opt">=> [</span> <span class="hl str">"Nimbus Sans,12"</span><span class="hl opt">,</span> <span class="hl str">"Nimbus Mono,10"</span><span class="hl opt">,</span> <span class="hl str">"Nimbus Sans,11"</span> <span class="hl opt">],</span>
<span class="hl str">'utf_hy'</span> <span class="hl opt">=> [</span> <span class="hl str">"Artsounk,12"</span><span class="hl opt">,</span> <span class="hl str">"Monospace,10"</span><span class="hl opt">,</span> <span class="hl str">"Artsounk,11"</span> <span class="hl opt">],</span>
<span class="hl str">'utf_ta'</span> <span class="hl opt">=> [</span> <span class="hl str">"Tscu_paranar,14"</span><span class="hl opt">,</span> <span class="hl str">"Tsc_avarangalfxd,10"</span><span class="hl opt">,</span> <span class="hl str">"Tscu_paranar,12"</span><span class="hl opt">, ],</span>
<span class="hl slc">#- the following should be changed to better defaults when better fonts</span>
<span class="hl slc">#- get available</span>
<span class="hl str">'utf_vi'</span> <span class="hl opt">=> [</span> <span class="hl str">"misc-fixed,13"</span><span class="hl opt">,</span> <span class="hl str">"misc-fixed,13"</span><span class="hl opt">,</span> <span class="hl str">"misc-fixed,10"</span><span class="hl opt">, ],</span>
<span class="hl str">'utf_am'</span> <span class="hl opt">=> [</span> <span class="hl str">"clearlyu,15"</span> <span class="hl opt">],</span>
<span class="hl str">'utf_he'</span> <span class="hl opt">=> [</span> <span class="hl str">"clearlyu,15"</span> <span class="hl opt">],</span>
<span class="hl str">'utf_ka'</span> <span class="hl opt">=> [</span> <span class="hl str">"clearlyu,15"</span> <span class="hl opt">],</span>
<span class="hl str">'utf_lo'</span> <span class="hl opt">=> [</span> <span class="hl str">"clearlyu,15"</span> <span class="hl opt">],</span>
<span class="hl str">'default'</span> <span class="hl opt">=> [</span> <span class="hl str">"Nimbus Sans,12"</span><span class="hl opt">,</span> <span class="hl str">"Nimbus Mono,10"</span><span class="hl opt">,</span> <span class="hl str">"Nimbus Sans,11"</span> <span class="hl opt">],</span>
<span class="hl opt">);</span>
<span class="hl kwa">sub</span> charset2kde_font <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$charset, $type</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$font</span> <span class="hl opt">=</span> <span class="hl kwb">$charset2kde_font</span><span class="hl opt">{</span><span class="hl kwb">$charset</span><span class="hl opt">} ||</span> <span class="hl kwb">$charset2kde_font</span><span class="hl opt">{</span><span class="hl kwa">default</span><span class="hl opt">};</span>
<span class="hl kwc">my</span> <span class="hl kwb">$r</span> <span class="hl opt">=</span> <span class="hl kwb">$font</span><span class="hl opt">->[</span><span class="hl kwb">$type</span><span class="hl opt">] ||</span> <span class="hl kwb">$font</span><span class="hl opt">->[</span><span class="hl num">0</span><span class="hl opt">];</span>
<span class="hl slc">#- the format is "font-name,size,-1,5,0,0,0,0,0,0" I have no idea of the</span>
<span class="hl slc">#- meaning of that "5"...</span>
<span class="hl str">"</span><span class="hl ipl">$r,</span><span class="hl str">-1,5,0,0,0,0,0,0"</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl slc"># this define pango name fonts (like "NimbusSans L") depending</span>
<span class="hl slc"># on the "charset" defined by language array. This allows to selecting</span>
<span class="hl slc"># an appropriate font for each language.</span>
<span class="hl kwc">my</span> <span class="hl kwb">%charset2pango_font</span> <span class="hl opt">= (</span>
<span class="hl str">'tis620'</span> <span class="hl opt">=></span> <span class="hl str">"Norasi 17"</span><span class="hl opt">,</span>
<span class="hl str">'utf_ar'</span> <span class="hl opt">=></span> <span class="hl str">"KacstBook 14"</span><span class="hl opt">,</span>
<span class="hl str">'utf_cyr2'</span> <span class="hl opt">=></span> <span class="hl str">"URW Bookman L 14"</span><span class="hl opt">,</span>
<span class="hl str">'utf_he'</span> <span class="hl opt">=></span> <span class="hl str">"ClearlyU 12"</span><span class="hl opt">,</span>
<span class="hl str">'utf_hy'</span> <span class="hl opt">=></span> <span class="hl str">"Artsounk 14"</span><span class="hl opt">,</span>
<span class="hl str">'utf_ka'</span> <span class="hl opt">=></span> <span class="hl str">"ClearlyU 14"</span><span class="hl opt">,</span>
<span class="hl str">'utf_lo'</span> <span class="hl opt">=></span> <span class="hl str">"ClearlyU 14"</span><span class="hl opt">,</span>
<span class="hl str">'utf_ta'</span> <span class="hl opt">=></span> <span class="hl str">"TSCu_Paranar 14"</span><span class="hl opt">,</span>
<span class="hl str">'utf_vi'</span> <span class="hl opt">=></span> <span class="hl str">"ClearlyU 14"</span><span class="hl opt">,</span>
<span class="hl str">'iso-8859-7'</span> <span class="hl opt">=></span> <span class="hl str">"Kerkis 14"</span><span class="hl opt">,</span>
<span class="hl str">'jisx0208'</span> <span class="hl opt">=></span> <span class="hl str">"Sans 18"</span><span class="hl opt">,</span>
<span class="hl slc">#- Nimbus Sans L is missing some chars used by some cyrillic languages,</span>
<span class="hl slc">#- but tose haven't yet DrakX translations; it also misses vietnamese</span>
<span class="hl slc">#- latin chars; all other latin and cyrillic are covered.</span>
<span class="hl str">'default'</span> <span class="hl opt">=></span> <span class="hl str">"Nimbus Sans L 12"</span>
<span class="hl opt">);</span>
<span class="hl kwa">sub</span> charset2pango_font <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$charset</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwb">$charset2pango_font</span><span class="hl opt">{</span><span class="hl kwc">exists</span> <span class="hl kwb">$charset2pango_font</span><span class="hl opt">{</span><span class="hl kwb">$charset</span><span class="hl opt">}</span> ? <span class="hl kwb">$charset</span> <span class="hl opt">:</span> <span class="hl str">'default'</span><span class="hl opt">};</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> l2pango_font <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$charset</span> <span class="hl opt">=</span> l2charset<span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">)</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">"no charset found for lang</span> <span class="hl ipl">$lang!</span><span class="hl str">"</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$font</span> <span class="hl opt">=</span> charset2pango_font<span class="hl opt">(</span><span class="hl kwb">$charset</span><span class="hl opt">);</span>
<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">"lang:</span><span class="hl ipl">$lang</span> <span class="hl str">charset:</span><span class="hl ipl">$charset</span> <span class="hl str">font:</span><span class="hl ipl">$font</span> <span class="hl str">sfm:</span><span class="hl ipl">$charsets</span><span class="hl str">{</span><span class="hl ipl">$charset</span><span class="hl str">}[0]"</span><span class="hl opt">);</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span>common<span class="hl opt">::</span>usingRamdisk<span class="hl opt">()) {</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$charsets</span><span class="hl opt">{</span><span class="hl kwb">$charset</span><span class="hl opt">}[</span><span class="hl num">0</span><span class="hl opt">] !~</span> <span class="hl kwd">/lat|koi|UniCyr/</span><span class="hl opt">) {</span>
install_any<span class="hl opt">::</span>remove_bigseldom_used<span class="hl opt">();</span>
<span class="hl kwc">unlink</span> glob_<span class="hl opt">(</span><span class="hl str">'/usr/share/langs/*'</span><span class="hl opt">);</span> <span class="hl slc">#- remove langs images</span>
<span class="hl kwc">my</span> <span class="hl kwb">@generic_fontfiles</span> <span class="hl opt">=</span> <span class="hl str">qw(/usr/X11R6/lib/X11/fonts/12x13mdk.pcf.gz /usr/X11R6/lib/X11/fonts/18x18mdk.pcf.gz)</span><span class="hl opt">;</span>
<span class="hl slc">#- need to unlink first because the files actually exist (and are void); they must exist</span>
<span class="hl slc">#- because if not, when gtk starts, pango will recompute its cache file and exclude them</span>
<span class="hl kwc">unlink</span><span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">),</span> install_any<span class="hl opt">::</span>getAndSaveFile<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">@generic_fontfiles</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwc">my</span> <span class="hl kwb">%pango_modules</span> <span class="hl opt">= (</span>arabic <span class="hl opt">=></span> <span class="hl str">'ar|fa|ur'</span><span class="hl opt">,</span> hangul <span class="hl opt">=></span> <span class="hl str">'ko'</span><span class="hl opt">,</span> hebrew <span class="hl opt">=></span> <span class="hl str">'he|yi'</span><span class="hl opt">,</span> indic <span class="hl opt">=></span> <span class="hl str">'hi|bn|ta|te|mr'</span><span class="hl opt">,</span> thai <span class="hl opt">=></span> <span class="hl str">'th'</span><span class="hl opt">);</span>
<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$module</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl kwb">%pango_modules</span><span class="hl opt">) {</span>
<span class="hl kwa">next if</span> <span class="hl kwb">$lang</span> <span class="hl opt">!~</span> <span class="hl kwd">/$pango_modules{$module}/</span><span class="hl opt">;</span>
install_any<span class="hl opt">::</span>remove_bigseldom_used<span class="hl opt">();</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$pango_modules_dir</span><span class="hl opt">) =</span> <span class="hl kwc">glob</span><span class="hl opt">(</span><span class="hl str">'/usr/lib/pango/*/modules'</span><span class="hl opt">);</span>
install_any<span class="hl opt">::</span>getAndSaveFile<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$pango_modules_dir/pango</span><span class="hl str">-</span><span class="hl ipl">$module</span><span class="hl str">-xft.so"</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl kwa">return</span> <span class="hl kwb">$font</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> set <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$lang, $b_translate_for_console</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl slc">#- disable Arabic in install as no (free) fonts are available.</span>
<span class="hl kwb">$lang</span> <span class="hl kwc">eq</span> <span class="hl str">'ar'</span> <span class="hl kwc">and</span> <span class="hl kwb">$lang</span><span class="hl opt">=</span><span class="hl str">'en_US'</span><span class="hl opt">;</span>
<span class="hl kwc">exists</span> <span class="hl kwb">$langs</span><span class="hl opt">{</span><span class="hl kwb">$lang</span><span class="hl opt">}</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">"lang::set: trying to set to</span> <span class="hl ipl">$lang</span> <span class="hl str">but I don't know it!"</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">=</span> <span class="hl str">"</span><span class="hl ipl">$ENV</span><span class="hl str">{SHARE_PATH}/locale"</span><span class="hl opt">;</span>
<span class="hl kwa">if</span> <span class="hl opt">(!-</span>e <span class="hl str">"</span><span class="hl ipl">$dir/$lang</span><span class="hl str">"</span> <span class="hl opt">&&</span> common<span class="hl opt">::</span>usingRamdisk<span class="hl opt">()) {</span>
<span class="hl kwb">@ENV</span><span class="hl opt">{</span><span class="hl str">qw(LANG LC_ALL LANGUAGE LINGUAS)</span><span class="hl opt">} = ();</span>
<span class="hl kwc">my</span> <span class="hl kwb">@LCs</span> <span class="hl opt">=</span> <span class="hl str">qw(LC_ADDRESS LC_COLLATE LC_IDENTIFICATION LC_MEASUREMENT LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER LC_TELEPHONE LC_TIME)</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$charset</span> <span class="hl opt">=</span> during_install__l2charset<span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">) ||</span> <span class="hl kwb">$lang</span><span class="hl opt">;</span>
<span class="hl slc">#- there are 3 main charsets containing everything for all locales, except LC_CTYPE</span>
<span class="hl slc">#- by default, there is UTF-8.</span>
<span class="hl slc">#- when asked for GB2312 or BIG5, removing the other main charsets</span>
<span class="hl kwc">my</span> <span class="hl kwb">$main_charset</span> <span class="hl opt">=</span> member<span class="hl opt">(</span><span class="hl kwb">$charset,</span> <span class="hl str">'GB2312'</span><span class="hl opt">,</span> <span class="hl str">'BIG5'</span><span class="hl opt">)</span> ? <span class="hl kwb">$charset</span> <span class="hl opt">:</span> <span class="hl str">'UTF-8'</span><span class="hl opt">;</span>
<span class="hl slc">#- removing everything</span>
<span class="hl slc">#- except in main charset: only removing LC_CTYPE if it is there</span>
<span class="hl kwc">eval</span> <span class="hl opt">{</span> rm_rf<span class="hl opt">(</span><span class="hl kwb">$_</span> <span class="hl kwc">eq</span> <span class="hl kwb">$main_charset</span> ? <span class="hl str">"</span><span class="hl ipl">$dir/$_/LC_CTYPE</span><span class="hl str">"</span> <span class="hl opt">:</span> <span class="hl str">"</span><span class="hl ipl">$dir/$_</span><span class="hl str">"</span><span class="hl opt">) }</span> <span class="hl kwa">foreach</span> all<span class="hl opt">(</span><span class="hl kwb">$dir</span><span class="hl opt">);</span>
<span class="hl kwa">if</span> <span class="hl opt">(!-</span>e <span class="hl str">"</span><span class="hl ipl">$dir/$main_charset</span><span class="hl str">"</span><span class="hl opt">) {</span>
<span class="hl slc">#- getting the main charset</span>
<span class="hl kwc">mkdir</span> <span class="hl str">"</span><span class="hl ipl">$dir/$main_charset</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl kwc">mkdir</span> <span class="hl str">"</span><span class="hl ipl">$dir/$main_charset/LC_MESSAGES</span><span class="hl str">"</span><span class="hl opt">;</span>
install_any<span class="hl opt">::</span>getAndSaveFile<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$dir/$main_charset/$_</span><span class="hl str">"</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">@LCs,</span> <span class="hl str">'LC_MESSAGES/SYS_LC_MESSAGES'</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwc">mkdir</span> <span class="hl str">"</span><span class="hl ipl">$dir/$lang</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl slc">#- linking to the main charset</span>
<span class="hl kwc">symlink</span> <span class="hl str">"../</span><span class="hl ipl">$main_charset/$_</span><span class="hl str">"</span><span class="hl opt">,</span> <span class="hl str">"</span><span class="hl ipl">$dir/$lang/$_</span><span class="hl str">"</span> <span class="hl kwa">foreach</span> <span class="hl kwb">@LCs,</span> <span class="hl str">'LC_MESSAGES'</span><span class="hl opt">;</span>
<span class="hl slc">#- getting LC_CTYPE (putting it directly in $lang)</span>
install_any<span class="hl opt">::</span>getAndSaveFile<span class="hl opt">(</span><span class="hl str">"Mandrake/mdkinst</span><span class="hl ipl">$dir/$charset/LC_CTYPE</span><span class="hl str">"</span><span class="hl opt">,</span> <span class="hl str">"</span><span class="hl ipl">$dir/$lang/LC_CTYPE</span><span class="hl str">"</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl slc">#- set all LC_* variables to a unique locale ("C"), and only redefine</span>
<span class="hl slc">#- LC_CTYPE (for X11 choosing the fontset) and LANGUAGE (for the po files)</span>
<span class="hl kwb">$ENV</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl str">'C'</span> <span class="hl kwa">foreach</span> <span class="hl str">qw(LC_NUMERIC LC_TIME LC_COLLATE LC_MONETARY LC_PAPER LC_NAME LC_ADDRESS LC_TELEPHONE LC_MEASUREMENT LC_IDENTIFICATION)</span><span class="hl opt">;</span>
<span class="hl kwb">$ENV</span><span class="hl opt">{</span>LC_CTYPE<span class="hl opt">} =</span> <span class="hl kwb">$lang</span><span class="hl opt">;</span>
<span class="hl kwb">$ENV</span><span class="hl opt">{</span>LC_MESSAGES<span class="hl opt">} =</span> <span class="hl kwb">$lang</span><span class="hl opt">;</span>
<span class="hl kwb">$ENV</span><span class="hl opt">{</span>LANG<span class="hl opt">} =</span> <span class="hl kwb">$lang</span><span class="hl opt">;</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$b_translate_for_console</span> <span class="hl opt">&&</span> <span class="hl kwb">$lang</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(ko|ja|zh|th)/</span><span class="hl opt">) {</span>
<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">"not translating in console"</span><span class="hl opt">);</span>
<span class="hl kwb">$ENV</span><span class="hl opt">{</span>LANGUAGE<span class="hl opt">} =</span> <span class="hl str">'C'</span><span class="hl opt">;</span>
<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
<span class="hl kwb">$ENV</span><span class="hl opt">{</span>LANGUAGE<span class="hl opt">} =</span> getLANGUAGE<span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
load_mo<span class="hl opt">();</span>
<span class="hl kwb">$lang</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> langs <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$l</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwb">$l</span><span class="hl opt">->{</span>all<span class="hl opt">}</span> ? list_langs<span class="hl opt">() :</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$l</span><span class="hl opt">->{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span> <span class="hl kwc">keys</span> <span class="hl kwb">%$l</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> langsLANGUAGE <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$l, $o_c</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
uniq<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwc">split</span> <span class="hl str">':'</span><span class="hl opt">,</span> getLANGUAGE<span class="hl opt">(</span><span class="hl kwb">$_, $o_c</span><span class="hl opt">) }</span> langs<span class="hl opt">(</span><span class="hl kwb">$l</span><span class="hl opt">));</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> langs_selected <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl slc">#- adding the UTF-8 flag (if not forced) depends on the selected languages</span>
<span class="hl kwb">$locale</span><span class="hl opt">->{</span>utf8<span class="hl opt">} ||=</span> l2charset<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">}) =~</span> <span class="hl kwd">/utf|unicode/</span>
<span class="hl opt">|| (</span>uniq <span class="hl kwc">map</span> <span class="hl opt">{</span> l2charset<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> langs<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>langs<span class="hl opt">})) ></span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> pack_langs <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$l</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> <span class="hl kwb">$l</span><span class="hl opt">->{</span>all<span class="hl opt">}</span> ? <span class="hl str">'all'</span> <span class="hl opt">:</span> <span class="hl kwc">join</span> <span class="hl str">':'</span><span class="hl opt">,</span> uniq<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> getLANGUAGE<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> langs<span class="hl opt">(</span><span class="hl kwb">$l</span><span class="hl opt">));</span>
<span class="hl kwb">$ENV</span><span class="hl opt">{</span>RPM_INSTALL_LANG<span class="hl opt">} =</span> <span class="hl kwb">$s</span><span class="hl opt">;</span>
<span class="hl kwb">$s</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> system_locales_to_ourlocale <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$locale_lang, $locale_country</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$locale</span><span class="hl opt">;</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span>member<span class="hl opt">(</span><span class="hl kwb">$locale_lang,</span> list_langs<span class="hl opt">())) {</span>
<span class="hl slc">#- special lang's such as en_US pt_BR</span>
<span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">} =</span> <span class="hl kwb">$locale_lang</span><span class="hl opt">;</span>
<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">}) =</span> <span class="hl kwb">$locale_lang</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(..)/</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>country<span class="hl opt">}) =</span> <span class="hl kwb">$locale_country</span> <span class="hl opt">=~</span> <span class="hl kwd">/^.._(..)/</span><span class="hl opt">;</span>
<span class="hl kwb">$locale</span><span class="hl opt">->{</span>utf8<span class="hl opt">} =</span> <span class="hl kwb">$locale_lang</span> <span class="hl opt">=~</span> <span class="hl kwd">/UTF-8/</span><span class="hl opt">;</span>
<span class="hl slc">#- safe fallbacks</span>
<span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">} ||=</span> <span class="hl str">'en_US'</span><span class="hl opt">;</span>
<span class="hl kwb">$locale</span><span class="hl opt">->{</span>country<span class="hl opt">} ||=</span> <span class="hl str">'US'</span><span class="hl opt">;</span>
<span class="hl kwb">$locale</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> <span class="hl kwc">read</span> <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$prefix, $user_only</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$f1, $f2</span><span class="hl opt">) = (</span><span class="hl str">"</span><span class="hl ipl">$prefix$ENV</span><span class="hl str">{HOME}/.i18n"</span><span class="hl opt">,</span> <span class="hl str">"</span><span class="hl ipl">$prefix/etc/sysconfig/i18n</span><span class="hl str">"</span><span class="hl opt">);</span>
<span class="hl kwc">my</span> <span class="hl kwb">%h</span> <span class="hl opt">=</span> getVarsFromSh<span class="hl opt">(</span><span class="hl kwb">$user_only</span> <span class="hl opt">&& -</span>e <span class="hl kwb">$f1</span> ? <span class="hl kwb">$f1</span> <span class="hl opt">:</span> <span class="hl kwb">$f2</span><span class="hl opt">);</span>
system_locales_to_ourlocale<span class="hl opt">(</span><span class="hl kwb">$h</span><span class="hl opt">{</span>LC_MESSAGES<span class="hl opt">} ||</span> <span class="hl str">'en_US'</span><span class="hl opt">,</span> <span class="hl kwb">$h</span><span class="hl opt">{</span>LC_MONETARY<span class="hl opt">} ||</span> <span class="hl str">'en_US'</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> write_langs <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$prefix, $langs</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> pack_langs<span class="hl opt">(</span><span class="hl kwb">$langs</span><span class="hl opt">);</span>
<span class="hl kwc">symlink</span> <span class="hl str">"</span><span class="hl ipl">$prefix/etc/rpm</span><span class="hl str">"</span><span class="hl opt">,</span> <span class="hl str">"/etc/rpm"</span> <span class="hl kwa">if</span> <span class="hl kwb">$prefix</span><span class="hl opt">;</span>
substInFile <span class="hl opt">{</span> <span class="hl kwd">s/%_install_langs.*//</span><span class="hl opt">;</span> <span class="hl kwb">$_</span> <span class="hl opt">.=</span> <span class="hl str">"</span><span class="hl ipl">%_install_langs</span> <span class="hl str"></span><span class="hl ipl">$s\n</span><span class="hl str">"</span> <span class="hl kwa">if</span> <span class="hl kwc">eof</span> <span class="hl opt">&&</span> <span class="hl kwb">$s</span> <span class="hl opt">}</span> <span class="hl str">"</span><span class="hl ipl">$prefix/etc/rpm/macros</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> <span class="hl kwc">write</span> <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$prefix, $locale, $b_user_only, $b_dont_touch_kde_files</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwb">$locale</span> <span class="hl opt">&&</span> <span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$locale_lang</span> <span class="hl opt">=</span> getlocale_for_lang<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">},</span> <span class="hl kwb">$locale</span><span class="hl opt">->{</span>country<span class="hl opt">},</span> <span class="hl kwb">$locale</span><span class="hl opt">->{</span>utf8<span class="hl opt">});</span>
<span class="hl kwc">my</span> <span class="hl kwb">$locale_country</span> <span class="hl opt">=</span> getlocale_for_country<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">},</span> <span class="hl kwb">$locale</span><span class="hl opt">->{</span>country<span class="hl opt">},</span> <span class="hl kwb">$locale</span><span class="hl opt">->{</span>utf8<span class="hl opt">});</span>
<span class="hl kwc">my</span> <span class="hl kwb">$h</span> <span class="hl opt">= {</span>
XKB_IN_USE <span class="hl opt">=></span> <span class="hl str">''</span><span class="hl opt">,</span>
<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">=></span> <span class="hl kwb">$locale_lang</span> <span class="hl opt">}</span> <span class="hl str">qw(LANG LC_COLLATE LC_CTYPE LC_MESSAGES LC_TIME)</span><span class="hl opt">),</span>
LANGUAGE <span class="hl opt">=></span> getLANGUAGE<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">},</span> <span class="hl kwb">$locale</span><span class="hl opt">->{</span>country<span class="hl opt">},</span> <span class="hl kwb">$locale</span><span class="hl opt">->{</span>utf8<span class="hl opt">}),</span>
<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">=></span> <span class="hl kwb">$locale_country</span> <span class="hl opt">}</span> <span class="hl str">qw(LC_NUMERIC LC_MONETARY LC_ADDRESS LC_MEASUREMENT LC_NAME LC_PAPER LC_IDENTIFICATION LC_TELEPHONE)</span><span class="hl opt">)</span>
<span class="hl opt">};</span>
<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">"lang::write: lang:</span><span class="hl ipl">$locale</span><span class="hl str">->{lang} country:</span><span class="hl ipl">$locale</span><span class="hl str">->{country} locale|lang:</span><span class="hl ipl">$locale_lang</span> <span class="hl str">locale|country:</span><span class="hl ipl">$locale_country</span> <span class="hl str">language:</span><span class="hl ipl">$h</span><span class="hl str">->{LANGUAGE}"</span><span class="hl opt">);</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$name, $sfm, $acm</span><span class="hl opt">) =</span> l2console_font<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">);</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$name</span> <span class="hl opt">&& !</span><span class="hl kwb">$b_user_only</span><span class="hl opt">) {</span>
<span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> <span class="hl str">"</span><span class="hl ipl">$prefix/usr/lib/kbd</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$name</span><span class="hl opt">) {</span>
<span class="hl kwc">eval</span> <span class="hl opt">{</span>
cp_af<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$p/consolefonts/$name</span><span class="hl str">.psf.gz"</span><span class="hl opt">,</span> <span class="hl str">"</span><span class="hl ipl">$prefix/etc/sysconfig/console/consolefonts</span><span class="hl str">"</span><span class="hl opt">);</span>
add2hash <span class="hl kwb">$h,</span> <span class="hl opt">{</span> SYSFONT <span class="hl opt">=></span> <span class="hl kwb">$name</span> <span class="hl opt">};</span>
<span class="hl opt">};</span>
<span class="hl kwb">$@</span> <span class="hl kwc">and log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">"missing console font</span> <span class="hl ipl">$name</span><span class="hl str">"</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$sfm</span><span class="hl opt">) {</span>
<span class="hl kwc">eval</span> <span class="hl opt">{</span>
cp_af<span class="hl opt">(</span>glob_<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$p/consoletrans/$sfm*</span><span class="hl str">"</span><span class="hl opt">),</span> <span class="hl str">"</span><span class="hl ipl">$prefix/etc/sysconfig/console/consoletrans</span><span class="hl str">"</span><span class="hl opt">);</span>
add2hash <span class="hl kwb">$h,</span> <span class="hl opt">{</span> UNIMAP <span class="hl opt">=></span> <span class="hl kwb">$sfm</span> <span class="hl opt">};</span>
<span class="hl opt">};</span>
<span class="hl kwb">$@</span> <span class="hl kwc">and log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">"missing console unimap file</span> <span class="hl ipl">$sfm</span><span class="hl str">"</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$acm</span><span class="hl opt">) {</span>
<span class="hl kwc">eval</span> <span class="hl opt">{</span>
cp_af<span class="hl opt">(</span>glob_<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$p/consoletrans/$acm*</span><span class="hl str">"</span><span class="hl opt">),</span> <span class="hl str">"</span><span class="hl ipl">$prefix/etc/sysconfig/console/consoletrans</span><span class="hl str">"</span><span class="hl opt">);</span>
add2hash <span class="hl kwb">$h,</span> <span class="hl opt">{</span> SYSFONTACM <span class="hl opt">=></span> <span class="hl kwb">$acm</span> <span class="hl opt">};</span>
<span class="hl opt">};</span>
<span class="hl kwb">$@</span> <span class="hl kwc">and log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">"missing console acm file</span> <span class="hl ipl">$acm</span><span class="hl str">"</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl opt">}</span>
add2hash <span class="hl kwb">$h, $xim</span><span class="hl opt">{</span><span class="hl kwb">$locale_lang</span><span class="hl opt">};</span>
<span class="hl slc">#- deactivate translations on console for RTL languages</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$locale_lang</span> <span class="hl opt">=~</span> <span class="hl kwd">/ar|fa|he|ur|yi/</span><span class="hl opt">) {</span>
add2hash <span class="hl kwb">$h,</span> <span class="hl opt">{</span> CONSOLE_NOT_LOCALIZED <span class="hl opt">=></span> <span class="hl str">'yes'</span> <span class="hl opt">}</span>
<span class="hl opt">}</span>
setVarsInSh<span class="hl opt">(</span><span class="hl kwb">$prefix</span> <span class="hl opt">. (</span><span class="hl kwb">$b_user_only</span> ? <span class="hl str">"</span><span class="hl ipl">$ENV</span><span class="hl str">{HOME}/.i18n"</span> <span class="hl opt">:</span> <span class="hl str">'/etc/sysconfig/i18n'</span><span class="hl opt">),</span> <span class="hl kwb">$h</span><span class="hl opt">);</span>
<span class="hl kwc">eval</span> <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl kwb">$charset</span> <span class="hl opt">=</span> l2charset<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">});</span>
<span class="hl kwc">my</span> <span class="hl kwb">$confdir</span> <span class="hl opt">=</span> <span class="hl kwb">$prefix</span> <span class="hl opt">. (</span><span class="hl kwb">$b_user_only</span> ? <span class="hl str">"</span><span class="hl ipl">$ENV</span><span class="hl str">{HOME}/.kde"</span> <span class="hl opt">:</span> <span class="hl str">'/usr'</span><span class="hl opt">) .</span> <span class="hl str">'/share/config'</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$prev_kde_charset</span><span class="hl opt">) =</span> cat_<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$confdir/kdeglobals</span><span class="hl str">"</span><span class="hl opt">) =~ /^</span>Charset<span class="hl opt">=(.*)/</span>mi<span class="hl opt">;</span>
mkdir_p<span class="hl opt">(</span><span class="hl kwb">$confdir</span><span class="hl opt">);</span>
update_gnomekderc<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$confdir/kdeglobals</span><span class="hl str">"</span><span class="hl opt">,</span> Locale <span class="hl opt">=> (</span>
Charset <span class="hl opt">=></span> charset2kde_charset<span class="hl opt">(</span><span class="hl kwb">$charset</span><span class="hl opt">),</span>
Country <span class="hl opt">=></span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>country<span class="hl opt">}),</span>
Language <span class="hl opt">=></span> get_kde_lang<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">),</span>
<span class="hl opt">));</span>
<span class="hl kwc">my</span> <span class="hl kwb">%qt_xim</span> <span class="hl opt">= (</span>zh <span class="hl opt">=></span> <span class="hl str">'Over The Spot'</span><span class="hl opt">,</span> ko <span class="hl opt">=></span> <span class="hl str">'On The Spot'</span><span class="hl opt">,</span> ja <span class="hl opt">=></span> <span class="hl str">'Over The Spot'</span><span class="hl opt">);</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$b_user_only</span> <span class="hl opt">&& (</span><span class="hl kwc">my</span> <span class="hl kwb">$qt_xim</span> <span class="hl opt">=</span> <span class="hl kwb">$qt_xim</span><span class="hl opt">{</span><span class="hl kwc">substr</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">},</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">2</span><span class="hl opt">)})) {</span>
update_gnomekderc<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$ENV</span><span class="hl str">{HOME}/.qt/qtrc"</span><span class="hl opt">,</span> General <span class="hl opt">=> (</span>XIMInputStyle <span class="hl opt">=></span> <span class="hl kwb">$qt_xim</span><span class="hl opt">));</span>
<span class="hl opt">}</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$prev_kde_charset</span> <span class="hl kwc">ne</span> charset2kde_charset<span class="hl opt">(</span><span class="hl kwb">$charset</span><span class="hl opt">)) {</span>
update_gnomekderc<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$confdir/kdeglobals</span><span class="hl str">"</span><span class="hl opt">,</span> WM <span class="hl opt">=> (</span>
activeFont <span class="hl opt">=></span> charset2kde_font<span class="hl opt">(</span><span class="hl kwb">$charset,0</span><span class="hl opt">),</span>
<span class="hl opt">));</span>
update_gnomekderc<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$confdir/kdeglobals</span><span class="hl str">"</span><span class="hl opt">,</span> General <span class="hl opt">=> (</span>
fixed <span class="hl opt">=></span> charset2kde_font<span class="hl opt">(</span><span class="hl kwb">$charset,</span> <span class="hl num">1</span><span class="hl opt">),</span>
font <span class="hl opt">=></span> charset2kde_font<span class="hl opt">(</span><span class="hl kwb">$charset,</span> <span class="hl num">0</span><span class="hl opt">),</span>
menuFont <span class="hl opt">=></span> charset2kde_font<span class="hl opt">(</span><span class="hl kwb">$charset,</span> <span class="hl num">3</span><span class="hl opt">),</span>
taskbarFont <span class="hl opt">=></span> charset2kde_font<span class="hl opt">(</span><span class="hl kwb">$charset,</span> <span class="hl num">4</span><span class="hl opt">),</span>
toolBarFont <span class="hl opt">=></span> charset2kde_font<span class="hl opt">(</span><span class="hl kwb">$charset,</span> <span class="hl num">2</span><span class="hl opt">),</span>
<span class="hl opt">));</span>
update_gnomekderc<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$confdir/konquerorrc</span><span class="hl str">"</span><span class="hl opt">,</span> FMSettings <span class="hl opt">=> (</span>
StandardFont <span class="hl opt">=></span> charset2kde_font<span class="hl opt">(</span><span class="hl kwb">$charset,</span> <span class="hl num">0</span><span class="hl opt">),</span>
<span class="hl opt">));</span>
update_gnomekderc<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$confdir/kdesktoprc</span><span class="hl str">"</span><span class="hl opt">,</span> FMSettings <span class="hl opt">=> (</span>
StandardFont <span class="hl opt">=></span> charset2kde_font<span class="hl opt">(</span><span class="hl kwb">$charset,</span> <span class="hl num">0</span><span class="hl opt">),</span>
<span class="hl opt">));</span>
<span class="hl opt">}</span>
<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$b_dont_touch_kde_files</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> bindtextdomain<span class="hl opt">() {</span>
<span class="hl kwc">my</span> <span class="hl kwb">$localedir</span> <span class="hl opt">=</span> <span class="hl str">"</span><span class="hl ipl">$ENV</span><span class="hl str">{SHARE_PATH}/locale"</span><span class="hl opt">;</span>
<span class="hl kwb">$localedir</span> <span class="hl opt">.=</span> <span class="hl str">"_special"</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isInstall<span class="hl opt">;</span>
c<span class="hl opt">::</span>setlocale<span class="hl opt">();</span>
c<span class="hl opt">::</span>bind_textdomain_codeset<span class="hl opt">(</span><span class="hl str">'libDrakX'</span><span class="hl opt">,</span> <span class="hl str">'UTF-8'</span><span class="hl opt">);</span>
<span class="hl opt">$::</span>need_utf8_i18n <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
c<span class="hl opt">::</span>bindtextdomain<span class="hl opt">(</span><span class="hl str">'libDrakX'</span><span class="hl opt">,</span> <span class="hl kwb">$localedir</span><span class="hl opt">);</span>
<span class="hl kwb">$localedir</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> load_mo <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$localedir</span> <span class="hl opt">=</span> bindtextdomain<span class="hl opt">();</span>
<span class="hl kwc">my</span> <span class="hl kwb">$suffix</span> <span class="hl opt">=</span> <span class="hl str">'LC_MESSAGES/libDrakX.mo'</span><span class="hl opt">;</span>
<span class="hl kwb">$lang</span> <span class="hl opt">||=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LANGUAGE<span class="hl opt">} ||</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LC_ALL<span class="hl opt">} ||</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LC_MESSAGES<span class="hl opt">} ||</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LANG<span class="hl opt">};</span>
<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">split</span> <span class="hl str">':'</span><span class="hl opt">,</span> <span class="hl kwb">$lang</span><span class="hl opt">) {</span>
<span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl str">"</span><span class="hl ipl">$localedir/$_/$suffix</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl opt">-</span>s <span class="hl kwb">$f</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
<span class="hl kwa">if</span> <span class="hl opt">($::</span>isInstall <span class="hl opt">&&</span> common<span class="hl opt">::</span>usingRamdisk<span class="hl opt">()) {</span>
<span class="hl slc">#- cleanup</span>
<span class="hl kwc">eval</span> <span class="hl opt">{</span> rm_rf<span class="hl opt">(</span><span class="hl kwb">$localedir</span><span class="hl opt">) };</span>
<span class="hl kwc">eval</span> <span class="hl opt">{</span> mkdir_p<span class="hl opt">(</span>dirname<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$localedir/$_/$suffix</span><span class="hl str">"</span><span class="hl opt">)) };</span>
install_any<span class="hl opt">::</span>getAndSaveFile<span class="hl opt">(</span><span class="hl str">"</span><span class="hl ipl">$localedir/$_/$suffix</span><span class="hl str">"</span><span class="hl opt">);</span>
<span class="hl opt">-</span>s <span class="hl kwb">$f</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl str">''</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl slc">#- used in Makefile during "make get_needed_files"</span>
<span class="hl kwa">sub</span> console_font_files<span class="hl opt">() {</span>
<span class="hl kwc">map</span> <span class="hl opt">{ -</span>e <span class="hl kwb">$_</span> ? <span class="hl kwb">$_</span> <span class="hl opt">:</span> <span class="hl str">"</span><span class="hl ipl">$_</span><span class="hl str">.gz"</span> <span class="hl opt">}</span>
<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">"/usr/lib/kbd/consolefonts/</span><span class="hl ipl">$_</span><span class="hl str">.psf"</span> <span class="hl opt">}</span> uniq <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">->[</span><span class="hl num">0</span><span class="hl opt">] }</span> <span class="hl kwc">values</span> <span class="hl kwb">%charsets</span><span class="hl opt">),</span>
<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{ -</span>e <span class="hl kwb">$_</span> ? <span class="hl kwb">$_</span> <span class="hl opt">:</span> <span class="hl str">"</span><span class="hl ipl">$_</span><span class="hl str">.sfm"</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">"/usr/lib/kbd/consoletrans/</span><span class="hl ipl">$_</span><span class="hl str">"</span> <span class="hl opt">}</span> uniq <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">->[</span><span class="hl num">1</span><span class="hl opt">] }</span> <span class="hl kwc">values</span> <span class="hl kwb">%charsets</span><span class="hl opt">),</span>
<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{ -</span>e <span class="hl kwb">$_</span> ? <span class="hl kwb">$_</span> <span class="hl opt">:</span> <span class="hl str">"</span><span class="hl ipl">$_</span><span class="hl str">.acm"</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">"/usr/lib/kbd/consoletrans/</span><span class="hl ipl">$_</span><span class="hl str">"</span> <span class="hl opt">}</span> uniq <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">->[</span><span class="hl num">2</span><span class="hl opt">] }</span> <span class="hl kwc">values</span> <span class="hl kwb">%charsets</span><span class="hl opt">),</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> load_console_font <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$name, $sfm, $acm</span><span class="hl opt">) =</span> l2console_font<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">);</span>
<span class="hl kwa">require</span> run_program<span class="hl opt">;</span>
run_program<span class="hl opt">::</span>run<span class="hl opt">(</span>if_<span class="hl opt">(</span><span class="hl kwb">$ENV</span><span class="hl opt">{</span>LD_LOADER<span class="hl opt">},</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LD_LOADER<span class="hl opt">}),</span>
<span class="hl str">'consolechars'</span><span class="hl opt">,</span> <span class="hl str">'-v'</span><span class="hl opt">,</span> <span class="hl str">'-f'</span><span class="hl opt">,</span> <span class="hl kwb">$name</span> <span class="hl opt">||</span> <span class="hl str">'lat0-sun16'</span><span class="hl opt">,</span>
if_<span class="hl opt">(</span><span class="hl kwb">$sfm,</span> <span class="hl str">'-u'</span><span class="hl opt">,</span> <span class="hl kwb">$sfm</span><span class="hl opt">),</span> if_<span class="hl opt">(</span><span class="hl kwb">$acm,</span> <span class="hl str">'-m'</span><span class="hl opt">,</span> <span class="hl kwb">$acm</span><span class="hl opt">));</span>
<span class="hl slc">#- in console mode install, ensure we'll get translations in the right codeset</span>
<span class="hl slc">#- (charset of locales reported by the glibc are UTF-8 during install)</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$acm</span><span class="hl opt">) {</span>
c<span class="hl opt">::</span>bind_textdomain_codeset<span class="hl opt">(</span><span class="hl str">'libDrakX'</span><span class="hl opt">,</span> l2charset<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">}));</span>
<span class="hl opt">$::</span>need_utf8_i18n <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> fs_options <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>utf8<span class="hl opt">}) {</span>
<span class="hl opt">(</span>iocharset <span class="hl opt">=></span> <span class="hl str">'utf8'</span><span class="hl opt">,</span> codepage <span class="hl opt">=></span> <span class="hl kwc">undef</span><span class="hl opt">);</span>
<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl kwb">$c</span> <span class="hl opt">=</span> <span class="hl kwb">$charsets</span><span class="hl opt">{</span>l2charset<span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">->{</span>lang<span class="hl opt">}) ||</span> <span class="hl kwa">return</span><span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$iocharset, $codepage</span><span class="hl opt">) =</span> <span class="hl kwb">@$c</span><span class="hl opt">[</span><span class="hl num">3</span><span class="hl opt">.</span><span class="hl num">.4</span><span class="hl opt">];</span>
<span class="hl opt">(</span>iocharset <span class="hl opt">=></span> <span class="hl kwb">$iocharset,</span> codepage <span class="hl opt">=></span> <span class="hl kwb">$codepage</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> during_install__l2charset <span class="hl opt">{</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwa">return if</span> member<span class="hl opt">(</span><span class="hl kwb">$lang, @during_install__lang_having_their_LC_CTYPE</span><span class="hl opt">);</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$c</span><span class="hl opt">) =</span> l2charset<span class="hl opt">(</span><span class="hl kwb">$lang</span><span class="hl opt">)</span> <span class="hl kwc">or die</span> <span class="hl str">"bad lang</span> <span class="hl ipl">$lang\n</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl kwb">$c</span> <span class="hl opt">=</span> <span class="hl str">'UTF-8'</span> <span class="hl kwa">if</span> member<span class="hl opt">(</span><span class="hl kwb">$c,</span> <span class="hl str">'tis620'</span><span class="hl opt">,</span> <span class="hl str">'C'</span><span class="hl opt">);</span>
<span class="hl kwb">$c</span> <span class="hl opt">=</span> <span class="hl str">'UTF-8'</span> <span class="hl kwa">if</span> <span class="hl kwb">$c</span> <span class="hl opt">=~</span> <span class="hl kwd">/koi8-/</span><span class="hl opt">;</span>
<span class="hl kwb">$c</span> <span class="hl opt">=</span> <span class="hl str">'UTF-8'</span> <span class="hl kwa">if</span> <span class="hl kwb">$c</span> <span class="hl opt">=~</span> <span class="hl kwd">/iso-8859/</span><span class="hl opt">;</span>
<span class="hl kwb">$c</span> <span class="hl opt">=</span> <span class="hl str">'UTF-8'</span> <span class="hl kwa">if</span> <span class="hl kwb">$c</span> <span class="hl opt">=~</span> <span class="hl kwd">/cp125/</span><span class="hl opt">;</span>
<span class="hl kwb">$c</span> <span class="hl opt">=</span> <span class="hl str">'UTF-8'</span> <span class="hl kwa">if</span> <span class="hl kwb">$c</span> <span class="hl opt">=~</span> <span class="hl kwd">/utf_/</span><span class="hl opt">;</span>
<span class="hl kwc">uc</span><span class="hl opt">(</span><span class="hl kwb">$c</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> get_unneeded_png_lang_files<span class="hl opt">() {</span>
<span class="hl kwc">print join</span><span class="hl opt">(</span><span class="hl str">' '</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> if_<span class="hl opt">(</span>m<span class="hl opt">|(</span>langs<span class="hl opt">/</span>lang-<span class="hl opt">(.*)</span>\<span class="hl opt">.</span>png<span class="hl opt">)| && !</span>member<span class="hl opt">(</span><span class="hl kwb">$2,</span> list_langs<span class="hl opt">()),</span> <span class="hl kwb">$1</span><span class="hl opt">) }</span> <span class="hl kwc">glob</span><span class="hl opt">(</span><span class="hl str">"pixmaps/langs/lang-*.png"</span><span class="hl opt">));</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> check<span class="hl opt">() {</span>
<span class="hl kwb">$^W</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$ok</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$warn</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
<span class="hl kwc">print</span> STDERR <span class="hl str">"</span><span class="hl ipl">$_</span><span class="hl str">[0]</span><span class="hl esc">\n</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl opt">};</span>
<span class="hl kwc">my</span> <span class="hl kwb">$err</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
<span class="hl opt">&</span><span class="hl kwb">$warn</span><span class="hl opt">;</span>
<span class="hl kwb">$ok</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">};</span>
<span class="hl kwc">my</span> <span class="hl kwb">@wanted_charsets</span> <span class="hl opt">=</span> uniq <span class="hl kwc">map</span> <span class="hl opt">{</span> l2charset<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> list_langs<span class="hl opt">();</span>
<span class="hl kwc">print</span> <span class="hl str">"</span><span class="hl esc">\t</span><span class="hl str">Warnings:</span><span class="hl esc">\n</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl kwb">$warn</span><span class="hl opt">->(</span><span class="hl str">"unused charset</span> <span class="hl ipl">$_</span> <span class="hl str">(given in \</span><span class="hl ipl">%charsets,</span> <span class="hl str">but not used in \</span><span class="hl ipl">%langs</span><span class="hl str">)"</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> difference2<span class="hl opt">([</span> <span class="hl kwc">keys</span> <span class="hl kwb">%charsets</span> <span class="hl opt">],</span> \<span class="hl kwb">@wanted_charsets</span><span class="hl opt">);</span>
<span class="hl kwb">$warn</span><span class="hl opt">->(</span><span class="hl str">"unused entry</span> <span class="hl ipl">$_</span> <span class="hl str">in \</span><span class="hl ipl">%xim</span><span class="hl str">"</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span><span class="hl kwd">/UTF-8/</span> <span class="hl opt">}</span> difference2<span class="hl opt">([</span> <span class="hl kwc">keys</span> <span class="hl kwb">%xim</span> <span class="hl opt">], [</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> l2locale<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> list_langs<span class="hl opt">() ]);</span>
<span class="hl slc">#- consolefonts are checked during build via console_font_files()</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">@l</span> <span class="hl opt">=</span> difference2<span class="hl opt">([</span> <span class="hl str">'default'</span><span class="hl opt">,</span> <span class="hl kwc">keys</span> <span class="hl kwb">%charsets</span> <span class="hl opt">], [</span> <span class="hl kwc">keys</span> <span class="hl kwb">%charset2kde_font</span> <span class="hl opt">])) {</span>
<span class="hl kwb">$warn</span><span class="hl opt">->(</span><span class="hl str">"no kde font for charset "</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">" "</span><span class="hl opt">,</span> <span class="hl kwb">@l</span><span class="hl opt">));</span>
<span class="hl opt">}</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">@l</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> get_kde_lang<span class="hl opt">({</span> lang <span class="hl opt">=></span> <span class="hl kwb">$_,</span> country <span class="hl opt">=></span> <span class="hl str">'US'</span> <span class="hl opt">},</span> <span class="hl str">'err'</span><span class="hl opt">)</span> <span class="hl kwc">eq</span> <span class="hl str">'err'</span> <span class="hl opt">}</span> list_langs<span class="hl opt">()) {</span>
<span class="hl kwb">$warn</span><span class="hl opt">->(</span><span class="hl str">"no KDE lang for langs "</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">" "</span><span class="hl opt">,</span> <span class="hl kwb">@l</span><span class="hl opt">));</span>
<span class="hl opt">}</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">@l</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> charset2kde_charset<span class="hl opt">(</span><span class="hl kwb">$_,</span> <span class="hl str">'err'</span><span class="hl opt">)</span> <span class="hl kwc">eq</span> <span class="hl str">'err'</span> <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl kwb">%charsets</span><span class="hl opt">) {</span>
<span class="hl kwb">$warn</span><span class="hl opt">->(</span><span class="hl str">"no KDE charset for charsets "</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">" "</span><span class="hl opt">,</span> <span class="hl kwb">@l</span><span class="hl opt">));</span>
<span class="hl opt">}</span>
<span class="hl kwb">$warn</span><span class="hl opt">->(</span><span class="hl str">"no country corresponding to default locale</span> <span class="hl ipl">$_</span><span class="hl str">->[1] of lang</span> <span class="hl ipl">$_</span><span class="hl str">->[0]"</span><span class="hl opt">)</span>
<span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">->[</span><span class="hl num">1</span><span class="hl opt">] =~</span> <span class="hl kwd">/^.._(..)/</span> <span class="hl opt">&& !</span><span class="hl kwc">exists</span> <span class="hl kwb">$countries</span><span class="hl opt">{</span><span class="hl kwb">$1</span><span class="hl opt">} }</span> <span class="hl kwc">map</span> <span class="hl opt">{ [</span> <span class="hl kwb">$_,</span> l2locale<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) ] }</span> list_langs<span class="hl opt">();</span>
<span class="hl kwc">print</span> <span class="hl str">"</span><span class="hl esc">\t</span><span class="hl str">Errors:</span><span class="hl esc">\n</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl kwb">$err</span><span class="hl opt">->(</span><span class="hl str">"invalid charset</span> <span class="hl ipl">$_</span> <span class="hl str">(</span><span class="hl ipl">$_</span> <span class="hl str">does not exist in \</span><span class="hl ipl">%charsets</span><span class="hl str">)"</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> difference2<span class="hl opt">(</span>\<span class="hl kwb">@wanted_charsets,</span> <span class="hl opt">[</span> <span class="hl kwc">keys</span> <span class="hl kwb">%charsets</span> <span class="hl opt">]);</span>
<span class="hl kwb">$err</span><span class="hl opt">->(</span><span class="hl str">"invalid charset</span> <span class="hl ipl">$_</span> <span class="hl str">in \</span><span class="hl ipl">%charset2kde_font</span> <span class="hl str">(</span><span class="hl ipl">$_</span> <span class="hl str">does not exist in \</span><span class="hl ipl">%charsets</span><span class="hl str">)"</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> difference2<span class="hl opt">([</span> <span class="hl kwc">keys</span> <span class="hl kwb">%charset2kde_font</span> <span class="hl opt">], [</span> <span class="hl str">'default'</span><span class="hl opt">,</span> <span class="hl kwc">keys</span> <span class="hl kwb">%charsets</span> <span class="hl opt">]);</span>
<span class="hl kwb">$err</span><span class="hl opt">->(</span><span class="hl str">"default locale</span> <span class="hl ipl">$_</span><span class="hl str">->[1] of lang</span> <span class="hl ipl">$_</span><span class="hl str">->[0] isn't listed in \</span><span class="hl ipl">@locales</span><span class="hl str">"</span><span class="hl opt">)</span>
<span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span>member<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">->[</span><span class="hl num">1</span><span class="hl opt">],</span> <span class="hl kwb">@locales</span><span class="hl opt">) }</span> <span class="hl kwc">map</span> <span class="hl opt">{ [</span> <span class="hl kwb">$_,</span> l2locale<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) ] }</span> list_langs<span class="hl opt">();</span>
<span class="hl kwb">$err</span><span class="hl opt">->(</span><span class="hl str">"lang image for lang</span> <span class="hl ipl">$_</span><span class="hl str">->[0] is missing (file</span> <span class="hl ipl">$_</span><span class="hl str">->[1])"</span><span class="hl opt">)</span>
<span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !(-</span>e <span class="hl kwb">$_</span><span class="hl opt">->[</span><span class="hl num">1</span><span class="hl opt">]) }</span> <span class="hl kwc">map</span> <span class="hl opt">{ [</span> <span class="hl kwb">$_,</span> <span class="hl str">"pixmaps/langs/lang-</span><span class="hl ipl">$_</span><span class="hl str">.png"</span> <span class="hl opt">] }</span> list_langs<span class="hl opt">();</span>
<span class="hl kwb">$err</span><span class="hl opt">->(</span><span class="hl str">"default locale</span> <span class="hl ipl">$_</span><span class="hl str">->[1] of country</span> <span class="hl ipl">$_</span><span class="hl str">->[0] isn't listed in \</span><span class="hl ipl">@locales</span><span class="hl str">"</span><span class="hl opt">)</span>
<span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span>member<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">->[</span><span class="hl num">1</span><span class="hl opt">],</span> <span class="hl kwb">@locales</span><span class="hl opt">) }</span> <span class="hl kwc">map</span> <span class="hl opt">{ [</span> <span class="hl kwb">$_,</span> c2locale<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) ] }</span> list_countries<span class="hl opt">();</span>
<span class="hl kwa">exit</span><span class="hl opt">(</span><span class="hl kwb">$ok</span> ? <span class="hl num">0</span> <span class="hl opt">:</span> <span class="hl num">1</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl num">1</span><span class="hl opt">;</span>
</code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.1</a> (<a href='https://git-scm.com/'>git 2.21.0</a>) at 2025-04-01 07:53:28 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>