diff options
Diffstat (limited to 'lib/handlers/handlers.ml')
| -rw-r--r-- | lib/handlers/handlers.ml | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/lib/handlers/handlers.ml b/lib/handlers/handlers.ml new file mode 100644 index 0000000..7142439 --- /dev/null +++ b/lib/handlers/handlers.ml @@ -0,0 +1,43 @@ +(* Page layout function *) +let page_layout ~content = + "<html><body>" + ^ Layouts.Header.header () + ^ Layouts.Topnav.topnav () + ^ "<main>" ^ content ^ "</main>" + ^ "</body></html>" + +let root _ = + let content = + "<h1>Available Repositories</h1><ul>" + ^ Helpers.Html_helpers.generate_repo_links () + ^ "</ul>" + in + Dream.html (page_layout ~content) + +let repo_root _ = + (* let repo_name = Dream.param request "repo_name" in *) + let content = + "<div class=\"content\"><table summary=\"repository info\" class=\"list nowrap\"><tbody>\n" + ^ "<tr class=\"nohover\"><th class=\"left\">Branch</th><th class=\"left\">Commit message</th><th class=\"left\">Author</th><th class=\"left\" colspan=\"2\">Age</th></tr>\n" + ^ "<tr><td><a href=\"/wtt.git/log/\">master</a></td><td><a href=\"/wtt.git/commit/\">Ensure session[:id] before scoring: all tests now pass.</a></td><td>Marius Peter</td><td colspan=\"2\"><span class=\"age-weeks\" title=\"2025-01-02 19:11:34 +0100\">2 weeks</span></td></tr>\n" + ^ "<tr class=\"nohover\"><td colspan=\"3\"> </td></tr>\n" + ^ "<tr class=\"nohover\"><th class=\"left\">Tag</th><th class=\"left\">Download</th><th class=\"left\">Author</th><th class=\"left\" colspan=\"2\">Age</th></tr>\n" + ^ "<tr><td><a href=\"/wtt.git/tag/?h=v1.0\">v1.0</a></td><td><a href=\"/wtt.git/commit/?id=175111f9d84354dce00503525649197e9acb6382\">commit 175111f9d8...</a></td><td>Marius Peter</td><td colspan=\"2\"><span class=\"age-weeks\" title=\"2025-01-02 13:58:46 +0100\">2 weeks</span></td></tr>\n" + ^ "<tr class=\"nohover\"><td colspan=\"3\"> </td></tr>\n" + ^ "<tr class=\"nohover\"><th class=\"left\">Age</th><th class=\"left\">Commit message</th><th class=\"left\">Author</th></tr>\n" + ^ "<tr><td><span title=\"2025-01-02 19:11:34 +0100\">2025-01-02</span></td><td><a href=\"/wtt.git/commit/?id=b34d2b51174b511d59fa324d9f42abc75a1fa09a\">Ensure session[:id] before scoring: all tests now pass.</a><span class=\"decoration\"><a class=\"deco\" href=\"/wtt.git/commit/?id=b34d2b51174b511d59fa324d9f42abc75a1fa09a\">HEAD</a><a class=\"branch-deco\" href=\"/wtt.git/log/\">master</a></span></td><td>Marius Peter</td></tr>\n" + ^ "</tbody></table></div>" + in + Dream.html (page_layout ~content) + +let repo_tree request = + let repo_name = Dream.param request "repo_name" in + let repo_path = Filename.concat (Unix.getenv "HOME") ("git/" ^ repo_name) in + let content = + if Sys.file_exists repo_path && Sys.is_directory repo_path then + let files = Helpers.File_helpers.list_files repo_path in + "<h1>Browsing repository: " ^ repo_name ^ "</h1><ul>" ^ files ^ "</ul>" + else + "<h1>Repository not found: " ^ repo_name ^ "</h1>" + in + Dream.html (page_layout ~content) |