adds some more details to :acme %dbug pokes

This commit is contained in:
Joe Bryan 2019-01-16 12:04:15 -05:00
parent 8b6b1918eb
commit ce2cab4da2

View File

@ -1160,15 +1160,25 @@
this
::
%dbug-account
~& [%private (ring:en:pem:pkcs1 key.act)]
~& [%public (pass:en:pem:pkcs1 key.act)]
~& registered=reg.act
~& [%public (pass:en:pem:pkcs1 key.act)]
~? !=(~ sek.key.act)
[%private (ring:en:pem:pkcs1 key.act)]
this
::
%dbug-certificate
?~ liv ~&(~ this)
~& [%key (ring:en:pem:pkcs8 key.u.liv)]
~& [%cert `wain`cer.u.liv]
~& [%expires exp.u.liv]
~& :- %domains
(join ', ' (turn ~(tap in dom.u.liv) |=(a=turf (join '.' a))))
this
::
%dbug-history
~& [%account-history act.hit]
~& [%config-history fig.hit]
~& [%failed-order-history fal.hit]
this
::
%init