yaws appmods Accept-Language A 记录不正确

Question

多年来，我一直使用 docker 容器中的 yaws，基本上取自 https://github.com/segeda/docker-yaws/blob/master/Dockerfile：

FROM erlang:20-alpine
...
&& git clone https://github.com/klacke/yaws.git /yaws-src \
...

以前运行良好，但突然我的代码失败了，我找不到错误。我什至找不到以前工作的 git 版本，所以我怀疑它可能不是代码错误，但是——它可能是什么？

它不可能是我的代码，对吗？因为我将其归结为http://yaws.hyber.org/appmods.yaws 中给出的示例并产生了相同的错误：

%% this is my appmod called from yaws

-module(myurl).
-author('kklepper').
-include("../../include/yaws_api.hrl").
%-include("/usr/local/lib/yaws/include/yaws_api.hrl"). 
% relative or absolute -- either way same result
-export([out/1]).

-define(debug, true).
-ifdef(debug).
-define(trace(Str, X), io:format("Mod:~w line:~w ~p ~p~n", 
                                 [?MODULE,?LINE, Str, X])).
-else.
-define(trace(X, Y), true).
-endif.

box(Str) ->
    {'div',[{class,"box"}],
     {pre,[],Str}}.

out(A) ->
?trace('A', A),
    {ehtml,
     [{p,[],
       box(io_lib:format("A#arg.appmoddata = ~p~n"
                         "A#arg.appmod_prepath = ~p~n"
                         "A#arg.querydata = ~p~n",
                         [A#arg.appmoddata,
                          A#arg.appmod_prepath,
                          A#arg.querydata]))}]}.

文件yaws_api.hrl 曾经并且现在仍然存在：

/yaws # ls -la /usr/local/lib/yaws/include/yaws_api.hrl
-rw-r--r--    1 1000     50            5563 May 13  2018 /usr/local/lib/yaws/include/yaws_api.hrl

使用trace，您可以看到A 记录不正确——没有A#arg.querydata 等——因此出现错误。为什么？

显然，querydata，例如：lg=en。

Mod:myurl line:22 'A' {arg,#Port<0.2934>,
                          {{10,255,0,2},52801},
                          {headers,"keep-alive",
                              "text/html, application/xhtml+xml, application/xml;q=0.9, image/webp, image/apng, */*;q=0.8, application/signed-exchange;v=b3",
                              "voxx.b2d",undefined,undefined,undefined,
                              undefined,undefined,undefined,undefined,
                              "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/76.0.3809.132 Safari/537.36",
                              undefined,[],undefined,undefined,undefined,
                              undefined,undefined,undefined,undefined,
                              undefined,
                              [{http_header,11,'Accept-Language',undefined,
                                   "de-DE,de;q=0.9,en-US;q=0.8,en;q=0.7"},
                               {http_header,10,'Accept-Encoding',undefined,
                                   "gzip, deflate"},
                               {http_header,0,"Upgrade-Insecure-Requests",
                                   undefined,"1"}]},
                          {http_request,'GET',
                              {abs_path,"/industries?lg=en"},
                              {1,1}},
                          {http_request,'GET',
                              {abs_path,"/industries?lg=en"},
                              {1,1}},
                          undefined,"/industries","lg=en","industries","/ci",
                          "/","/ci/industries",undefined,undefined,<0.163.0>,
                          [],[],[],"/industries",myurl}

=ERROR REPORT==== 4-Oct-2019::00:46:06 ===


ERROR erlang code threw an uncaught exception:
 File: appmod:0
Class: error
Exception: {badrecord,arg}
Req: {http_request,'GET',{abs_path,"/industries?lg=en"},{1,1}}
Stack: [{myurl,out,1,
               [{file,"/usr/local/lib/yaws/voxx/ebin/myurl.erl"},{line,29}]},
        {yaws_server,deliver_dyn_part,8,
                     [{file,"yaws_server.erl"},{line,2921}]},
        {yaws_server,aloop,4,[{file,"yaws_server.erl"},{line,1274}]},
        {yaws_server,acceptor0,2,[{file,"yaws_server.erl"},{line,1073}]},
        {proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,247}]}]

到现在为止，我的想法已经用完了。有什么提示吗？

有问题的数据似乎在那里。我对语言数据很感兴趣，并且习惯于从A 获得接受的语言，如下所示：

get_lang(A) -> 
    find_lang(find_http_header('Accept-Language', (A#arg.headers)#headers.other)).

find_http_header(Key,Headers) when is_list(Headers) ->
        case lists:keysearch(Key,3,Headers) of
            {value,{_,_,_,_,Value}} -> Value;
            false -> undefined
        end.

find_lang(AcceptLanguage) ->
    case AcceptLanguage of
        undefined ->
            "en";
        _ ->
            L = lists:nth(1,string:tokens(
                lists:nth(1,string:tokens(
                    lists:nth(1,string:tokens(AcceptLanguage, ";"))
                    ,","))
            ,"-")),
            L
    end.

没有正确的数据结构，这是行不通的。

Answer 1

您在问题中包含的详细信息表明，您的 appmod 在尝试访问 Yaws 传递给它的 #arg 记录时遇到了 badrecord 异常。有几种方法可以获得这样的异常：

1. 将预期记录类型以外的数据类型的实例传递给函数。在这种情况下不会发生这种情况，因为 Yaws 正在调用该函数并且正确地传递了一个 #arg 记录实例。
2. 用同一记录的两个不同定义编译调用者和被调用函数。我们可以在 Erlang shell 中模拟这个问题，如下所示：
   • 首先，定义一条记录#arg，包含两个字段
   • 定义一个函数，将该记录的一个实例作为参数并返回其中一个字段的值
   • 将 shell 中的记录重新定义为只有一个字段
   • 将重新定义的记录的实例传递给函数，这将导致badrecord 异常

        1> rd(arg, {f,g}).
        arg
        2> F = fun(A) -> A#arg.f end.
        #Fun<erl_eval.7.126501267>
        3> rd(arg, {f}).
        arg
        4> F(#arg{f=1}).
        ** exception error: {badrecord,arg}

由于您使用的是 Yaws 2.0.7 并且您还从 github 克隆 Yaws，因此您很可能正在针对 Yaws 主分支编译您的代码的某些部分，可能是您的 appmod，然后针对 2.0 运行它。 7.在我在 github 上标记 Yaws 2.0.7 之后的某个时间，我接受了 change that added a new field 到 #arg 记录定义。这意味着 Yaws 2.0.7 创建并传递给您的 appmod 的任何 #arg 记录都会导致 badrecord 异常，因为 appmod 需要包含附加字段的记录。

我可以想出几个方法来避免这个问题：

• 摆脱您的 Yaws github 克隆并针对您安装的 Yaws 2.0.7 构建所有内容。
• 在您的 Yaws 克隆中，git checkout yaws-2.0.7 以便您从克隆中访问或使用的任何内容都与您的 Yaws 2.0.7 安装中的相同。
• 卸载 Yaws 2.0.7，然后从 Yaws 克隆编译和安装。也许先应用一个本地标签，然后从它构建和安装，这样您的部署可以更容易地复制，这样您就可以从 github 获取 Yaws 更新而不会破坏本地任何东西。