(eval-when (:load-toplevel :execute)
  (format t "~&Loading dependencies...")
  (ql:quickload '(:alexandria :serapeum :fwoar.lisputils :drakma :flexi-streams :osicat :yason)))

(eval-when (:load-toplevel :execute)
  (format t "~&Loading dependencies...")
  (osicat-posix:setenv "CC" "/usr/bin/gcc")
  (ql:quickload :net.didierverna.clon))

(defpackage :ddclient-updater
  (:use :cl :alexandria :serapeum :fw.lu)
  (:export :update-domains))
(in-package :ddclient-updater)

(defparameter *update-url* "https://api.1984.is/1.0/freedns/?apikey=~a&domain=~a&ip=")

(defvar *http-stream* nil)

(defun update-domain (domain api-key)
  (let* ((url (format nil *update-url* api-key domain))
	 (drakma:*text-content-types* (acons "application" "json" drakma:*text-content-types*)))
    ;; todo: we probably want to read the stream in, because yason isn't completely robust against early termination
    (multiple-value-bind (data _ __ ___ ____ stream) (drakma:http-request url :close nil :stream *http-stream*)
      (declare (ignore _ __ ___ ____))
      (unless *http-stream*
	(setf *http-stream* stream))
      (with (result (yason:parse data))
	(values result
		(gethash "ok" result)
		(gethash "msg" result))))))

(defun update-domains (domains api-key)
  (mapcar (op (with-simple-restart (continue "Skip ~a" _1)
		(format t "~&Updating ~a...~%" _1)
		(prog1 (multiple-value-list (update-domain _1 api-key))
		  (sleep 1))))
	  domains))

(defpackage :ddclient-updater.main
  (:use :cl :alexandria :serapeum :fw.lu :net.didierverna.clon :ddclient-updater))
(in-package :ddclient-updater.main)
(import 'ddclient-updater::*http-stream*)

(defparameter *api-key* "rKOB3TrfjWfsUl6NpvN6A3vYTaQfdXgYTShDAFWI5rwHJKwFb0EyBT7Mt11YWrjV")
(defparameter *domains* '("srv2.elangley.org" "vpn.elangley.org" "files.elangley.org" "home.elangley.org"
			  "mycloud.elangley.org" "pbj.elangley.org" "readme.elangley.org"
			  "wiki.elangley.org"))

(defsynopsis ()
  )
(defun main ()
  (make-context)
  (unwind-protect (update-domains *domains* *api-key*)
    (when *http-stream*
      (finish-output *http-stream*)
      (close *http-stream*))))

(defun dump-image ()
  (dump "ddns-updater" main))