usermin/change_lang.cgi

   1 #!/usr/local/bin/perl
   2 # change_lang.cgi
   3 # Change language setting
   4
   5 require './usermin-lib.pl';
   6 $access{'lang'} || &error($text{'acl_ecannot'});
   7 &ReadParse();
   8 &lock_file($usermin_config);
   9 &get_usermin_config(\%uconfig);
  10 $uconfig{'lang'} = $in{'lang'};
  11 $uconfig{'acceptlang'} = $in{'acceptlang'};
  12 &put_usermin_config(\%uconfig);
  13 &unlock_file($usermin_config);
  14 &webmin_log("lang", undef, undef, \%in);
  15 &redirect("");
  16