gitoria

4.5 KB

1. // lib/repos.hl — THE REPOS (ticket gitoria#6). A repo is a SLUG that is unique in the whole system;
2. // it lives at <slug>.<domain> (util.hl repoOrigin). One hl:mpackdb table, storage/mpackdb/repos.db:
3. // pk @id index !slug, owner { slug, description, owner (users @id), created, branch (the main branch; '' / absent = default),
4. // tktKey, tktProject, tktTitle, tktApi (the connected tickets project, gitoria#18; the key is a secret and never leaves the server) }
5. // The unique index makes the slug unique for good (a second put of a taken slug fails); slugError (repos-helpers.hl)
6. // answers it in words first. A new repo also gets an empty bare git repository (git.hl initRepo).
7. // Every write to the table is here. The slug's rules, the row a page shows, the Markdown view: repos-helpers.hl.
8. import { MPackDB } from 'hl:mpackdb'
9. import { now } from 'hl:time'
10. import { storageDir, countOfList, firstOf, plainError, newestFirst } from './util.hl'
11. import { userOfSession, userRecord } from './users.hl'
12. import { slugError, rowOf, withChange } from './repos-helpers.hl'
13. import { initRepo } from './git.hl'
15. static reposTable = new MPackDB(file = storageDir + '/repos.db', primaryKey = '@id', indexes = ['!slug', 'owner'])
17. static repoBySlug = (slug) => {
18. if (slug == null || hlTypeName(slug) != 'String' || slug == '') { return null }
19. return firstOf(reposTable.find('slug', slug))
20. }
22. // every repo, newest first
23. static repoRows = () => {
24. out = []
25. all = reposTable.find(null, null)
26. if (countOfList(all) == 0) { return out }
27. for (r of all) { out.push(rowOf(r)) }
28. return newestFirst(out)
29. }
31. static repoRow = (slug) => {
32. r = repoBySlug(slug)
33. return r == null ? null : rowOf(r)
34. }
36. // the repo a page stands on (util.hl slugOfHost): its row, or null for the main address / an unknown address
37. static repoAt = (slug) => {
38. if (slug == null || slug == '' || slugError(slug) != null) { return null }
39. return repoRow(slug)
40. }
42. // a new repo for a user: { repo } (the row) or { error, field }
43. static createRepo = (userId, slug, description) => {
44. u = userRecord(userId)
45. if (u == null) { return { error = 'log in with ident (top right) to create a repository' field = '' } }
46. if (u.name == '') { return { error = 'choose a display name first (top of the page)' field = '' } }
47. s = slug == null ? '' : ('' + slug).trim()
48. bad = slugError(s)
49. if (bad != null) { return { error = bad field = 'slug' } }
50. d = description == null ? '' : ('' + description).trim()
51. dbad = plainError(d, 200, 'the description')
52. if (dbad != null) { return { error = dbad field = 'description' } }
53. if (repoBySlug(s) != null) { return { error = "the address '" + s + "' is taken — every repository address is unique in the whole system" field = 'slug' } }
54. id = reposTable.put({ slug = s description = d owner = u.id created = now() })
55. if (id == null) { return { error = 'could not store the repository (is the address taken?): ' + reposTable.lastError() field = 'slug' } }
56. initRepo(s)
57. return { repo = rowOf(reposTable.fetch(id)) }
58. }
60. // does this (real) session's user own the repo?
61. static ownsRepo = (slug, session) => {
62. u = userOfSession(session)
63. row = repoBySlug(slug)
64. return u != null && row != null && row.owner == u.id
65. }
67. // MAY THIS USER PUSH? Only the repo's owner (a known user) — over HTTPS (transport.hl, the token's user) and over SSH
68. // (lib/api.hl gitAccess, the key's user). Reading is everyone's.
69. static mayPush = (userId, repo) => { return userRecord(userId) != null && repo.owner == userId }
71. // the connection to a tickets project (gitoria#18); key '' = disconnected. The caller checked the owner.
72. static setTicketsConnection = (slug, key, project, title, api) => {
73. r = repoBySlug(slug)
74. if (r == null) { return { error = 'no such repository' } }
75. reposTable.update(r.id, withChange(r, { tktKey = key tktProject = project tktTitle = title tktApi = api }))
76. after = reposTable.fetch(r.id)
77. if (after == null || after.tktKey != key) { return { error = 'could not store the connection: ' + reposTable.lastError() } }
78. return { repo = rowOf(after) }
79. }
81. // the owner's setting of the main branch (/code, the homepage). The caller checked the branch exists.
82. static setMainBranch = (userId, slug, name) => {
83. r = repoBySlug(slug)
84. if (r == null) { return { error = 'no such repository' } }
85. if (userId == null || r.owner != userId) { return { error = 'only the owner can change the main branch' } }
86. reposTable.update(r.id, withChange(r, { branch = name }))
87. after = reposTable.fetch(r.id)
88. if (after == null || after.branch != name) { return { error = 'could not store the setting: ' + reposTable.lastError() } }
89. return { repo = rowOf(after) }
90. }