timestamp tsq save

(timestamp-tsq-save filename tsq)

timestamp-tsq-save saves a timestamp request to file.

Parameter	Description
filename	Filename for which TSQ is written (.tsq is appended)
tsq	Timestamp query

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
  )
)