webmin/change_lang.cgi

   1 #!/usr/local/bin/perl
   2 # change_lang.cgi
   3 # Change language setting
   4
   5 require './webmin-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'lang_err'});
   8 &lock_file("$config_directory/config");
   9 $gconfig{'lang'} = $in{'lang'};
  10 $gconfig{'acceptlang'} = $in{'acceptlang'};
  11 if ($in{'charset_def'}) {
  12         delete($gconfig{'charset'});
  13         }
  14 else {
  15         $in{'charset'} =~ /^\S+$/ || &error($text{'lang_echarset'});
  16         $gconfig{'charset'} = $in{'charset'};
  17         }
  18 &write_file("$config_directory/config", \%gconfig);
  19 &unlock_file("$config_directory/config");
  20 &webmin_log("lang", undef, undef, \%in);
  21 &redirect("");
  22