diff --git a/pkg/arvo/sys/lull.hoon b/pkg/arvo/sys/lull.hoon index 14d4b5b57..1ee65e361 100644 --- a/pkg/arvo/sys/lull.hoon +++ b/pkg/arvo/sys/lull.hoon @@ -1906,6 +1906,7 @@ [%private-keys ~] :: sub to privates [%public-keys ships=(set ship)] :: sub to publics [%rekey =life =ring] :: update private keys + [%ruin ships=(set ship)] :: pretend breach $>(%trim vane-task) :: trim state [%turf ~] :: view domains $>(%vega vane-task) :: report upgrade diff --git a/pkg/arvo/sys/vane/jael.hoon b/pkg/arvo/sys/vane/jael.hoon index 4274ecca8..737b794b3 100644 --- a/pkg/arvo/sys/vane/jael.hoon +++ b/pkg/arvo/sys/vane/jael.hoon @@ -489,6 +489,7 @@ :: [%trim p=@ud] :: %trim + ::TODO consider %ruin-ing long-offline comets +>.$ :: :: watch private keys @@ -521,6 +522,20 @@ =. moz [[hen %give %done ~] moz] $(tac message) == + :: + :: pretend ships breached + :: [%ruin ships=(set ship)] + :: + %ruin + ::NOTE we blast this out to _all_ known ducts, because the common + :: use case for this is comets, about who nobody cares. + =/ dus ~(key by yen.zim.pki) + =/ sus ~(. su hen now pki etn) + =/ sis ~(tap in ships.tac) + |- + ?~ sis (curd abet:sus) + =. sus (exec:sus dus %give %public-keys %breach i.sis) + $(sis t.sis) == :: ++ take