diff --git a/app/ask.hoon b/app/ask.hoon index dfc9eb88d..444f382ad 100644 --- a/app/ask.hoon +++ b/app/ask.hoon @@ -13,7 +13,12 @@ ++ email @t -- !: -|_ {bow/bowl adr/(map email {time invited}) sos/(map bone sole-share) wom/(unit ship)} +|_ $: bow/bowl + adr/(map email {time invited}) + sos/(map bone sole-share) + wom/(unit ship) + admins/(set ship) + == ++ prompt ^- sole-prompt ?~ wom [& %ask-ship ":womb-ship? ~"] @@ -25,7 +30,7 @@ |= path ^- (quip {bone card} +>) ~| [%not-in-whitelist src.bow] - ?> (~(has in (sy ~zod our.bow ~wisdyr-holpeg ~)) src.bow) + ?> |((~(has in admins) src.bow) =(our.bow src.bow)) :_ +>.$(sos (~(put by sos) ost.bow *sole-share)) =- [(effect %mor pro+prompt -)]~ =+ all=adrs @@ -56,6 +61,11 @@ ;~(plug (cook crip (star next)) (easy ~)) == :: +++ poke-ask-admins + |= a/(set ship) + ?> =(our.bow src.bow) + `+>.$(admins a) +:: ++ poke-ask-mail |= ask/@t ^- (quip {bone card} +>) diff --git a/gen/ask/admins.hoon b/gen/ask/admins.hoon new file mode 100644 index 000000000..84c41aa87 --- /dev/null +++ b/gen/ask/admins.hoon @@ -0,0 +1,14 @@ +:: +:::: /hoon/release/hood/gen + :: +/? 310 +:: +:::: + !: +:- %say +|= $: {now/@da eny/@uvJ bec/beak} + {who/(list ship) $~} + == +:- %ask-admins ^- (set ship) +~? =(~ who) %admins-unset +(silt who)