timestamp tsr save

(timestamp-tsr-save filename tsr)

timestamp-tsr-save save timestamp response (TSR) to file.

Parameter	Description
filename	Filename for which TSR is written (.tsr is appended)
tsr	Timestamp response

Example

Example 1, as used in the Timestamp response verification piece of modules/timestamp/timestamp.scm

(let* ((tsq (timestamp-tsq-generate filename))
       (tsr (timestamp-tsr-request tsq)))
  (if (and tsq tsr (timestamp-tsr-granted? tsr)
           (fx= (timestamp-tsq-getnonce tsq) (timestamp-tsr-getnonce tsr))
           (equal? (timestamp-tsq-getmessage tsq) (timestamp-tsr-getmessage tsr)))
    (if (timestamp-tsr-save filename tsr)
      tsr
      #f
    )
    #f
  )
)