fsbot2json.el

(require 'json)
(require 'subr-x)

(defun fix-string (s)
  (string-join
   (delq nil (mapcar (lambda (ch)
                       (encode-coding-char ch 'utf-8 'unicode))
                     s))))

(with-current-buffer (url-retrieve-synchronously
                      "http://gnufans.net/~fsbot/data/botbbdb")
  (goto-char (point-min))
  (re-search-forward "^$")
  (let ((entries nil))
    (condition-case err
        (while t
          (let* ((entry (read (current-buffer)))
                 (name (fix-string (elt entry 0)))
                 (data (elt entry 7))
                 (timestamp (cdr (assq 'timestamp data)))
                 (notes (let ((n (cdr (assq 'notes data))))
                          (if (stringp n)
                              n
                            (format "%s" n))))
                 (parsed (mapcar 'fix-string (read notes))))
            (push `((name . ,name)
                    (timestamp . ,timestamp)
                    (data . ,parsed))
                  entries)))
      (end-of-file
       nil))
    (write-region (json-encode entries)
                  nil
                  "/tmp/fsbot.json")))