Allow strange urls

[pciids.git] / PciIds / Html / Handler.pm

diff --git a/PciIds/Html/Handler.pm b/PciIds/Html/Handler.pm
index f9ca889e5dd2830b303ac5e642ab7f2a3fd89911..b1fb9fc61edcc46185a84dc9c9d028fc0c0c441d 100644 (file)
--- a/PciIds/Html/Handler.pm
+++ b/PciIds/Html/Handler.pm
@@ -85,6 +85,9 @@ sub handler( $$ ) {
        my $action = $args->{'action'};
        $action = '' unless( defined $action );
        return HTTPRedirect( $req, protoName( $hasSSL ).'://'.$req->hostname().'/' ) if $req->uri() =~ /^\/(read|mods)\/?$/  && ( $action eq '' || $action eq 'list' );
+       my $uri = $req->uri();
+       $uri =~ s/(mods|read)\/\?/$1\/?PC\//;
+       return HTTPRedirect( $req, protoName( $hasSSL ).'://'.$req->hostname().'/'.$uri ) if $req->uri() =~ /^(read|mods)\/?/;
        my $method = $handlers{$req->method()};
        return HTTP_METHOD_NOT_ALLOWED unless( defined $method );#Can't handle this method
        my $sub = $method->{$action};