customizable status page

[Anniepoo]

Jan made the status page customizable.

% TODO add activation page % %! http:status_page(+Term, +Context, -HTML) % % Provide a custom error page for the forbidden action.

http:status_page(forbidden(Path), Context, HTML) :- phrase(page([ title(\local('Access denied')) ], [ h1(\local('Access denied')), p([\local('You do not have sufficient privileges to access '), Path]), \forbidden_reason(Context) ]), HTML).

forbidden_reason(Context) --> { memberchk(no_role(User, Role), Context) }, html(p(\local('The user ~p does not have role ~p'-[User,Role]))). forbidden_reason(Context) --> { memberchk(needs_activation(User), Context) }, html([p(\local('The user ~p needs to activate their account'-[User])), a(href(location_by_id(login(resend/User))), \local('Resend activation email'))]).