lithium3

Check-in [472ca5879e]
Login

Check-in [472ca5879e]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:lithium-dispatchers: add the cookie setter page constructor
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 472ca5879e194c9987939fd990dd5f8fdd4f238b
User & Date: nat 2019-03-31 21:57:02.022
Context
2019-04-28
17:24
natools-web-simple_pages-markdown_multipages: add page template support check-in: b384211877 user: nat tags: trunk
2019-03-31
21:57
lithium-dispatchers: add the cookie setter page constructor check-in: 472ca5879e user: nat tags: trunk
2019-03-30
22:38
lithium-dispatchers: add a user database backend check-in: c899867743 user: nat tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/lithium-dispatchers.adb.
︙︙
14
15
16
17
18
19
20

21
22
23
24
25
26
27

-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.           --
------------------------------------------------------------------------------

with Ada.Real_Time;
with Natools.Web.ACL.Sx_Backends;
with Natools.Web.Backends.Filesystem;
with Natools.Web.Comment_Cookies;

with Natools.Web.Escapes.Filters;
with Natools.Web.Exchanges;
with Natools.Web.Filters.Pass_Through;
with Natools.Web.Filters.Text_Blocks;
with Natools.Web.Filters.Text_Replacement;
with Natools.Web.Reload_Pages;
with Natools.Web.Simple_Pages.Markdown_Pages;








>








14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.           --
------------------------------------------------------------------------------

with Ada.Real_Time;
with Natools.Web.ACL.Sx_Backends;
with Natools.Web.Backends.Filesystem;
with Natools.Web.Comment_Cookies;
with Natools.Web.Cookie_Setters;
with Natools.Web.Escapes.Filters;
with Natools.Web.Exchanges;
with Natools.Web.Filters.Pass_Through;
with Natools.Web.Filters.Text_Blocks;
with Natools.Web.Filters.Text_Replacement;
with Natools.Web.Reload_Pages;
with Natools.Web.Simple_Pages.Markdown_Pages;
︙︙
78
79
80
81
82
83
84



85
86
87
88
89
90
91

      Result : constant Handler
        := (AWS.Dispatchers.Handler with Ref => Holder_Refs.Create (Holder));
   begin
      Holder.Register
        ("s-expr", Natools.Web.ACL.Sx_Backends.Create'Access);

      Holder.Register



        ("markdown-page",
         Natools.Web.Simple_Pages.Markdown_Pages.Create'Access);
      Holder.Register
        ("markdown-multipage",
         Natools.Web.Simple_Pages.Markdown_Multipages.Create'Access);
      Holder.Register
        ("reload-page", Natools.Web.Reload_Pages.Create'Access);








>
>
>








79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

      Result : constant Handler
        := (AWS.Dispatchers.Handler with Ref => Holder_Refs.Create (Holder));
   begin
      Holder.Register
        ("s-expr", Natools.Web.ACL.Sx_Backends.Create'Access);

      Holder.Register
        ("cookie-setter",
         Natools.Web.Cookie_Setters.Create'Access);
      Holder.Register
        ("markdown-page",
         Natools.Web.Simple_Pages.Markdown_Pages.Create'Access);
      Holder.Register
        ("markdown-multipage",
         Natools.Web.Simple_Pages.Markdown_Multipages.Create'Access);
      Holder.Register
        ("reload-page", Natools.Web.Reload_Pages.Create'Access);
︙︙