gitoria
All repositories: gitoria
3.1 KB
// lib/tokens.hl — ACCESS TOKENS for git over HTTPS (ticket gitoria#7; docs/git-backend.md "Credentials"). A developer's// git client cannot do the ident login, so a logged-in user makes a token here and gives it to git as the PASSWORD// (the user name is ignored). Git's HTTP Basic login is not deprecated by git itself; GitHub's ban on account// passwords is GitHub's. Only the sha256 of a token is stored: the token is shown ONCE, at its creation.// tokensTable pk @id index !hash, user { user (users @id), name, hash, created } storage/mpackdb/tokens.db// A token is `gtr_` + 40 hex characters from the kernel's random source (160 bits — the fast sha256 is enough).import { MPackDB } from 'hl:mpackdb'import { now } from 'hl:time'import { randomBytes, sha256 } from 'hl:crypto'import { storageDir, countOfList, firstOf, plainError, isHex, newestFirst, localStamp } from './util.hl'import { userRecord } from './users.hl'static tokensTable = new MPackDB(file = storageDir + '/tokens.db', primaryKey = '@id', indexes = ['!hash', 'user'])static maxTokens = 20static rowOfToken = (t) => { return { id = t.id name = t.name created = localStamp(t.created) createdMs = t.created } }// a user's tokens, newest first — never the token itself, only what identifies it to the ownerstatic tokenRows = (userId) => {let out = []let all = tokensTable.find('user', userId)if (countOfList(all) == 0) { return out }for (t of all) { out.push(rowOfToken(t)) }return newestFirst(out)}// a new token: { token (the secret, this once), row } or { error }static createToken = (userId, name) => {let u = userRecord(userId)if (u == null) { return { error = 'log in with ident (top right) first' } }let n = name == null ? '' : ('' + name).trim()let bad = plainError(n, 60, 'the token name')if (bad != null) { return { error = bad } }if (n == '') { return { error = 'give the token a name (for example the computer it is for)' } }if (countOfList(tokensTable.find('user', u.id)) >= maxTokens) { return { error = 'you have ' + maxTokens + ' tokens already — remove one first' } }let secret = 'gtr_' + randomBytes(20, 'hex')let id = tokensTable.put({ user = u.id name = n hash = sha256(secret) created = now() })if (id == null) { return { error = 'could not store the token: ' + tokensTable.lastError() } }return { token = secret row = rowOfToken(tokensTable.fetch(id)) }}// remove one of the user's own tokensstatic revokeToken = (userId, tokenId) => {if (userId == null || tokenId == null || hlTypeName(tokenId) != 'String') { return { error = 'no such token' } }let t = tokensTable.fetch(tokenId)if (t == null || t.user != userId) { return { error = 'no such token' } }tokensTable.delete(tokenId)return { ok = true }}// the user a token belongs to (users @id) or null; anything that is not shaped like a token is null without a lookupstatic userOfToken = (secret) => {if (secret == null || hlTypeName(secret) != 'String' || secret.length != 44 || !secret.startsWith('gtr_') || !isHex(secret.slice(4), 40)) { return null }let t = firstOf(tokensTable.find('hash', sha256(secret)))return t == null ? null : t.user}
Branches
- mainmain branch
Latest commits
- 090a20c6mission 002 (code order) 2/4: one lib/ file per topic — git.hl split into git (calls, branches, init, temp folder) / homepage / code / pulls / releases (+ git-helpers: paths, ids, |||PR/|||RL markers); repos-helpers, tickets-helpers, transport-helpers; util.hl = localtime + env, storage dir, addresses, lists, text checks, one newest-first sort (was 3 copies); the function routes out of project.hl into lib/api.hl (thin; plumbing in api-helpers.hl), sshgate.hl folded into api.hl + sshkeys.hl keyLine + repos.hl mayPush; 'Make main' and the merge answer out of the faces (code.hl makeMain, pulls.hl pullsView), one login helper (users.hl userOfLoginCode); project.hl is the map. Session-writing routes get &req + &server.sessions. gates 200/0, 46/0, 44/0; real-data identical except /login/failed now shows the parked reason for a browser that already had a session (the old copy-of-req lost it)mre
- 110c2799mission 002 (code order) 1/4: .hl files out of the root — lib/ (api, git, localtime, markdown, repos, sshgate, sshkeys, tickets, tokens, transport, users), components/styles.hl; jsoncheck.hl removed (imported nowhere); import paths only. gates 200/0, 46/0, 44/0; real-data reads + writes identicalmre
- fdfb4b1bgitoria: Hybriel master 06617221 (plugin allocators 3a781359 + 413f60e4, mpackdb 2cb7ae5e, http1 773de63e); gates 200/0, 46/0, 44/0mre
- 5b46ac84antcolony#40: LOG.md — missions 069/072 are antcolony missions (report paths on Byrodin)mre
- 5602ff41gitoria: Hybriel master 190aa11d (fc838894 GC correctness, #127 mountKids by reference, #126, #48) — tracker README flat; gates 200/0, 46/0, 44/0mre
- e85eaf01gitoria: 069 round 2 — hybriel 1a096ad3 not adopted (Markdown SSR still grows); browser gate waits for the server-side logout before restartmre
- 09ce4f3fgitoria: mission 069 re-vendor hybriel 8efba065 stopped (big SSR pages grow + slow down); lambda audit clean; old vendor keptmre
- 3dc43108antcolony#40: mission references point to the moved missionsmre
- 8d9450fdantcolony#40: history (LOG.md), worker briefs (missions/) and reports moved here from antcolony, numbered per project; old numbers in antcolony docs/mission-map.mdmre
- 205d5fe4gitoria: Hybriel master ff51cf46; ssh keys/tokens no double rows (session sync); gates follow #20mre
- 9b27cb26gitoria#21: installable app (manifest, service worker, offline start page), own iconmre
- 68dcb603deploy.sh: back up live storage/.sessions/.env before every deploy (newest 5 kept)mre
- e2deed6dgitoria#20: "Add code" only on the Code page of an empty repository, no collapsiblemre
- 8bb97ffddeploy.sh: never send .git or .gitignore to Byrodinmre
- fd981932State of 2026-09-27; bin/ no longer tracked (Hybriel commit is in README)mre
- 4a2d7125initial commitmre