reorganized things a bit
a. fox
2 years ago
parent
303d2d242f
commit
a839ca60b0
@ -0,0 +1,54 @@
|
||||
;;; auth.lisp
|
||||
|
||||
(in-package :seanut)
|
||||
|
||||
(defun get-access-token (domain options)
|
||||
(if (getf options :quick-connect-p)
|
||||
|
||||
;; go through the whole quick connect rigamarole
|
||||
(quick-connect-dance domain)
|
||||
|
||||
;; authenticates the user via username and password
|
||||
(gethash "AccessToken"
|
||||
(json-request (format-url domain "Users/AuthenticateByName")
|
||||
(generate-authorization "")
|
||||
:method :post
|
||||
:content `(("Username" . ,(getf options :username))
|
||||
("Pw" . ,(getf options :password)))))))
|
||||
|
||||
(defun quick-connect-dance (domain)
|
||||
(let* ((auth (generate-authorization ""))
|
||||
(qc-session (handler-case
|
||||
(json-request (format-url domain "QuickConnect/Initiate") auth)
|
||||
(dex:http-request-unauthorized ()
|
||||
(error "QuickConnect not enabled on this server.")))))
|
||||
;; initiate quick connect session
|
||||
;; display code to user
|
||||
;; sleep 5 seconds
|
||||
;; poll QuickConnect/Connect?secret=~A
|
||||
;; until "Authenticated" is t or we've looped 20 times (~1min)
|
||||
;; if we time out signal an error
|
||||
;; else POST to Users/AuthenticateWithQuickConnect with "Secret"
|
||||
;; return "AccessToken"
|
||||
(format t "QuickConnect Code: ~A~%" (gethash "Code" qc-session))
|
||||
(force-output)
|
||||
(loop :with counter := 1
|
||||
:with authed
|
||||
|
||||
:until (or authed (> counter 20))
|
||||
:do
|
||||
(sleep 5)
|
||||
(let ((state (json-request (format-url domain "QuickConnect/Connect?secret=~A"
|
||||
(gethash "Secret" qc-session))
|
||||
auth)))
|
||||
(setf authed (gethash "Authenticated" state)
|
||||
counter (1+ counter)))
|
||||
|
||||
:finally
|
||||
(when (> counter 20)
|
||||
(error "QuickConnect session timed out.")))
|
||||
(gethash "AccessToken"
|
||||
(json-request (format-url domain "Users/AuthenticateWithQuickConnect") auth
|
||||
:method :post
|
||||
:content (jzon:stringify (alist-hash-table `(("Secret" . ,(gethash "Secret" qc-session)))))
|
||||
:extra-headers '(("Content-Type" . "application/json"))))))
|
||||
@ -0,0 +1,50 @@
|
||||
;;; command-line.lisp
|
||||
|
||||
(in-package :seanut)
|
||||
|
||||
(define-opts
|
||||
(:name :help
|
||||
:short #\h
|
||||
:long "help"
|
||||
:description "prints this help")
|
||||
(:name :version
|
||||
:short #\v
|
||||
:long "version"
|
||||
:description "prints the version")
|
||||
(:name :assume-yes
|
||||
:long "no-prompt"
|
||||
:description "assumes yes for all download prompts")
|
||||
(:name :quick-connect-p
|
||||
:short #\q
|
||||
:long "quick-connect"
|
||||
:description "alternative login method to providing username/password - times out after ~1min")
|
||||
(:name :output
|
||||
:short #\o
|
||||
:long "output"
|
||||
:meta-var "DIR"
|
||||
:arg-parser #'uiop:ensure-directory-pathname
|
||||
:description "location to save downloaded media")
|
||||
(:name :media-type
|
||||
:short #\m
|
||||
:long "media-type"
|
||||
:meta-var "TYPE"
|
||||
:arg-parser #'validate-media-type
|
||||
:description "media type to base our query on")
|
||||
(:name :username
|
||||
:short #\u
|
||||
:long "username"
|
||||
:meta-var "USERNAME"
|
||||
:arg-parser #'identity
|
||||
:description "username for the jellyfin server")
|
||||
(:name :password
|
||||
:short #\p
|
||||
:long "password"
|
||||
:meta-var "PASSOWRD"
|
||||
:arg-parser #'identity
|
||||
:description "passowrd for the jellyfin server")
|
||||
(:name :season-number
|
||||
:short #\s
|
||||
:long "season"
|
||||
:meta-var "SEASON"
|
||||
:arg-parser #'maybe-parse-integer
|
||||
:description "specify specific season to download, if downloading a show"))
|
||||
@ -0,0 +1,45 @@
|
||||
;;; 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))))
|
||||
Loading…
Reference in New Issue