-# Available languages
-sub commandA4 {
- print "This option allows to limit number of languages available in\n";
- print "language selection box. You can enter as code of every language that\n";
- print "you want to enable. Language codes should be separated by space. If you\n";
- print "enter name unsupported by SquirrelMail, it will be ignored. If you enter\n";
- print "special key \'all\' - all languages available in SquirrelMail will be\n";
- print "listed. If you enter special key \'none\' - user won't be able to change";
- print "language and interface will use language set it \"Default language\" option.\n";
- print "\n";
- print "Valid language names are:\n";
- print " ar (Arabic), bg_BG (Bulgarian), ca_ES (Catalan), cy_GB (Welsh)\n";
- print " cs_CZ (Chech), da_DK (Danish), de_DE (German), el_GR (Greek),\n";
- print " en_US (English), es_ES (Spanish), et_EE (Estonian), fi_FI (Finnish),\n";
- print " fo_FO (Faroese), fr_FR (French), he_IL (Hebrew), hr_HR (Croatian),\n";
- print " hu_HU (Hungarian), id_ID (Indonesian), is_IS (Icelandic), it_IT (Italian),\n";
- print " ja_JP (Japanese), ko_KR (Korean), lt_LT (Lithuanian), ms_MY (Malay),\n";
- print " nl_NL (Dutch), nn_NO (Norwegian (Nynorsk)), no_NO (Norwegian (Bokmal)),\n";
- print " pl_PL (Polish), pt_BR (Portuguese (Brazil)), pt_PT (Portuguese (Portugal)),\n";
- print " ro_RO (Romanian), ru_RU (Russian), sk_SK (Slovak), sl_SI (Slovenian),\n";
- print " sr_YU (Serbian), sv_SE (Swedish), th_TH (Thai), tr_TR (Turkish),\n";
- print " zh_CN (Chinese Simplified), zh_TW (Chinese Traditional).\n";
- print "\n";
- print "[$WHT$available_languages$NRM]: $WHT";
- $new_available_languages = <STDIN>;
- if ( $new_available_languages eq "\n" ) {
- $new_available_languages = $available_languages;
- } else {
- $new_available_languages =~ s/[\r\n]//g;
- $new_available_languages =~ s/^\s+$//g;
- }
- return $new_available_languages;
-}