sub handler
{
        my $r = shift;
        if(my ($page, $entry, $id, $reply) = $r->uri =~ m#^/weblog/(comment|post|read)/(\w+)/(\w+)/(\d)#)
        {
                $r->uri("/$page");
                $r->args("entry=$entry&id=$id&reply=$reply");
                return Apache::DECLINED;
        }
        else
        {
                return Apache::DECLINED;
        }
}