Revision 4a12c839
Von Sven Schöling vor etwa 12 Jahren hinzugefügt
| SL/Dispatcher/AuthHandler/User.pm | ||
|---|---|---|
| 1 | 1 |
package SL::Dispatcher::AuthHandler::User; |
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 |
|
|
| 5 | 4 |
use parent qw(Rose::Object); |
| 6 | 5 |
|
| 6 |
use SL::Controller::Layout; |
|
| 7 |
|
|
| 7 | 8 |
sub handle {
|
| 8 | 9 |
my ($self, %param) = @_; |
| 9 | 10 |
|
| ... | ... | |
| 15 | 16 |
$self->_error(%param) unless $::myconfig{login};
|
| 16 | 17 |
|
| 17 | 18 |
$::locale = Locale->new($::myconfig{countrycode});
|
| 19 |
$::request->{layout} = SL::Controller::Layout->new(style => $::myconfig{menustyle});
|
|
| 18 | 20 |
|
| 19 | 21 |
my $ok = $::form->{'{AUTH}login'} && (SL::Auth::OK() == $::auth->authenticate($::myconfig{login}, $::form->{'{AUTH}password'}));
|
| 20 | 22 |
$ok ||= !$::form->{'{AUTH}login'} && (SL::Auth::OK() == $::auth->authenticate($::myconfig{login}, undef));
|
Auch abrufbar als: Unified diff
Layouts eingeführt
bin/mozilla/menu* -> SL/Controller/Layout/*