rewrote internationalization and help system
This commit is contained in:
JT Smith
parent
e0d4792587
commit
7bb6ac31c1
57 changed files with 11072 additions and 731 deletions
|
|
@ -46,7 +46,7 @@ sub _isValidLDAPUser {
|
|||
my $self = shift;
|
||||
my ($uri, $error, $ldap, $search, $auth, $connectDN);
|
||||
|
||||
$uri = URI->new($session{setting}{ldapURL}) or $error = WebGUI::International::get(2,'Auth/LDAP');
|
||||
$uri = URI->new($session{setting}{ldapURL}) or $error = WebGUI::International::get(2,'AuthLDAP');
|
||||
if($error ne ""){
|
||||
$self->error($error);
|
||||
return 0;
|
||||
|
|
@ -62,7 +62,7 @@ sub _isValidLDAPUser {
|
|||
$connectDN = $search->entry(0)->get_value($session{setting}{ldapUserRDN});
|
||||
}
|
||||
$ldap->unbind;
|
||||
$ldap = Net::LDAP->new($uri->host, (port=>$uri->port)) or $error .= WebGUI::International::get(2,'Auth/LDAP');
|
||||
$ldap = Net::LDAP->new($uri->host, (port=>$uri->port)) or $error .= WebGUI::International::get(2,'AuthLDAP');
|
||||
$auth = $ldap->bind(dn=>$connectDN, password=>$session{form}{'authLDAP.identifier'});
|
||||
if ($auth->code == 48 || $auth->code == 49) {
|
||||
$error .= '<li>'.WebGUI::International::get(68);
|
||||
|
|
@ -77,11 +77,11 @@ sub _isValidLDAPUser {
|
|||
WebGUI::ErrorHandler::warn("Invalid LDAP information for registration of LDAP ID: ".$session{form}{'authLDAP.ldapId'});
|
||||
}
|
||||
} else {
|
||||
$error = WebGUI::International::get(2,'Auth/LDAP');
|
||||
$error = WebGUI::International::get(2,'AuthLDAP');
|
||||
WebGUI::ErrorHandler::warn("Couldn't bind to LDAP server: ".$session{setting}{ldapURL});
|
||||
}
|
||||
} else {
|
||||
$error = WebGUI::International::get(2,'Auth/LDAP');
|
||||
$error = WebGUI::International::get(2,'AuthLDAP');
|
||||
WebGUI::ErrorHandler::warn("Couldn't create LDAP object: ".$uri->host);
|
||||
}
|
||||
$self->error($error);
|
||||
|
|
@ -102,8 +102,8 @@ sub addUserForm {
|
|||
my $connectDN = $session{form}{'authLDAP.connectDN'} || $userData->{connectDN};
|
||||
|
||||
my $f = WebGUI::HTMLForm->new;
|
||||
$f->url("authLDAP.ldapUrl",WebGUI::International::get(3,'Auth/LDAP'),$ldapUrl);
|
||||
$f->text("authLDAP.connectDN",WebGUI::International::get(4,'Auth/LDAP'),$connectDN);
|
||||
$f->url("authLDAP.ldapUrl",WebGUI::International::get(3,'AuthLDAP'),$ldapUrl);
|
||||
$f->text("authLDAP.connectDN",WebGUI::International::get(4,'AuthLDAP'),$connectDN);
|
||||
return $f->printRowsOnly;
|
||||
}
|
||||
|
||||
|
|
@ -133,8 +133,8 @@ sub authenticate {
|
|||
my $userData = $self->getParams;
|
||||
|
||||
|
||||
$error .= WebGUI::International::get(12,'Auth/LDAP') if ($userData->{ldapUrl} eq "");
|
||||
$error .= WebGUI::International::get(11,'Auth/LDAP') if ($userData->{connectDN} eq "");
|
||||
$error .= WebGUI::International::get(12,'AuthLDAP') if ($userData->{ldapUrl} eq "");
|
||||
$error .= WebGUI::International::get(11,'AuthLDAP') if ($userData->{connectDN} eq "");
|
||||
|
||||
$self->error($error);
|
||||
if($error ne ""){
|
||||
|
|
@ -143,7 +143,7 @@ sub authenticate {
|
|||
}
|
||||
|
||||
if($uri = URI->new($userData->{ldapUrl})) {
|
||||
$ldap = Net::LDAP->new($uri->host, (port=>$uri->port)) or $error .= WebGUI::International::get(2,'Auth/LDAP');
|
||||
$ldap = Net::LDAP->new($uri->host, (port=>$uri->port)) or $error .= WebGUI::International::get(2,'AuthLDAP');
|
||||
if($error ne ""){
|
||||
$self->user(WebGUI::User->new(1));
|
||||
return 0 ;
|
||||
|
|
@ -157,7 +157,7 @@ sub authenticate {
|
|||
}
|
||||
$ldap->unbind;
|
||||
}else{
|
||||
$error .= WebGUI::International::get(13,'Auth/LDAP');
|
||||
$error .= WebGUI::International::get(13,'AuthLDAP');
|
||||
WebGUI::ErrorHandler::warn("Could not process this LDAP URL: ".$userData->{ldapUrl});
|
||||
}
|
||||
if($error ne ""){
|
||||
|
|
@ -261,7 +261,7 @@ sub displayAccount {
|
|||
$vars->{'account.form.karma.label'} = WebGUI::International::get(537);
|
||||
}
|
||||
$vars->{'account.options'} = WebGUI::Operation::Shared::accountOptions();
|
||||
return WebGUI::Template::process(1,'Auth/LDAP/Account', $vars);
|
||||
return WebGUI::Template::process(1,'AuthLDAP/Account', $vars);
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
|
@ -310,11 +310,11 @@ sub editUserFormSave {
|
|||
sub editUserSettingsForm {
|
||||
my $self = shift;
|
||||
my $f = WebGUI::HTMLForm->new;
|
||||
$f->text("ldapUserRDN",WebGUI::International::get(9,'Auth/LDAP'),$session{setting}{ldapUserRDN});
|
||||
$f->url("ldapURL",WebGUI::International::get(5,'Auth/LDAP'),$session{setting}{ldapURL});
|
||||
$f->text("ldapId",WebGUI::International::get(6,'Auth/LDAP'),$session{setting}{ldapId});
|
||||
$f->text("ldapIdName",WebGUI::International::get(7,'Auth/LDAP'),$session{setting}{ldapIdName});
|
||||
$f->text("ldapPasswordName",WebGUI::International::get(8,'Auth/LDAP'),$session{setting}{ldapPasswordName});
|
||||
$f->text("ldapUserRDN",WebGUI::International::get(9,'AuthLDAP'),$session{setting}{ldapUserRDN});
|
||||
$f->url("ldapURL",WebGUI::International::get(5,'AuthLDAP'),$session{setting}{ldapURL});
|
||||
$f->text("ldapId",WebGUI::International::get(6,'AuthLDAP'),$session{setting}{ldapId});
|
||||
$f->text("ldapIdName",WebGUI::International::get(7,'AuthLDAP'),$session{setting}{ldapIdName});
|
||||
$f->text("ldapPasswordName",WebGUI::International::get(8,'AuthLDAP'),$session{setting}{ldapPasswordName});
|
||||
$f->yesNo(
|
||||
-name=>"ldapSendWelcomeMessage",
|
||||
-value=>$session{setting}{ldapSendWelcomeMessage},
|
||||
|
|
|
|||
|
|
@ -22,9 +22,9 @@ use warnings;
|
|||
our @ISA = qw(WebGUI::Auth);
|
||||
|
||||
my %smbError = (
|
||||
1 => WebGUI::International::get(2,'Auth/SMB'),
|
||||
2 => WebGUI::International::get(3,'Auth/SMB'),
|
||||
3 => WebGUI::International::get(4,'Auth/SMB')
|
||||
1 => WebGUI::International::get(2,'AuthSMB'),
|
||||
2 => WebGUI::International::get(3,'AuthSMB'),
|
||||
3 => WebGUI::International::get(4,'AuthSMB')
|
||||
);
|
||||
|
||||
|
||||
|
|
@ -45,10 +45,10 @@ sub addUserForm {
|
|||
my $login = $session{form}{'authSMB.smbLogin'} || $userData->{smbLogin};
|
||||
|
||||
my $f = WebGUI::HTMLForm->new;
|
||||
$f->text("authSMB.smbPDC",WebGUI::International::get(5,'Auth/SMB'),$pdc);
|
||||
$f->text("authSMB.smbBDC",WebGUI::International::get(6,'Auth/SMB'),$bdc);
|
||||
$f->text("authSMB.smbDomain",WebGUI::International::get(7,'Auth/SMB'),$domain);
|
||||
$f->text("authSMB.smbLogin",WebGUI::International::get(8,'Auth/SMB'),$login);
|
||||
$f->text("authSMB.smbPDC",WebGUI::International::get(5,'AuthSMB'),$pdc);
|
||||
$f->text("authSMB.smbBDC",WebGUI::International::get(6,'AuthSMB'),$bdc);
|
||||
$f->text("authSMB.smbDomain",WebGUI::International::get(7,'AuthSMB'),$domain);
|
||||
$f->text("authSMB.smbLogin",WebGUI::International::get(8,'AuthSMB'),$login);
|
||||
return $f->printRowsOnly;
|
||||
}
|
||||
|
||||
|
|
@ -83,7 +83,7 @@ sub authenticate {
|
|||
$smb = Authen::Smb::authen($userData->{smbLogin}, $password, $userData->{smbPDC}, $userData->{smbBDC}, $userData->{smbDomain});
|
||||
$error = "<li>".$smbError{$smb} if($smb > 0)
|
||||
}else{
|
||||
$error .= "<li>".WebGUI::International::get(5,'Auth/SMB');
|
||||
$error .= "<li>".WebGUI::International::get(5,'AuthSMB');
|
||||
}
|
||||
$self->user(WebGUI::User->new(1)) if $error ne "";
|
||||
$self->error($error);
|
||||
|
|
@ -102,9 +102,9 @@ sub createAccount {
|
|||
}
|
||||
$vars->{'create.message'} = $_[0] if ($_[0]);
|
||||
$vars->{'create.form.loginId'} = WebGUI::Form::text({"name"=>"authSMB.loginId","value"=>$session{form}{"authSMB.loginId"}});
|
||||
$vars->{'create.form.loginId.label'} = WebGUI::International::get(8,'Auth/SMB');
|
||||
$vars->{'create.form.loginId.label'} = WebGUI::International::get(8,'AuthSMB');
|
||||
$vars->{'create.form.password'} = WebGUI::Form::password({"name"=>"authSMB.identifier","value"=>$session{form}{"authSMB.identifier"}});
|
||||
$vars->{'create.form.password.label'} = WebGUI::International::get(9,'Auth/SMB');
|
||||
$vars->{'create.form.password.label'} = WebGUI::International::get(9,'AuthSMB');
|
||||
$vars->{'create.form.hidden'} = WebGUI::Form::hidden({"name"=>"confirm","value"=>$session{form}{confirm}});
|
||||
return $self->SUPER::createAccount("createAccountSave",$vars);
|
||||
}
|
||||
|
|
@ -169,7 +169,7 @@ sub displayAccount {
|
|||
$vars->{'account.form.karma.label'} = WebGUI::International::get(537);
|
||||
}
|
||||
$vars->{'account.options'} = WebGUI::Operation::Shared::accountOptions();
|
||||
return WebGUI::Template::process(1,'Auth/SMB/Account', $vars);
|
||||
return WebGUI::Template::process(1,'AuthSMB/Account', $vars);
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
|
@ -218,9 +218,9 @@ sub editUserFormSave {
|
|||
sub editUserSettingsForm {
|
||||
my $self = shift;
|
||||
my $f = WebGUI::HTMLForm->new;
|
||||
$f->text("smbPDC",WebGUI::International::get(5,'Auth/SMB'),$session{setting}{smbPDC});
|
||||
$f->text("smbBDC",WebGUI::International::get(6,'Auth/SMB'),$session{setting}{smbBDC});
|
||||
$f->text("smbDomain",WebGUI::International::get(7,'Auth/SMB'),$session{setting}{smbDomain});
|
||||
$f->text("smbPDC",WebGUI::International::get(5,'AuthSMB'),$session{setting}{smbPDC});
|
||||
$f->text("smbBDC",WebGUI::International::get(6,'AuthSMB'),$session{setting}{smbBDC});
|
||||
$f->text("smbDomain",WebGUI::International::get(7,'AuthSMB'),$session{setting}{smbDomain});
|
||||
$f->yesNo(
|
||||
-name=>"smbSendWelcomeMessage",
|
||||
-value=>$session{setting}{smbSendWelcomeMessage},
|
||||
|
|
|
|||
|
|
@ -39,14 +39,14 @@ sub _isValidPassword {
|
|||
my $error = "";
|
||||
|
||||
if ($password ne $confirm) {
|
||||
$error .= '<li>'.WebGUI::International::get(3,'Auth/WebGUI');
|
||||
$error .= '<li>'.WebGUI::International::get(3,'AuthWebGUI');
|
||||
}
|
||||
if ($password eq "") {
|
||||
$error .= '<li>'.WebGUI::International::get(4,'Auth/WebGUI');
|
||||
$error .= '<li>'.WebGUI::International::get(4,'AuthWebGUI');
|
||||
}
|
||||
|
||||
if ($self->getSetting("passwordLength") && length($password) < $self->getSetting("passwordLength")){
|
||||
$error .= '<li>'.WebGUI::International::get(7,'Auth/WebGUI')." ".$self->getSetting("passwordLength");
|
||||
$error .= '<li>'.WebGUI::International::get(7,'AuthWebGUI')." ".$self->getSetting("passwordLength");
|
||||
}
|
||||
|
||||
$self->error($error);
|
||||
|
|
@ -80,7 +80,7 @@ sub addUserForm {
|
|||
my $userData = $self->getParams;
|
||||
my $f = WebGUI::HTMLForm->new;
|
||||
$f->password("authWebGUI.identifier",WebGUI::International::get(51),"password");
|
||||
$f->interval("authWebGUI.passwordTimeout",WebGUI::International::get(16,'Auth/WebGUI'),WebGUI::DateTime::secondsToInterval(($userData->{passwordTimeout} || $session{setting}{webguiPasswordTimeout})));
|
||||
$f->interval("authWebGUI.passwordTimeout",WebGUI::International::get(16,'AuthWebGUI'),WebGUI::DateTime::secondsToInterval(($userData->{passwordTimeout} || $session{setting}{webguiPasswordTimeout})));
|
||||
my $userChange = $session{setting}{webguiChangeUsername};
|
||||
if($userChange || $userChange eq "0"){
|
||||
$userChange = $userData->{changeUsername};
|
||||
|
|
@ -88,7 +88,7 @@ sub addUserForm {
|
|||
$f->yesNo(
|
||||
-name=>"authWebGUI.changeUsername",
|
||||
-value=>$userChange,
|
||||
-label=>WebGUI::International::get(21,'Auth/WebGUI')
|
||||
-label=>WebGUI::International::get(21,'AuthWebGUI')
|
||||
);
|
||||
my $passwordChange = $session{setting}{webguiChangePassword};
|
||||
if($passwordChange || $passwordChange eq "0"){
|
||||
|
|
@ -97,7 +97,7 @@ sub addUserForm {
|
|||
$f->yesNo(
|
||||
-name=>"authWebGUI.changePassword",
|
||||
-value=>$passwordChange,
|
||||
-label=>WebGUI::International::get(20,'Auth/WebGUI')
|
||||
-label=>WebGUI::International::get(20,'AuthWebGUI')
|
||||
);
|
||||
return $f->printRowsOnly;
|
||||
}
|
||||
|
|
@ -159,7 +159,7 @@ sub createAccount {
|
|||
$vars->{'create.form.password'} = WebGUI::Form::password({"name"=>"authWebGUI.identifier","value"=>$session{form}{"authWebGUI.identifier"}});
|
||||
$vars->{'create.form.password.label'} = WebGUI::International::get(51);
|
||||
$vars->{'create.form.passwordConfirm'} = WebGUI::Form::password({"name"=>"authWebGUI.identifierConfirm","value"=>$session{form}{"authWebGUI.identifierConfirm"}});
|
||||
$vars->{'create.form.passwordConfirm.label'} = WebGUI::International::get(2,'Auth/WebGUI');
|
||||
$vars->{'create.form.passwordConfirm.label'} = WebGUI::International::get(2,'AuthWebGUI');
|
||||
$vars->{'create.form.hidden'} = WebGUI::Form::hidden({"name"=>"confirm","value"=>$session{form}{confirm}});
|
||||
$vars->{'recoverPassword.isAllowed'} = $self->getSetting("passwordRecovery");
|
||||
$vars->{'recoverPassword.url'} = WebGUI::URL::page('op=recoverPassword');
|
||||
|
|
@ -227,12 +227,12 @@ sub displayAccount {
|
|||
$vars->{'account.form.password'} = WebGUI::Form::password({"name"=>"authWebGUI.identifier","value"=>"password"});
|
||||
$vars->{'account.form.password.label'} = WebGUI::International::get(51);
|
||||
$vars->{'account.form.passwordConfirm'} = WebGUI::Form::password({"name"=>"authWebGUI.identifierConfirm","value"=>"password"});
|
||||
$vars->{'account.form.passwordConfirm.label'} = WebGUI::International::get(2,'Auth/WebGUI');
|
||||
$vars->{'account.form.passwordConfirm.label'} = WebGUI::International::get(2,'AuthWebGUI');
|
||||
}
|
||||
if(!$userData->{changeUsername} && !$userData->{changePassword}){
|
||||
$vars->{'account.noform'} = "true";
|
||||
}
|
||||
$vars->{'account.nofields'} = WebGUI::International::get(22,'Auth/WebGUI');
|
||||
$vars->{'account.nofields'} = WebGUI::International::get(22,'AuthWebGUI');
|
||||
return $self->SUPER::displayAccount("updateAccount",$vars);
|
||||
}
|
||||
|
||||
|
|
@ -307,15 +307,15 @@ sub editUserSettingsForm {
|
|||
$f->text(
|
||||
-name=>"webguiPasswordLength",
|
||||
-value=>$session{setting}{webguiPasswordLength},
|
||||
-label=>WebGUI::International::get(15,'Auth/WebGUI'),
|
||||
-label=>WebGUI::International::get(15,'AuthWebGUI'),
|
||||
-size=>5,
|
||||
-maxLength=>5,
|
||||
);
|
||||
$f->interval("webguiPasswordTimeout",WebGUI::International::get(16,'Auth/WebGUI'),WebGUI::DateTime::secondsToInterval($session{setting}{webguiPasswordTimeout}));
|
||||
$f->interval("webguiPasswordTimeout",WebGUI::International::get(16,'AuthWebGUI'),WebGUI::DateTime::secondsToInterval($session{setting}{webguiPasswordTimeout}));
|
||||
$f->yesNo(
|
||||
-name=>"webguiExpirePasswordOnCreation",
|
||||
-value=>$session{setting}{webguiExpirePasswordOnCreation},
|
||||
-label=>WebGUI::International::get(9,'Auth/WebGUI')
|
||||
-label=>WebGUI::International::get(9,'AuthWebGUI')
|
||||
);
|
||||
$f->yesNo(
|
||||
-name=>"webguiSendWelcomeMessage",
|
||||
|
|
@ -330,17 +330,17 @@ sub editUserSettingsForm {
|
|||
$f->yesNo(
|
||||
-name=>"webguiChangeUsername",
|
||||
-value=>$session{setting}{webguiChangeUsername},
|
||||
-label=>WebGUI::International::get(19,'Auth/WebGUI')
|
||||
-label=>WebGUI::International::get(19,'AuthWebGUI')
|
||||
);
|
||||
$f->yesNo(
|
||||
-name=>"webguiChangePassword",
|
||||
-value=>$session{setting}{webguiChangePassword},
|
||||
-label=>WebGUI::International::get(18,'Auth/WebGUI')
|
||||
-label=>WebGUI::International::get(18,'AuthWebGUI')
|
||||
);
|
||||
$f->yesNo(
|
||||
-name=>"webguiPasswordRecovery",
|
||||
-value=>$session{setting}{webguiPasswordRecovery},
|
||||
-label=>WebGUI::International::get(6,'Auth/WebGUI')
|
||||
-label=>WebGUI::International::get(6,'AuthWebGUI')
|
||||
);
|
||||
$f->textarea("webguiRecoverPasswordEmail",WebGUI::International::get(134),$session{setting}{webguiRecoverPasswordEmail});
|
||||
return $f->printRowsOnly;
|
||||
|
|
@ -382,7 +382,7 @@ sub new {
|
|||
sub recoverPassword {
|
||||
my $self = shift;
|
||||
return $self->displayLogin if($self->userId != 1);
|
||||
my $template = 'Auth/WebGUI/Recovery';
|
||||
my $template = 'AuthWebGUI/Recovery';
|
||||
my $vars;
|
||||
$vars->{title} = WebGUI::International::get(71);
|
||||
$vars->{'recover.form.header'} = "\n\n".WebGUI::Form::formHeader({});
|
||||
|
|
@ -443,7 +443,7 @@ sub resetExpiredPassword {
|
|||
my $self = shift;
|
||||
my $vars;
|
||||
|
||||
$vars->{displayTitle} = '<h3>'.WebGUI::International::get(8,'Auth/WebGUI').'</h3>';
|
||||
$vars->{displayTitle} = '<h3>'.WebGUI::International::get(8,'AuthWebGUI').'</h3>';
|
||||
$vars->{'expired.message'} = $_[0] if($_[0]);
|
||||
$vars->{'expired.form.header'} = "\n\n".WebGUI::Form::formHeader({});
|
||||
$vars->{'expired.form.hidden'} = WebGUI::Form::hidden({"name"=>"op","value"=>"auth"});
|
||||
|
|
@ -451,15 +451,15 @@ sub resetExpiredPassword {
|
|||
$vars->{'expired.form.hidden'} .= WebGUI::Form::hidden({"name"=>"uid","value"=>$session{form}{uid}});
|
||||
|
||||
$vars->{'expired.form.oldPassword'} = WebGUI::Form::password({"name"=>"oldPassword"});
|
||||
$vars->{'expired.form.oldPassword.label'} = WebGUI::International::get(10,'Auth/WebGUI');
|
||||
$vars->{'expired.form.oldPassword.label'} = WebGUI::International::get(10,'AuthWebGUI');
|
||||
$vars->{'expired.form.password'} = WebGUI::Form::password({"name"=>"identifier"});
|
||||
$vars->{'expired.form.password.label'} = WebGUI::International::get(11,'Auth/WebGUI');
|
||||
$vars->{'expired.form.password.label'} = WebGUI::International::get(11,'AuthWebGUI');
|
||||
$vars->{'expired.form.passwordConfirm'} = WebGUI::Form::password({"name"=>"identifierConfirm"});
|
||||
$vars->{'expired.form.passwordConfirm.label'} = WebGUI::International::get(2,'Auth/WebGUI');
|
||||
$vars->{'expired.form.passwordConfirm.label'} = WebGUI::International::get(2,'AuthWebGUI');
|
||||
$vars->{'expired.form.submit'} = WebGUI::Form::submit({});
|
||||
$vars->{'expired.form.footer'} = "</form>";
|
||||
|
||||
return WebGUI::Template::process(1,'Auth/WebGUI/Expired', $vars);
|
||||
return WebGUI::Template::process(1,'AuthWebGUI/Expired', $vars);
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
|
@ -471,8 +471,8 @@ sub resetExpiredPasswordSave {
|
|||
$session{form}{username} = $u->username;
|
||||
|
||||
$error .= $self->error if(!$self->authenticate($session{form}{oldPassword}));
|
||||
$error .= '<li>'.WebGUI::International::get(5,'Auth/WebGUI') if($session{form}{identifier} eq "password");
|
||||
$error .= '<li>'.WebGUI::International::get(12,'Auth/WebGUI') if ($session{form}{oldPassword} eq $session{form}{identifier});
|
||||
$error .= '<li>'.WebGUI::International::get(5,'AuthWebGUI') if($session{form}{identifier} eq "password");
|
||||
$error .= '<li>'.WebGUI::International::get(12,'AuthWebGUI') if ($session{form}{oldPassword} eq $session{form}{identifier});
|
||||
$error .= $self->error if(!$self->_isValidPassword($session{form}{identifier},$session{form}{identifierConfirm}));
|
||||
|
||||
return $self->resetExpiredPassword("<h1>".WebGUI::International::get(70)."</h1>".$error) if($error ne "");
|
||||
|
|
@ -485,7 +485,7 @@ sub resetExpiredPasswordSave {
|
|||
|
||||
$msg = $self->login;
|
||||
if($msg eq ""){
|
||||
$msg = "<li>".WebGUI::International::get(17,'Auth/WebGUI');
|
||||
$msg = "<li>".WebGUI::International::get(17,'AuthWebGUI');
|
||||
}
|
||||
return $self->displayLogin($msg);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue