You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
46 lines
1.9 KiB
Common Lisp
46 lines
1.9 KiB
Common Lisp
;;; web.lisp
|
|
|
|
(in-package :seanut)
|
|
|
|
(eval-when (:compile-toplevel)
|
|
(declaim (inline json-request format-url generate-authorization download-media)))
|
|
|
|
(defun generate-authorization (token)
|
|
"generates a properly formatted authorization header"
|
|
(format nil *authorization-format*
|
|
(seanut-version) (uiop:hostname) (md5-string (uiop:hostname))
|
|
(seanut-version) token))
|
|
|
|
(defun format-url (domain slug &rest args)
|
|
"formats DOMAIN into a url, ensures we include the url scheme
|
|
|
|
SLUG is a format-coded string that represents the path for the query
|
|
ARGS are the arguments for the SLUG format string"
|
|
(format nil "~:[https://~;~]~A/~A"
|
|
(uiop:string-prefix-p "https://" domain)
|
|
domain (apply #'format `(nil ,slug ,@args))))
|
|
|
|
(defun json-request (url auth &key (method :get) extra-headers content)
|
|
"makes a request to URL, using AUTH as the X-Emby-Authorization header and METHOD as the http method (defaults to get) and parses the returned value with jzon:parse
|
|
|
|
if EXTRA-HEADERS is non-nil, includes them in the headers alongside the X-Emby-Authorization one
|
|
if CONTENT is non-nil, passes that along to the request"
|
|
(parse (dex:request url :method method
|
|
:content content
|
|
:headers `(("X-Emby-Authorization" . ,auth)
|
|
,@extra-headers))))
|
|
|
|
(defun run-search-query (domain auth type name)
|
|
(gethash "Items"
|
|
(json-request (format-url domain "Items?fields=Path&includeItemTypes=~A&recursive=true&searchTerm=~A"
|
|
type name)
|
|
auth)))
|
|
|
|
(defun download-media (path url auth)
|
|
"downloads the media at URL, using HEADER as the authorization header.
|
|
|
|
if DESTINATION is non-nil, dumps media into that directory, otherwise it uses CWD"
|
|
(dex:fetch url path
|
|
:if-exists nil
|
|
:headers `(("X-Emby-Authorization" . ,auth))))
|