blob: d364c3ea33c8f33ab12ded9fd534cfcabc2b63fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
When the db library is /dbLib/ {
set db [__db]
Wish the web server handles route "/atomicallys" with handler {
set atomicallys [$dbLib atomicallys $db]
html [subst {
<html>
<head>
<link rel="stylesheet" href="/style.css">
<title>Atomicallys</title>
</head>
<h1>Atomicallys</h1>
<ol>
[join [lmap atomicallyObj $atomicallys {
lassign $atomicallyObj key latestConvergedNumber versionCount
subst {<li><strong>$key</strong>: latest converged version=$latestConvergedNumber, allVersions length=$versionCount</li>}
}] "\n"]
</ol>
</html>
}]
}
}
|
