如何使用yaws设置cookie

Question

有没有像php setcookie这样的函数。如果不是，那怎么做呢？

编辑：

yaws_api:setcookie("lang","lang_value", "/"),
yaws_api:find_cookie_val("lang", (A#arg.headers)#headers.cookie),

find_cookie_val返回空字符串，因为setcookie没有设置coockie。

Answer 1

最后，我通过http头实现了：

out(A) ->
% read 
  yaws_api:find_cookie_val("lang", (A#arg.headers)#headers.cookie),

% send to browser 
  [{header,["Set-Cookie:","lang=ruler;","expires="++to_cookie_expire(60*60*24*30)++";"]},
  {html, ...}]
end.

to_cookie_expire(SecondsToLive) -> 
  Seconds = calendar:datetime_to_gregorian_seconds(calendar:local_time()),
  DateTime = calendar:gregorian_seconds_to_datetime(Seconds +
  SecondsToLive), httpd_util:rfc1123_date(DateTime).

Answer 2

这个站点提供了一些关于yaws和设置cookie的示例代码：http://yaws.hyber.org/cookies.yaws