PAL.C.T MINI SHELL
#!/usr/bin/perl
# edit_lang.cgi
# Language config form
require './language-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1);
print $text{'index_intro'},"<p>\n";
print &ui_form_start("change_lang.cgi");
$ulang = $gconfig{'lang_'.$remote_user};
print "<b>$text{'index_lang'}</b>\n";
print &ui_select("lang", $ulang,
[ [ "", $text{'index_global'} ],
map { [ $_->{'lang'}, $_->{'desc'}." (".uc($_->{'lang'}).")" ] }
&list_languages() ]);
print &ui_form_end([ [ undef, $text{'index_ok'} ] ]);
&ui_print_footer("/", $text{'index'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`