Revision b7e60011
Von Bernd Bleßmann vor mehr als 5 Jahren hinzugefügt
| SL/Dispatcher/AuthHandler/User.pm | ||
|---|---|---|
|
my ($self, %param) = @_;
|
||
|
|
||
|
$::auth->punish_wrong_login;
|
||
|
|
||
|
require SL::Controller::Base;
|
||
|
my $controller = SL::Controller::Base->new;
|
||
|
|
||
|
my $callback = delete $param{callback};
|
||
|
if (!$callback) {
|
||
|
delete @{ $::form }{ grep { m/^\{AUTH\}/ } keys %{ $::form } };
|
||
|
$callback = $controller->url_for(%param, %{$::form});
|
||
|
}
|
||
|
|
||
|
my %redirect_params = (
|
||
|
controller => 'LoginScreen',
|
||
|
action => 'user_login',
|
||
|
error => 'password',
|
||
|
callback => $callback,
|
||
|
);
|
||
|
$controller->redirect_to(%redirect_params);
|
||
|
$::dispatcher->redirect_to_login(%param, error => 'password');
|
||
|
|
||
|
return 0;
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Login: Callback für Redirect zum Ziel nur an einer Stelle bauen