Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun download-video (url &key cookie-jar)
- (let* ((page (multiple-value-list (dex:get url :cookie-jar cookie-jar)))
- (body (first page))
- (referer (quri:render-uri (fourth page)))
- (parsed (plump:parse body))
- (iframe-src (lquery:$ parsed "iframe" (first) (node) (attr :src)))
- (iframe-page (dex:get iframe-src
- :cookie-jar *cookie-jar*
- :headers '(("Referer" . referer))
- :verbose t)))
- referer))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement