如何为Catalyst启用CORS

Question

有了一个生成JSON的Perl Catalyst应用程序，我需要在一个由Apache服务器提供服务的HTML页面中使用jQuery读取该JSON内容。Catalyst和Apache这两个应用程序在同一台主机上运行。

当我从Apache访问Catalyst URL时，我得到错误

Access to XMLHttpRequest at 'http://localhost:3000/abc/json_list' from origin 'http://localhost:8888' has been blocked by CORS policy: No 'Access-Control-Allow-Origin' header is present on the requested resource.

正如我在许多主题中提到的那样，必须设置一个(或更多)标题。在这种情况下，必须设置Catalyst，但我不知道如何设置。

有什么提示吗？

Answer 1

Catalyst允许您使用the header method on the response object设置响应头。

$c->res->header( "Access-Control-Allow-Origin" => "http://localhost:8888" );

如果您有多个端点需要通过CORS提供权限，请考虑使用控制器的sub auto或using现有middleware。