@@ -73,10 +73,18 @@
     (sqlite3:finalize! qry1)
     (sqlite3:finalize! qry2)
     (sqlite3:finalize! qry3)
     res))
 
+(define (portlogger:get-prev-used-port db)
+  (sqlite3:fold-row
+   (lambda (var curr)
+     (or curr var curr))
+   #f
+   db
+   "SELECT (port) FROM ports WHERE state='released' LIMIT 1;"))
+
 ;; set port to "released", "failed" etc.
 ;; 
 (define (portlogger:set-port db portnum value)
   (sqlite3:execute db "UPDATE ports SET state=?,update_time=strftime('%s','now') WHERE port=?;" value portnum))