Question

在我的舞台服务器中我想激活调试，以便客户端可以在应用程序进入生产服务器之前找到自己的错误。

但我只想要消息的第一部分，而不是请求或会话数据。

例如：无法渲染模板“templates / home.tt2：file error - templates / inc / heater：not found”。

此消息足以让我和我的客户看到“标题”调用拼写错误。

请求有很多与客户无关的信息，但也有很多内部开发信息应该一直隐藏!!

此致

Answer 1

您想要的是覆盖Catalyst的dump_these方法。这将返回Catalyst的错误调试页面上显示的事项列表。

默认实现如下：

sub dump_these {
    my $c = shift;
    [ Request => $c->req ],
    [ Response => $c->res ],
    [ Stash => $c->stash ],
    [ Config => $c->config ];
}

但你可以使它更具限制性，例如

sub dump_these {
    my $c = shift;
    return [ Apology => "We're sorry that you encountered a problem" ],
           [ Response => substr($c->res->body, 0, 512) ];
}

您可以在应用的主模块中定义dump_these - 您use Catalyst的位置。

Answer 2

我有一个类似的问题，我通过覆盖Catalyst方法log_request_parameters来解决。

像这样的东西（正如@mob所说，把它放在你的主模块中）：

sub log_request_parameters {
    my $c          = shift;
    my %all_params = @_; 

    my $copy = Clone::clone(\%all_params);  # don't change the 'real' request params

    # Then, do anything you want to only print what matters to you,
    # for example, to hide some POST parameters:
    my $body = $copy->{body} || {}; 
    foreach my $key (keys %$body) {
        $body->{$key} = '****' if $key =~ /password/;
    }

    return $c->SUPER::log_request_parameters( %$copy );
}

但是如果你不想显示任何GET / POST参数，你也可以在开始时简单地返回。

Answer 3

嗯，我没想到更明显的解决方案，在你的情况下：你可以简单地将日志级别设置为高于debug的值，这将阻止显示这些debug日志，但会保留error日志：

# (or a similar condition to check you are not on the production server)
if ( !__PACKAGE__->config->{dev} ) {
    __PACKAGE__->log->levels( 'warn', 'error', 'fatal' ) if ref __PACKAGE__->log;
}

Catalyst中的详细调试屏幕？

3 个答案: