/priv/sites/zotonic_status/zotonic_status.erl

https://code.google.com/p/zotonic/ · Erlang · 26 lines · 17 code · 6 blank · 3 comment · 1 complexity · c0f690e5539fc18b377a77b2ff73ae5f MD5 · raw file 

    

  1. -module(zotonic_status).
    2. 

  2. -author("Marc Worrell <marc@worrell.nl>").
    3. 

  3. 

  4. -mod_title("Zotonic Status").
    5. 

  5. -mod_descr("Default Zotonic site, used when no other site can handle the supplied Host.").
    6. 

  6. -mod_prio(10).
    7. 

  7. 

  8. -export([
    9. 

  9.     observe_user_is_enabled/2,
    10. 

  10.     observe_acl_logon/2,
    11. 

  11.     observe_acl_logoff/2
    12. 

  12. ]).
    13. 

  13. 

  14. -include_lib("zotonic.hrl").
    15. 

  15. 

  16. %% @doc Check if an user is enabled.
    17. 

  17. observe_user_is_enabled({user_is_enabled, UserId}, _Context) ->
    18. 

  18.     UserId == 1.
    19. 

  19. 

  20. %% @doc Let the user log on, this is the moment to start caching information.
    21. 

  21. observe_acl_logon({acl_logon, UserId}, Context) ->
    22. 

  22.     Context#context{user_id=UserId}.
    23. 

  23. 

  24. %% @doc Let the user log off, clean up any cached information.
    25. 

  25. observe_acl_logoff({acl_logoff}, Context) ->
    26. 

  26.     Context#context{acl=undefined, user_id=undefined}.
    27.