Megatest

Diff
Login

Differences From Artifact [43fb4b6c81]:

To Artifact [fef313a73a]:


5895
5896
5897
5898
5899
5900
5901
5902
5903


5904

5905
5906
5907
5908
5909
5895
5896
5897
5898
5899
5900
5901


5902
5903

5904
5905
5906
5907
5908
5909







-
-
+
+
-
+






(define (db:get-servers-info dbstruct apath)
  (db:with-db
   dbstruct
   #f #f
   (lambda (db)
     (sqlite3:fold-row
      (lambda (res count)
	(max res count))
      (lambda (res . row)
	(cons row res))
      0
      '()
      db
      "SELECT * FROM servers WHERE apath=?;"
      apath))))

)