Form::redirect muss auch Zahlen in Scriptnamen zulassen, weil ansonsten z.B. menuv3...

diff --git a/SL/Form.pm b/SL/Form.pm
index d1dbfb631a2cabbf973293d1f409f8b001d37cf4..c62c8ad0d8464b841e4dfb8878dbb227bfc68374 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -692,7 +692,7 @@ sub redirect {
 
     ($script, $argv) = split(/\?/, $self->{callback}, 2);
     $script =~ s|.*/||;
 
     ($script, $argv) = split(/\?/, $self->{callback}, 2);
     $script =~ s|.*/||;

-    $script =~ s|[^a-zA-Z_\.]||g;
+    $script =~ s|[^a-zA-Z0-9_\.]||g;

     exec("perl", "$script", $argv);
 
   } else {
     exec("perl", "$script", $argv);
 
   } else {