lib/handlers/handlers.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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\">&nbsp;</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\">&nbsp;</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)