将 CORS header 文件添加到 Spiffy (Scheme/Chicken)

Question

我需要使用 Spiffy 网络服务器将网络应用程序连接到 Scheme/Chicken 中制作的 REST 界面。

如何使用正确的 Scheme 语法将此 header 添加到 .scm 配置文件（使用 CSI -s /www/config.scm 启动 Spiffy）？

header是Access-Control-Allow-Origin: *

Answer 1

当您在 vhost-map 中执行一个过程时，您可以将其包装在 with-headers 中，如下所示：

(vhost-map `((".*" . ,(lambda (cont)
                        (with-headers '((access-control-allow-origin "*"))
                          cont)))))

这使用了 with-headers 过程，它只是将 headers 添加到 thunk 返回的响应中。有关详细信息，请参阅 the Spiffy docs。

Adding CORS header files to Spiffy (Scheme/Chicken)