Revision cb347e6a
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/Dispatcher.pm | ||
|---|---|---|
| 223 | 223 |
$::form->{action} =~ s/( |-|,|\#)/_/g;
|
| 224 | 224 |
|
| 225 | 225 |
($script, $path, $suffix) = fileparse($script_name, ".pl"); |
| 226 |
require_main_code($script, $suffix); |
|
| 226 |
require_main_code($script, $suffix) unless $script eq 'admin';
|
|
| 227 | 227 |
|
| 228 | 228 |
$::form->{script} = $script . $suffix;
|
| 229 | 229 |
|
| ... | ... | |
| 248 | 248 |
_require_controller('LoginScreen');
|
| 249 | 249 |
} |
| 250 | 250 |
|
| 251 |
if (($script eq 'login') && !$action) {
|
|
| 252 |
print $::request->{cgi}->redirect('controller.pl?action=LoginScreen/user_login');
|
|
| 253 |
|
|
| 254 |
} elsif ($script eq 'admin') {
|
|
| 255 |
::run($session_result); |
|
| 251 |
if ((($script eq 'login') && !$action) || ($script eq 'admin')) {
|
|
| 252 |
$self->redirect_to_login($script); |
|
| 256 | 253 |
|
| 257 | 254 |
} else {
|
| 258 | 255 |
$self->redirect_to_login($script) if SL::Auth::SESSION_EXPIRED == $session_result; |
Auch abrufbar als: Unified diff
Alle Anfragen auf admin.pl auf neuen Admin-Controller umleiten