Read persistent cookie 



to_integer(S) ->
    list_to_integer(string:strip(S, both)).

out(A) ->
    H=A#arg.headers,
    C = H#headers.cookie,
    L=case yaws_api:find_cookie_val("pfoobar", C) of
          [] ->
              f("
 No cookie set from the browser, need to "
                "visit setpcookie.yaws "
                "to set the cookie first 
~n", []);
          NumStr ->
              Num = to_integer(NumStr),
              case ets:lookup(pcookies, {cookie,Num}) of
                  [{{cookie, Num}, Data}] ->
                      f("
 Yes, I read your cookie:it is ~p~n "
                        "Your persistent info is ~n"
                        "
~n~p~n
 
~n", [NumStr, Data]);
                  [] ->
                      f("
 You had a cookie,but the data is gone 
",[])
              end
      end,
    {html, L}.





The code to read the cookie, is simple, we get the cookie passed to the yaws
code in the #arg structure which is the argument supplied to the out/1 function.
The code is:


out(A) ->
    {ok, B} = file:read_file(A#arg.docroot ++ "/readpcookie.yaws"),
       {ehtml,
        {'div', [{class, "box"}],
        {pre,[], B}}}.