Form::redirect muss auch Zahlen in Scriptnamen zulassen, weil ansonsten z.B. menuv3...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 10 Jul 2007 08:35:09 +0000 (08:35 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 10 Jul 2007 08:35:09 +0000 (08:35 +0000)
SL/Form.pm

index d1dbfb6..c62c8ad 100644 (file)
@@ -692,7 +692,7 @@ sub redirect {
 
     ($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 {