334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
|
(sqlite3:execute db "UPDATE dbs SET host_port=?,lease_thru=? WHERE dbname=?"
(conc host ":" port)
(+ (current-seconds) lease)
dbfname)
#t)
#f))
(#f (sqlite3:execute db "INSERT INTO dbs (dbname,dbfile,dbtype,host_port,lease_thru) VALUES (?,?,?,?,?)"
"captain" dbfname "captain" host-port (+ (current-seconds) lease)))
(else (print "ERROR: Unrecognised result from fold-row")
(exit 1)))))))
;;======================================================================
;; network utilities
;;======================================================================
|
|
>
|
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
|
(sqlite3:execute db "UPDATE dbs SET host_port=?,lease_thru=? WHERE dbname=?"
(conc host ":" port)
(+ (current-seconds) lease)
dbfname)
#t)
#f))
(#f (sqlite3:execute db "INSERT INTO dbs (dbname,dbfile,dbtype,host_port,lease_thru) VALUES (?,?,?,?,?)"
"captain" dbfname "captain" host-port (+ (current-seconds) lease))
#t)
(else (print "ERROR: Unrecognised result from fold-row")
(exit 1)))))))
;;======================================================================
;; network utilities
;;======================================================================
|