code wiki / _hdl_build / nx_cms_multisite_gate.nx
`nx_cms_multisite_gate.nx` source

↩ module page · 373 lines · 15649 B
1// nx_cms_multisite_gate.nx -- CMS C7 GATE (re-runnable, evidence-driven): MULTI-SITE ISOLATION.
2// The deployment model is one admin daemon PER SITE (single responsibility, rule 9: a daemon does
3// one site's editing; the sites-daemon front door routes by host). This gate boots TWO real admin
4// daemons on two site dirs with different credentials and PROVES the isolation properties at the
5// wire: distinct seeds serve, site A's session is worthless at site B, A's password fails on B,
6// editing A never perturbs B's published bytes, and a cross-site save with A's session+csrf is
7// refused by B. Appends "CMSGATE row=nx_cms_multisite ... verdict=PASS|FAIL". Exit 0 iff all pass.
8// license_tier: ORIGINAL
9import "nx_cms_store.nx"
10import "nx_connect.nx"   // bounded connect: a raw sys_connect hangs ~127s on a black-holed host
11import "nx_sha256.nx"
12import "nx_syscalls.nx"
13import "_hdl_build/nx_kill_portable.nx"
14
15const MS_PORT_A: i64 = 8083
16const MS_PORT_B: i64 = 8084
17
18// Shared admin-path resolver -- the exec site lives in ms_boot, a DIFFERENT function from the
19// availability probe, so the path must be re-derived rather than passed as a local. Prefers the
20// runner's real output dir; falls back to /tmp for an older runner on another host.
21func ms_admin_path() -> *u8 {
  let f: i64 = sys_openat_rd("buildroot/_build/nx_cms_admin.sov.elf" as *u8)
  if f >= 0 { sys_close(f); return "buildroot/_build/nx_cms_admin.sov.elf" as *u8 }
  return "/tmp/nx_cms_admin.sov.elf" as *u8
25}
26
27func ms_w(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 }
28func ms_len(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} return n }
29func ms_cat(dst: *u8, off: i64, s: *u8) -> i64 {
  var o: i64 = off
  var k: i64 = 0
  while s[k] != (0 as u8) { dst[o] = s[k]; o = o + 1; k = k + 1 }
  return o
34}
35func ms_catn(dst: *u8, off: i64, s: *u8, n: i64) -> i64 {
  var o: i64 = off
  var k: i64 = 0
  while k < n { dst[o] = s[k]; o = o + 1; k = k + 1 }
  return o
40}
41func ms_index(hay: *u8, n: i64, needle: *u8) -> i64 {
  let nl: i64 = ms_len(needle)
  var i: i64 = 0
  while i + nl <= n {
      var q: i64 = 0
      var ok: i64 = 1
      while q < nl { if (hay[i+q] as i64) != (needle[q] as i64) { ok = 0; q = nl } q = q + 1 }
      if ok == 1 { return i }
      i = i + 1
  }
  return 0 - 1
52}
53func ms_has(hay: *u8, n: i64, needle: *u8) -> i64 { if ms_index(hay, n, needle) >= 0 { return 1 } return 0 }
54
55// port-parametrized client (two daemons under test)
56func ms_http(port: i64, req: *u8, rl: i64, resp: *u8, cap: i64) -> i64 {
  let fd: i64 = sys_socket(2, 1, 0)
  if fd < 0 { return 0 - 1 }
  let addr: *u8 = sys_mmap(16)
  addr[0] = 2 as u8; addr[1] = 0 as u8
  addr[2] = ((port >> 8) & 0xff) as u8
  addr[3] = (port & 0xff) as u8
  addr[4] = 127 as u8; addr[5] = 0 as u8; addr[6] = 0 as u8; addr[7] = 1 as u8
  var zi: i64 = 8
  while zi < 16 { addr[zi] = 0 as u8; zi = zi + 1 }
  if nx_connect_bounded(fd, addr, 16, NX_CONN_DEFAULT_MS) < 0 { sys_close(fd); return 0 - 1 }
  var off: i64 = 0
  var go: i64 = 1
  while go == 1 {
      go = 0
      if off < rl {
          let w: i64 = sys_write(fd, (req + off) as *u8, rl - off)
          if w > 0 { off = off + w; go = 1 }
      }
  }
  sys_set_socket_timeout(fd, 10)
  var total: i64 = 0
  go = 1
  while go == 1 {
      go = 0
      if total < cap {
          let r: i64 = sys_read(fd, (resp + total) as *u8, cap - total)
          if r > 0 { total = total + r; go = 1 }
      }
  }
  sys_close(fd)
  return total
88}
89
90func ms_post(req: *u8, path: *u8, cookie: *u8, body: *u8) -> i64 {
  var o: i64 = ms_cat(req, 0, "POST " as *u8)
  o = ms_cat(req, o, path)
  o = ms_cat(req, o, " HTTP/1.1\r\nHost: gate\r\nContent-Type: application/x-www-form-urlencoded\r\n" as *u8)
  if (cookie[0] as i64) != 0 {
      o = ms_cat(req, o, "Cookie: nsess=" as *u8)
      o = ms_catn(req, o, cookie, 32)
      o = ms_cat(req, o, "\r\n" as *u8)
  }
  o = ms_cat(req, o, "Content-Length: " as *u8)
  let bl: i64 = ms_len(body)
  let t: *u8 = sys_mmap(24)
  var m: i64 = bl
  var k: i64 = 0
  if m == 0 { t[0] = 48 as u8; k = 1 }
  while m > 0 { t[k] = (48 + (m % 10)) as u8; m = m / 10; k = k + 1 }
  var i: i64 = 0
  while i < k { req[o] = t[k-1-i]; o = o + 1; i = i + 1 }
  o = ms_cat(req, o, "\r\n\r\n" as *u8)
  o = ms_cat(req, o, body)
  return o
111}
112func ms_get(req: *u8, path: *u8, cookie: *u8) -> i64 {
  var o: i64 = ms_cat(req, 0, "GET " as *u8)
  o = ms_cat(req, o, path)
  o = ms_cat(req, o, " HTTP/1.1\r\nHost: gate\r\n" as *u8)
  if (cookie[0] as i64) != 0 {
      o = ms_cat(req, o, "Cookie: nsess=" as *u8)
      o = ms_catn(req, o, cookie, 32)
      o = ms_cat(req, o, "\r\n" as *u8)
  }
  o = ms_cat(req, o, "\r\n" as *u8)
  return o
123}
124
125func ms_row(id: i64, ok: i64, what: *u8) -> i64 {
  ms_w("MSROW " as *u8)
  let d: *u8 = sys_mmap(8); d[0] = (48 + id/10) as u8; d[1] = (48 + id%10) as u8; d[2] = 32 as u8; d[3] = 0 as u8
  ms_w(d)
  if ok == 1 { ms_w("PASS " as *u8) }
  if ok == 0 { ms_w("FAIL " as *u8) }
  ms_w(what); ms_w("\n" as *u8)
  return ok
133}
134
135func ms_mkdir(path: *u8, mode: i64) -> i64 {
  let nb: *i64 = sys_mmap(8) as *i64
  nb[0] = 258
  return __syscall(nb[0], 0 - 100, path, mode, 0, 0, 0)
139}
140
141// write a sha256 pw file for a site
142func ms_pwfile(path: *u8, pw: *u8, pwlen: i64) -> i64 {
  let dig: *u8 = sys_mmap(32)
  sha256_digest(pw, pwlen, dig)
  let hexs: *u8 = sys_mmap(80)
  let hxc: *u8 = "0123456789abcdef" as *u8
  var i: i64 = 0
  while i < 32 {
      hexs[i*2] = hxc[((dig[i] as i64) >> 4) & 15]
      hexs[i*2+1] = hxc[(dig[i] as i64) & 15]
      i = i + 1
  }
  let pf: i64 = sys_openat_wr(path, 0x1a4)
  if pf < 0 { return 0 }
  sys_write(pf, hexs, 64)
  sys_close(pf)
  return 1
158}
159
160// boot one admin daemon (already-built binary) on (port, site)
161func ms_boot(portstr: *u8, site: *u8, logpath: *u8) -> i64 {
  let pid: i64 = sys_fork()
  if pid == 0 {
      let lg: i64 = sys_openat_wr(logpath, 0x1a4)
      if lg >= 0 { sys_dup3(lg, 1, 0); sys_dup3(lg, 2, 0) }
      let argvv: *i64 = sys_mmap(8*6) as *i64
      argvv[0] = ms_admin_path() as i64
      argvv[1] = portstr as i64
      argvv[2] = site as i64
      argvv[3] = "99" as *u8 as i64
      argvv[4] = 0
      let envp: *i64 = sys_mmap(16) as *i64
      envp[0] = 0
      sys_execve(ms_admin_path(), argvv, envp)
      sys_exit(127)
  }
  return pid
178}
179
180func main() -> i64 {
  // ---- site A = andelinwest fixtures; site B = a DISTINCT site written here ----
  ms_mkdir("/tmp/_cms_ms_a" as *u8, 0x1ed)
  ms_mkdir("/tmp/_cms_ms_b" as *u8, 0x1ed)
  cst_copy("knowledge/cms/andelinwest/template.html" as *u8, "/tmp/_cms_ms_a/template.html" as *u8)
  cst_copy("knowledge/cms/andelinwest/content.txt" as *u8, "/tmp/_cms_ms_a/content.txt" as *u8)
  cst_copy("knowledge/cms/andelinwest/template.html" as *u8, "/tmp/_cms_ms_b/template.html" as *u8)
  sys_renameat("/tmp/_cms_ms_a/draft.txt" as *u8, "/tmp/_cms_ms_a/draft.stale" as *u8)
  sys_renameat("/tmp/_cms_ms_b/draft.txt" as *u8, "/tmp/_cms_ms_b/draft.stale" as *u8)
  let bcontent: *u8 = "@hero_title\nBryce Canyon Tours\n@hero_tag\nGuided rim-to-rim adventures.\n@note_html\n<p>Season opens in May.</p>\n@foot\nSite B fixture.\n" as *u8
  let bf: i64 = sys_openat_wr("/tmp/_cms_ms_b/content.txt" as *u8, 0x1a4)
  sys_write(bf, bcontent, ms_len(bcontent))
  sys_close(bf)
  ms_pwfile("/tmp/_cms_ms_a/admin_pw.sha256" as *u8, "site-a-pw-1" as *u8, 11)
  ms_pwfile("/tmp/_cms_ms_b/admin_pw.sha256" as *u8, "site-b-pw-1" as *u8, 11)
195
  // ---- rebuild the admin once, boot BOTH ----
  let bpid: i64 = sys_fork()
  if bpid == 0 {
      let dn: i64 = sys_openat_wr("/dev/null" as *u8, 0x1a4)
      if dn >= 0 { sys_dup3(dn, 1, 0); sys_dup3(dn, 2, 0) }
      let bargv: *i64 = sys_mmap(32) as *i64
      bargv[0] = "_offc/nx_sov_build_run.elf" as *u8 as i64
      bargv[1] = "nx_cms_admin" as *u8 as i64
      bargv[2] = 0
      let benvp: *i64 = sys_mmap(16) as *i64
      benvp[0] = 0
      sys_execve("_offc/nx_sov_build_run.elf" as *u8, bargv, benvp); sys_exit(127)
  }
  let bst: *i64 = sys_mmap(16) as *i64
  sys_wait4(bpid, bst, 0)
  // CALLER-GAP FIX 2026-08-01 (seq1267 class, left behind in 11 cms gates): the runner emits
  // buildroot/_build/<t>.sov.elf under the no-/tmp doctrine while this probed /tmp. Proven by control:
  // buildroot/_build/nx_cms_admin.sov.elf = 208962B, /tmp/nx_cms_admin.sov.elf unreadable.
  var bchk: i64 = sys_openat_rd("buildroot/_build/nx_cms_admin.sov.elf" as *u8)
  var badm: *u8 = "buildroot/_build/nx_cms_admin.sov.elf" as *u8
  if bchk < 0 { bchk = sys_openat_rd("/tmp/nx_cms_admin.sov.elf" as *u8); badm = "/tmp/nx_cms_admin.sov.elf" as *u8 }
  if bchk < 0 { ms_w("CMSGATE row=nx_cms_multisite ADMIN-BUILD-MISSING (probed buildroot/_build AND /tmp)\n" as *u8); sys_exit(1) }
  sys_close(bchk)
  let pid_a: i64 = ms_boot("8083" as *u8, "/tmp/_cms_ms_a" as *u8, "/tmp/_cms_admin_ms_a.log" as *u8)
  let pid_b: i64 = ms_boot("8084" as *u8, "/tmp/_cms_ms_b" as *u8, "/tmp/_cms_admin_ms_b.log" as *u8)
221
  let req: *u8 = sys_mmap(262144)
  let resp: *u8 = sys_mmap(524288)
  let nocookie: *u8 = sys_mmap(8)
  nocookie[0] = 0 as u8
  let sess_a: *u8 = sys_mmap(64)
  sess_a[0] = 0 as u8
  let csrf_a: *u8 = sys_mmap(64)
  csrf_a[0] = 0 as u8
230
  // M0: both serve their DISTINCT seeds
  var rn: i64 = 0 - 1
  var tries: i64 = 0
  while tries < 50 {
      let rl0: i64 = ms_get(req, "/" as *u8, nocookie)
      rn = ms_http(MS_PORT_A, req, rl0, resp, 524287)
      if rn > 0 { tries = 50 }
      if rn <= 0 { sys_sleep_ms(100); tries = tries + 1 }
  }
  var a_ok: i64 = 0
  if rn > 0 { if ms_has(resp, rn, "Andelin West Law" as *u8) == 1 { if ms_has(resp, rn, "Bryce Canyon Tours" as *u8) == 0 { a_ok = 1 } } }
  tries = 0
  rn = 0 - 1
  while tries < 50 {
      let rl1: i64 = ms_get(req, "/" as *u8, nocookie)
      rn = ms_http(MS_PORT_B, req, rl1, resp, 524287)
      if rn > 0 { tries = 50 }
      if rn <= 0 { sys_sleep_ms(100); tries = tries + 1 }
  }
  var b_ok: i64 = 0
  if rn > 0 { if ms_has(resp, rn, "Bryce Canyon Tours" as *u8) == 1 { if ms_has(resp, rn, "Andelin West Law" as *u8) == 0 { b_ok = 1 } } }
  var pass: i64 = 0
  var rows: i64 = 0
  var ok: i64 = 0
  if a_ok == 1 { if b_ok == 1 { ok = 1 } }
  rows = rows + 1; pass = pass + ms_row(0, ok, "both sites serve distinct seeds" as *u8)
257
  // M1: login to A -> session + csrf
  var rl: i64 = ms_post(req, "/admin/login" as *u8, nocookie, "pw=site-a-pw-1" as *u8)
  rn = ms_http(MS_PORT_A, req, rl, resp, 524287)
  ok = 0
  if rn > 0 { if ms_has(resp, rn, "303" as *u8) == 1 {
      let sp: i64 = ms_index(resp, rn, "nsess=" as *u8)
      if sp >= 0 {
          var m2: i64 = 0
          while m2 < 32 { sess_a[m2] = resp[sp+6+m2]; m2 = m2 + 1 }
          sess_a[32] = 0 as u8
          ok = 1
      }
  } }
  if ok == 1 {
      rl = ms_get(req, "/admin" as *u8, sess_a)
      rn = ms_http(MS_PORT_A, req, rl, resp, 524287)
      ok = 0
      let cp: i64 = ms_index(resp, rn, "name=\"csrf\" value=\"" as *u8)
      if cp >= 0 {
          var m3: i64 = 0
          while m3 < 32 { csrf_a[m3] = resp[cp+19+m3]; m3 = m3 + 1 }
          csrf_a[32] = 0 as u8
          ok = 1
      }
  }
  rows = rows + 1; pass = pass + ms_row(1, ok, "site A login + editor + csrf" as *u8)
284
  // M2: A's session is WORTHLESS at B (login page only, no editor fields)
  rl = ms_get(req, "/admin" as *u8, sess_a)
  rn = ms_http(MS_PORT_B, req, rl, resp, 524287)
  ok = 0
  if rn > 0 { if ms_has(resp, rn, "Editor Login" as *u8) == 1 { if ms_has(resp, rn, "name=\"hero_title\"" as *u8) == 0 { ok = 1 } } }
  rows = rows + 1; pass = pass + ms_row(2, ok, "A session rejected by B (login only)" as *u8)
291
  // M3: A's password fails on B
  rl = ms_post(req, "/admin/login" as *u8, nocookie, "pw=site-a-pw-1" as *u8)
  rn = ms_http(MS_PORT_B, req, rl, resp, 524287)
  ok = 0
  if rn > 0 { if ms_has(resp, rn, "403" as *u8) == 1 { ok = 1 } }
  rows = rows + 1; pass = pass + ms_row(3, ok, "A password refused by B 403" as *u8)
298
  // M4: edit A -> A live
  let body4: *u8 = sys_mmap(4096)
  var b4: i64 = ms_cat(body4, 0, "csrf=" as *u8)
  b4 = ms_catn(body4, b4, csrf_a, 32)
  b4 = ms_cat(body4, b4, "&hero_title=Edited+Only+A" as *u8)
  body4[b4] = 0 as u8
  rl = ms_post(req, "/admin/save" as *u8, sess_a, body4)
  rn = ms_http(MS_PORT_A, req, rl, resp, 524287)
  ok = 0
  if rn > 0 { if ms_has(resp, rn, "303" as *u8) == 1 {
      let rl4: i64 = ms_get(req, "/" as *u8, nocookie)
      let rn4: i64 = ms_http(MS_PORT_A, req, rl4, resp, 524287)
      if rn4 > 0 { if ms_has(resp, rn4, "Edited Only A" as *u8) == 1 { ok = 1 } }
  } }
  rows = rows + 1; pass = pass + ms_row(4, ok, "A edit publishes on A" as *u8)
314
  // M5: B's published bytes UNPERTURBED by A's edit
  rl = ms_get(req, "/" as *u8, nocookie)
  rn = ms_http(MS_PORT_B, req, rl, resp, 524287)
  ok = 0
  if rn > 0 { if ms_has(resp, rn, "Edited Only A" as *u8) == 0 { if ms_has(resp, rn, "Bryce Canyon Tours" as *u8) == 1 { ok = 1 } } }
  rows = rows + 1; pass = pass + ms_row(5, ok, "B page unperturbed by A's edit" as *u8)
321
  // M6: cross-site save: A's session+csrf against B -> refused
  rl = ms_post(req, "/admin/save" as *u8, sess_a, body4)
  rn = ms_http(MS_PORT_B, req, rl, resp, 524287)
  ok = 0
  if rn > 0 { if ms_has(resp, rn, "403" as *u8) == 1 {
      let rl6: i64 = ms_get(req, "/" as *u8, nocookie)
      let rn6: i64 = ms_http(MS_PORT_B, req, rl6, resp, 524287)
      if rn6 > 0 { if ms_has(resp, rn6, "Edited Only A" as *u8) == 0 { ok = 1 } }
  } }
  rows = rows + 1; pass = pass + ms_row(6, ok, "cross-site save A->B refused, B intact" as *u8)
332
  // ---- teardown both ----
  nxk_kill(pid_a, 9)
  nxk_kill(pid_b, 9)
  let stbuf: *i64 = sys_mmap(16) as *i64
  sys_wait4(pid_a, stbuf, 0)
  sys_wait4(pid_b, stbuf, 0)
339
  var verdict: *u8 = "FAIL" as *u8
  if pass == rows { verdict = "PASS" as *u8 }
  let line: *u8 = sys_mmap(512)
  var lo: i64 = ms_cat(line, 0, "CMSGATE row=nx_cms_multisite rows=" as *u8)
  let t2: *u8 = sys_mmap(24)
  var mm: i64 = rows
  var kk: i64 = 0
  if mm == 0 { t2[0] = 48 as u8; kk = 1 }
  while mm > 0 { t2[kk] = (48 + (mm % 10)) as u8; mm = mm / 10; kk = kk + 1 }
  var ii: i64 = 0
  while ii < kk { line[lo] = t2[kk-1-ii]; lo = lo + 1; ii = ii + 1 }
  lo = ms_cat(line, lo, " pass=" as *u8)
  mm = pass; kk = 0
  if mm == 0 { t2[0] = 48 as u8; kk = 1 }
  while mm > 0 { t2[kk] = (48 + (mm % 10)) as u8; mm = mm / 10; kk = kk + 1 }
  ii = 0
  while ii < kk { line[lo] = t2[kk-1-ii]; lo = lo + 1; ii = ii + 1 }
  lo = ms_cat(line, lo, " verdict=" as *u8)
  lo = ms_cat(line, lo, verdict)
  lo = ms_cat(line, lo, " epoch=" as *u8)
  mm = sys_now_realtime_sec(); kk = 0
  if mm == 0 { t2[0] = 48 as u8; kk = 1 }
  while mm > 0 { t2[kk] = (48 + (mm % 10)) as u8; mm = mm / 10; kk = kk + 1 }
  ii = 0
  while ii < kk { line[lo] = t2[kk-1-ii]; lo = lo + 1; ii = ii + 1 }
  line[lo] = 10 as u8
  lo = lo + 1
  sys_write(1, line, lo)
  let gf: i64 = sys_openat_append("knowledge/status/cms_gate.log" as *u8, 0x1a4)
  if gf >= 0 { sys_write(gf, line, lo); sys_close(gf) }
  if pass == rows { sys_exit(0) }
  sys_exit(1)
  return 1
373}
nx_cms_multisite_gate.nx source

`nx_cms_multisite_gate.nx` source
