选择extmail界面语言
小弟想在登陆extmail时选择语言,将Login.pm中的_initme函数修改为:
sub _initme {
my $self = shift;
$_[0] = $self;
my $q = $self->{query};
my $choose_lang =0;
my $language = '';
$choose_lang = $q->cgi("choose_lang");
if($choose_lang == 0) { #zh_CN
$language = "zh_CN";
$_[0]->userconfig->{lang} => "zh_CN";
}else { #en_US
$language = "en_US";
$_[0]->userconfig->{lang} => "en_US";
}
#initlang($_[0]->userconfig->{lang}, __PACKAGE__); #用这句界面没反应
initlang($language, __PACKAGE__); #用这句,login的界面可切换。切换成英文模式,输入用户名密码进去后界面又全是中文
$_[0]->{tpl}->assign( lang_charset => $lang_charset );
$_[0]->{tpl}->assign( \%lang_login );
}
$_[0]->userconfig->{lang}是全局变量么,如果是,那怎么修改后不起作用?怎么解决?