Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.43 KB | None | 0 0
  1. (defun download-video (url &key cookie-jar)
  2.   (let* ((page (multiple-value-list (dex:get url :cookie-jar cookie-jar)))
  3.      (body (first page))
  4.      (referer (quri:render-uri (fourth page)))
  5.      (parsed (plump:parse body))
  6.      (iframe-src (lquery:$ parsed "iframe" (first) (node) (attr :src)))
  7.      (iframe-page (dex:get iframe-src
  8.                    :cookie-jar *cookie-jar*
  9.                    :headers '(("Referer" . referer))
  10.                    :verbose t)))
  11.     referer))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement