SecretCtrl

Source code:

<d:when xmlns:a="http://www.askemos.org/2000/CoreAPI#" xmlns:d="http://www.askemos.org/2005/NameSpaceDSSSL/" test="(equal? (data (form-field &quot;action&quot; (current-node))) &quot;change-secret&quot;) ">
 <a:reply xmlns:a="http://www.askemos.org/2000/CoreAPI#" xmlns:d="http://www.askemos.org/2005/NameSpaceDSSSL/">
  <a:become>
   <d:copy-of select="(grove-root (current-node))"></d:copy-of>
  </a:become>
  <a:secret>
   <d:copy-of select="
(let ((new (data (form-field &apos;secret1 (current-node)))))
   (if (not (me (data (form-field &apos;secret (current-node))) &apos;affirm))
       (error &quot;wrong secret&quot;))
   (if (equal? new (data (form-field &apos;secret2 (current-node))))
       (literal (md5-digest new))
       (error &quot;secret and verification differ, try again&quot;))) "></d:copy-of>
  </a:secret>
 </a:reply>
</d:when>