Revision b7e60011
Von Bernd Bleßmann vor etwa 5 Jahren hinzugefügt
| SL/Dispatcher/AuthHandler/User.pm | ||
|---|---|---|
| 46 | 46 |
my ($self, %param) = @_; |
| 47 | 47 |
|
| 48 | 48 |
$::auth->punish_wrong_login; |
| 49 |
|
|
| 50 |
require SL::Controller::Base; |
|
| 51 |
my $controller = SL::Controller::Base->new; |
|
| 52 |
|
|
| 53 |
my $callback = delete $param{callback};
|
|
| 54 |
if (!$callback) {
|
|
| 55 |
delete @{ $::form }{ grep { m/^\{AUTH\}/ } keys %{ $::form } };
|
|
| 56 |
$callback = $controller->url_for(%param, %{$::form});
|
|
| 57 |
} |
|
| 58 |
|
|
| 59 |
my %redirect_params = ( |
|
| 60 |
controller => 'LoginScreen', |
|
| 61 |
action => 'user_login', |
|
| 62 |
error => 'password', |
|
| 63 |
callback => $callback, |
|
| 64 |
); |
|
| 65 |
$controller->redirect_to(%redirect_params); |
|
| 49 |
$::dispatcher->redirect_to_login(%param, error => 'password'); |
|
| 66 | 50 |
|
| 67 | 51 |
return 0; |
| 68 | 52 |
} |
Auch abrufbar als: Unified diff
Login: Callback für Redirect zum Ziel nur an einer Stelle bauen