lithium3

Check-in [c899867743]
Login

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

Overview
Comment:lithium-dispatchers: add a user database backend
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c8998677434cfb5335b13041fed74f1bfc3eac8c
User & Date: nat 2019-03-30 22:38:30
Context
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
2019-03-04
19:59
lithium-spoiler_filters: new filter to rot13-scramble spoiler spans check-in: 2f20876918 user: nat tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/lithium-dispatchers.adb.

11
12
13
14
15
16
17

18
19
20
21
22
23
24
-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES   --
-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN    --
-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF  --
-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.           --
------------------------------------------------------------------------------

with Ada.Real_Time;

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;







>







11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES   --
-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN    --
-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF  --
-- 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;
73
74
75
76
77
78
79



80
81
82
83
84
85
86

   not overriding function Create (File_Name : String) return Handler is
      Holder : constant Holder_Refs.Data_Access
        := new Natools.Web.Sites.Holders.Holder;
      Result : constant Handler
        := (AWS.Dispatchers.Handler with Ref => Holder_Refs.Create (Holder));
   begin



      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







>
>
>







74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

   not overriding function Create (File_Name : String) return Handler is
      Holder : constant Holder_Refs.Data_Access
        := new Natools.Web.Sites.Holders.Holder;
      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