gistfile1.scm

;;; Collect Postgresql statistics

(use postgresql)

(define connection-string (make-parameter '((host . "<ip>")
                                            (user . "<user here>")
                                            (dbname . "<db name here>"))))

(define conn (connect (connection-string)))

(define (get-stats)
  (row-map (lambda (x)
             (print x)) (query conn "select sum(xact_commit) from pg_stat_database"))
  (sleep 5)
  (get-stats))

(get-stats)

(disconnect conn)