Revision b023a2ad
Von Kivitendo Admin vor mehr als 11 Jahren hinzugefügt
| SL/Dispatcher.pm | ||
|---|---|---|
| 350 | 350 |
my ($script_name, $action); |
| 351 | 351 |
|
| 352 | 352 |
eval {
|
| 353 |
die "Unroutable request -- inavlid module name.\n" if !$::form->{M} || ($::form->{M} !~ m/^${name_re}$/);
|
|
| 353 |
die "Unroutable request -- invalid module name.\n" if !$::form->{M} || ($::form->{M} !~ m/^${name_re}$/);
|
|
| 354 | 354 |
$script_name = $::form->{M} . '.pl';
|
| 355 | 355 |
|
| 356 | 356 |
if ($::form->{A}) {
|
| ... | ... | |
| 358 | 358 |
|
| 359 | 359 |
} else {
|
| 360 | 360 |
$action = first { m/^A_${name_re}$/ } keys %{ $::form };
|
| 361 |
die "Unroutable request -- inavlid action name.\n" if !$action;
|
|
| 361 |
die "Unroutable request -- invalid action name.\n" if !$action;
|
|
| 362 | 362 |
|
| 363 | 363 |
delete $::form->{$action};
|
| 364 | 364 |
$action = substr $action, 2; |
| ... | ... | |
| 379 | 379 |
my ($controller, $action, $request_type); |
| 380 | 380 |
|
| 381 | 381 |
eval {
|
| 382 |
$::form->{action} =~ m|^ ( [A-Z] [A-Za-z0-9_]* ) / ( [a-z] [a-z0-9_]* ) ( \. [a-zA-Z]+ )? $|x || die "Unroutable request -- inavlid controller/action.\n";
|
|
| 382 |
$::form->{action} =~ m|^ ( [A-Z] [A-Za-z0-9_]* ) / ( [a-z] [a-z0-9_]* ) ( \. [a-zA-Z]+ )? $|x || die "Unroutable request -- invalid controller/action.\n";
|
|
| 383 | 383 |
($controller, $action) = ($1, $2); |
| 384 | 384 |
delete $::form->{action};
|
| 385 | 385 |
|
Auch abrufbar als: Unified diff
Typos korrigiert
Obwohl die super zum Greppen waren.