perl - 如何使 Mojolicious 的 url_for()->to_abs() 在 nginx 后面返回正确的方案(http 或 https)

Question

这是我的情况:

1) Nginx 监听 80 和 443 端口并将请求转发给 Mojolicious 应用。

upstream ssltest {
    server 127.0.0.1:9000;
}

server {
    listen 80;
    listen 443 ssl;

    server_name ssltest.server.com;

    location / {
        proxy_pass http://ssltest/;
        proxy_set_header Upgrade $http_upgrade;
        proxy_set_header Connection "upgrade";
        proxy_set_header Host $host;
        proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for;
    }
}

2) 在 Mojolicious 应用程序中，我放置了这段代码:

get '/' => sub {
  my $c = shift;

  warn $c->url_for('/somepath')->to_abs;  # HERE

  $c->render(template => 'index');
};

我希望 url_for('/​​somepath')->to_abs 返回 https://ssltest.server.com/somepath 或 http://.../somepath，取决于我在浏览器中使用的协议(protocol)。 但它总是返回http

(出于某种原因，我必须创建一个绝对路径，而不是相对路径)

所以，我试着在网络上搜索。

https://groups.google.com/d/msg/mojolicious/zL-c4Tx1vCk/_ihsLRsNAgAJ

此链接告诉我可以通过自定义 header X-Forward-Proto 将当前协议(protocol)(http 或 https)传递给 Mojo 应用程序。但是，url_for() 仍然只返回 http。

然后我尝试了这样的代码:

warn $c->url_for('/somepath')->to_abs->scheme(
  $c->req->headers->header('X-Forwarded-Proto')
);

成功了!但是现在我必须修改代码中每次出现的 url_for->to_abs。

接下来，我找到了这个链接:https://stackoverflow.com/a/27834805/1150133它使用一个钩子(Hook)来修改 $c->req->url->base 本身。我尝试应用它:

# change 'scheme' of request url
hook 'before_dispatch' => sub {
  my $c = shift;
  $c->req->url->base->scheme( $c->req->headers->header('X-Forwarded-Proto'));
};

get '/' => sub {
  my $c = shift;

  # url_for() seems to refer the request url to determine new url
  warn $c->url_for('/somepath')->to_abs;

  $c->render(template => 'index');
};

效果很好。

现在我想知道这种做法是否正确。会不会出现什么问题？有没有更好或最好的方法来实现我的目标？

如有任何建议，我们将不胜感激。

Answer 1

是的，这是个好方法，但我会让它更灵活。

首先，Perl 中从来没有正确的方法。 Mojolicious 也只是 Perl。 There is more than one way to do it .有时一种或多种方法比其他方法更正确。就是这样一个案例。

您的代码很好，可以完成工作。但是，如果您决定以不同的方式部署应用程序，并且该 header 消失了，事情就会变得很顺利。所以你至少应该检查它是否存在。

# change 'scheme' of request url
hook 'before_dispatch' => sub {
  my $c = shift;
  $c->req->url->base->scheme( $c->req->headers->header('X-Forwarded-Proto'))
    if $c->req->headers->header('X-Forwarded-Proto');
};

现在，如果您使用 morbo 在本地运行它并且您没有设置 header ，事情应该仍然有效(假设它们一开始就坏了，这听起来像是一个合理的假设我没有验证)。

要查看如何为其编写单元测试，请参阅 this recent question .它从不同的方面来解决问题，但完全适用。