Revision a73fd639
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 692 | 692 |
|
| 693 | 693 |
($script, $argv) = split(/\?/, $self->{callback}, 2);
|
| 694 | 694 |
$script =~ s|.*/||; |
| 695 |
$script =~ s|[^a-zA-Z_\.]||g; |
|
| 695 |
$script =~ s|[^a-zA-Z0-9_\.]||g;
|
|
| 696 | 696 |
exec("perl", "$script", $argv);
|
| 697 | 697 |
|
| 698 | 698 |
} else {
|
Auch abrufbar als: Unified diff
Form::redirect muss auch Zahlen in Scriptnamen zulassen, weil ansonsten z.B. menuv3.pl nicht ausgeführt wird.