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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
lib.osclock.ctime_r(&time, &tstr[0])
var body = data.view.conf_sec {
lastreset = pstr {
ptr = &tstr[0], ct = lib.str.sz(&tstr[0])
}
}
var a: lib.str.acc a:init(768) defer a:free()
if co.srv.cfg.credmgd then
var new = co:pgetv('new')
if not new then
body:append(&a)
var credmgr = data.view.conf_sec_credmg {
credlist = pstr{'',0};
}
var creds = co.srv:auth_enum_uid(uid)
if creds.ct > 0 then defer creds:free()
var cl: lib.str.acc cl:init(256)
for i=0, creds.ct do var c = creds(i).ptr
if not c.blacklist then
cl:lpush('<option value="'):shpush(c.aid):lpush('"> ['):push(c.kind,0):lpush('] '):push(c.comment,0)
if c.netmask.pv ~= 0 then
-- push string rep
end
cl:lpush('</option>')
end
end
credmgr.credlist = cl:finalize()
end
credmgr:append(&a)
if credmgr.credlist.ct > 0 then credmgr.credlist:free() end
else
if new:cmp(lib.str.plit'pw') then
var d: data.view.conf_sec_pwnew
var time = lib.osclock.time(nil)
var timestr: int8[26] lib.osclock.ctime_r(&time, ×tr[0])
var cmt: lib.str.acc
cmt:init(48):lpush('enrolled over http on '):push(×tr[0],0)
d.comment = cmt:finalize()
var st = d:tostr()
d.comment:free()
return st
elseif new:cmp(lib.str.plit'challenge') then
-- we're going to break the rules a bit and do database munging from
-- the rendering code, because doing otherwise in this case would be
-- genuinely nightmarish
elseif new:cmp(lib.str.plit'otp') then
elseif new:cmp(lib.str.plit'api') then
|
|
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
lib.osclock.ctime_r(&time, &tstr[0])
var body = data.view.conf_sec {
lastreset = pstr {
ptr = &tstr[0], ct = lib.str.sz(&tstr[0])
}
}
var a = co:stra(768) -- defer a:free()
if co.srv.cfg.credmgd then
var new = co:pgetv('new')
if not new then
body:append(&a)
var credmgr = data.view.conf_sec_credmg {
credlist = pstr{'',0};
}
var creds = co.srv:auth_enum_uid(uid)
if creds.ct > 0 then defer creds:free()
var cl = co:stra(256)
for i=0, creds.ct do var c = creds(i).ptr
if not c.blacklist then
cl:lpush('<option value="'):shpush(c.aid):lpush('"> ['):push(c.kind,0):lpush('] '):push(c.comment,0)
if c.netmask.pv ~= 0 then
-- push string rep
end
cl:lpush('</option>')
end
end
credmgr.credlist = cl:finalize()
end
credmgr:append(&a)
--if credmgr.credlist.ct > 0 then credmgr.credlist:free() end
else
if new:cmp(lib.str.plit'pw') then
var d: data.view.conf_sec_pwnew
var time = lib.osclock.time(nil)
var timestr: int8[26] lib.osclock.ctime_r(&time, ×tr[0])
var cmt = co:stra(48)
cmt:lpush('enrolled over http on '):push(×tr[0],0)
d.comment = cmt:finalize()
var st = d:poolstr(&co.srv.pool)
--d.comment:free()
return st
elseif new:cmp(lib.str.plit'challenge') then
-- we're going to break the rules a bit and do database munging from
-- the rendering code, because doing otherwise in this case would be
-- genuinely nightmarish
elseif new:cmp(lib.str.plit'otp') then
elseif new:cmp(lib.str.plit'api') then
|