oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

selectable templates for auth

Browse source
This commit is contained in:
JT Smith 2005-03-04 23:45:13 +00:00
parent 2a1db10c8b
commit ac877443ed
8 changed files with 122 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Asset/Wobject.pm
View file

@ -561,6 +561,10 @@ Renders self->view based upon current style, subject to timeouts. Returns Privil
sub www_view {
my $self = shift;
return WebGUI::Privilege::noAccess() unless $self->canView;
if ($self->get("encryptPage") && $session{env}{HTTPS} ne "on") {
WebGUI::HTTP::setRedirect($self->getUrl);
return "";
}
$self->logView();
my $cache;
my $output;

24
lib/WebGUI/Auth/LDAP.pm
View file

@ -325,22 +325,40 @@ sub editUserSettingsForm {
-value=>$session{setting}{ldapWelcomeMessage},
-label=>WebGUI::International::get(869)
);
$f->template(
-name=>"ldapAccountTemplate",
-value=>$session{setting}{ldapAccountTemplate},
-namespace=>"Auth/LDAP/Account",
-label=>WebGUI::International::get("account template","AuthLDAP")
);
$f->template(
-name=>"ldapCreateAccountTemplate",
-value=>$session{setting}{ldapCreateAccountTemplate},
-namespace=>"Auth/LDAP/Create",
-label=>WebGUI::International::get("create account template","AuthLDAP")
);
$f->template(
-name=>"ldapLoginTemplate",
-value=>$session{setting}{ldapLoginTemplate},
-namespace=>"Auth/LDAP/Login",
-label=>WebGUI::International::get("login template","AuthLDAP")
);
return $f->printRowsOnly;
}
#-------------------------------------------------------------------
sub getAccountTemplateId {
return "PBtmpl0000000000000004";
return $session{setting}{ldapAccountTemplate} || "PBtmpl0000000000000004";
}
#-------------------------------------------------------------------
sub getCreateAccountTemplateId {
return "PBtmpl0000000000000005";
return $session{setting}{ldapCreateAccountTemplate} || "PBtmpl0000000000000005";
}
#-------------------------------------------------------------------
sub getLoginTemplateId {
return "PBtmpl0000000000000006";
return $session{setting}{ldapLoginTemplate} || "PBtmpl0000000000000006";
}
#-------------------------------------------------------------------

60
lib/WebGUI/Auth/WebGUI.pm
View file

@ -383,42 +383,72 @@ sub editUserSettingsForm {
-label=>WebGUI::International::get(6,'AuthWebGUI')
);
$f->textarea("webguiRecoverPasswordEmail",WebGUI::International::get(134),$session{setting}{webguiRecoverPasswordEmail});
$f->yesNo(
-name=>"webguiValidateEmail",
-value=>$session{setting}{webguiValidateEmail},
-label=>WebGUI::International::get('validate email','AuthWebGUI')
);
$f->yesNo(
-name=>"webguiUseCaptcha",
-value=>$session{setting}{webguiUseCaptcha},
-label=>WebGUI::International::get('use captcha','AuthWebGUI')
);
$f->yesNo(
-name=>"webguiValidateEmail",
-value=>$session{setting}{webguiValidateEmail},
-label=>WebGUI::International::get('validate email','AuthWebGUI')
);
$f->yesNo(
-name=>"webguiUseCaptcha",
-value=>$session{setting}{webguiUseCaptcha},
-label=>WebGUI::International::get('use captcha','AuthWebGUI')
);
$f->template(
-name=>"webguiAccountTemplate",
-value=>$session{setting}{webguiAccountTemplate},
-namespace=>"Auth/WebGUI/Account",
-label=>WebGUI::International::get("account template","AuthWebGUI")
);
$f->template(
-name=>"webguiCreateAccountTemplate",
-value=>$session{setting}{webguiCreateAccountTemplate},
-namespace=>"Auth/WebGUI/Create",
-label=>WebGUI::International::get("create account template","AuthWebGUI")
);
$f->template(
-name=>"webguiExpiredPasswordTemplate",
-value=>$session{setting}{webguiExpiredPasswordTemplate},
-namespace=>"Auth/WebGUI/Expired",
-label=>WebGUI::International::get("expired password template","AuthWebGUI")
);
$f->template(
-name=>"webguiLoginTemplate",
-value=>$session{setting}{webguiLoginTemplate},
-namespace=>"Auth/WebGUI/Login",
-label=>WebGUI::International::get("login template","AuthWebGUI")
);
$f->template(
-name=>"webguiPasswordRecoveryTemplate",
-value=>$session{setting}{webguiPasswordRecoveryTemplate},
-namespace=>"Auth/WebGUI/Recovery",
-label=>WebGUI::International::get("password recovery template","AuthWebGUI")
);
return $f->printRowsOnly;
}
#-------------------------------------------------------------------
sub getAccountTemplateId {
return "PBtmpl0000000000000010";
return $session{setting}{webguiAccountTemplate} || "PBtmpl0000000000000010";
}
#-------------------------------------------------------------------
sub getCreateAccountTemplateId {
return "PBtmpl0000000000000011";
return $session{setting}{webguiCreateAccountTemplate} || "PBtmpl0000000000000011";
}
#-------------------------------------------------------------------
sub getExpiredPasswordTemplateId {
return "PBtmpl0000000000000012";
return $session{setting}{webguiExpiredPasswordTemplate} || "PBtmpl0000000000000012";
}
#-------------------------------------------------------------------
sub getLoginTemplateId {
return "PBtmpl0000000000000013";
return $session{setting}{webguiLoginTemplate} || "PBtmpl0000000000000013";
}
#-------------------------------------------------------------------
sub getPasswordRecoveryTemplateId {
return "PBtmpl0000000000000014";
return $session{setting}{webguiPasswordRecoveryTemplate} || "PBtmpl0000000000000014";
}

2
lib/WebGUI/URL.pm
View file

@ -208,7 +208,7 @@ sub getSiteURL {
$site = $session{env}{HTTP_HOST} || $session{config}{defaultSitename};
}
my $proto = "http://";
if ($session{env}{SERVER_PORT} == 443) {
if ($session{env}{HTTPS} eq "on") {
$proto = "https://";
}
return $proto.$site;

15
lib/WebGUI/i18n/English/AuthLDAP.pm
View file

@ -1,6 +1,21 @@
package WebGUI::i18n::English::AuthLDAP;
our $I18N = {
'account template' => {
message => q|Account Template|,
lastUpdated => 1078852969
},
'create account template' => {
message => q|Create Account Template|,
lastUpdated => 1078852969
},
'login template' => {
message => q|Login Template|,
lastUpdated => 1078852969
},
'account-1' => {
message => q|LDAP Authentication Display Account Template|,
lastUpdated => 1078852969

25
lib/WebGUI/i18n/English/AuthWebGUI.pm
View file

@ -1,6 +1,31 @@
package WebGUI::i18n::English::AuthWebGUI;
our $I18N = {
'account template' => {
message => q|Account Template|,
lastUpdated => 1078852836
},
'create account template' => {
message => q|Create Account Template|,
lastUpdated => 1078852836
},
'expired password template' => {
message => q|Expired Password Template|,
lastUpdated => 1078852836
},
'login template' => {
message => q|Login Template|,
lastUpdated => 1078852836
},
'password recovery template' => {
message => q|Password Recovery Template|,
lastUpdated => 1078852836
},
'use captcha' => {
message => q|Use captcha image?|,
lastUpdated => 1078852836