Anubis / Xlib

Commit 440758699ef812272fb7de14dcbf8ff3016cc26b

Authored by Cédric RICARD
1 parent 235d10eb

Adding web arguments to the initial state handler

Showing 1 changed file with 5 additions and 3 deletions   Show diff stats
Inline Side-by-side
calexium_lib/web/CXM_making_a_web_site.anubis
  Show/Hide comments   View file @4407586
... ... @@ -2127,7 +2127,9 @@ public define Web_Site
2127 2127 String site_directory,
2128 2128 String state_directory,
2129 2129 One -> One init,
2130   - (HTTP_Info) -> (Maybe($SessionTicket), Maybe($State), List(HTTP_header)) initial_state,
  2130 + (HTTP_Info,
  2131 + List(Web_arg),
  2132 + Bool is_https) -> (Maybe($SessionTicket), Maybe($State), List(HTTP_header)) initial_state,
2131 2133 ($State expired,
2132 2134 HTTP_Info,
2133 2135 List(Web_arg),
... ... @@ -2181,7 +2183,7 @@ public define Web_Site
2181 2183 failure then
2182 2184 if mb_action_name is
2183 2185 {
2184   - failure then initial_state(http_info),
  2186 + failure then initial_state(http_info, lwa, is_https),
2185 2187 success(action_name) then
2186 2188 apply_action(failure,action_name,http_info,operands,is_https)
2187 2189 },
... ... @@ -2190,7 +2192,7 @@ public define Web_Site
2190 2192 not_found then
2191 2193 if mb_action_name is
2192 2194 {
2193   - failure then initial_state(http_info),
  2195 + failure then initial_state(http_info, lwa, is_https),
2194 2196 success(_) then
2195 2197 ticket_lost_state(http_info,lwa,is_https)
2196 2198 },
... ...