steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

youtube: throw an error if the given youtube video isn't downloadable 

well it is, but you have to go through lots of hops to download "secure"
videos
char-rename
Björn Lindqvist 2016-06-23 02:14:37 +02:00
parent bf71988330
commit fae21b7229
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/youtube/youtube.factor
View File

@ -47,7 +47,6 @@ CONSTANT: video-info-url URL" http://www.youtube.com/get_video_info"
: get-video-info ( video-id -- video-info ) : get-video-info ( video-id -- video-info )
video-info-url clone video-info-url clone
3 "asv" set-query-param 3 "asv" set-query-param
"detailpage" "el" set-query-param
"en_US" "hl" set-query-param "en_US" "hl" set-query-param
swap "video_id" set-query-param swap "video_id" set-query-param
http-get nip query>assoc ; http-get nip query>assoc ;
@ -64,10 +63,15 @@ CONSTANT: video-info-url URL" http://www.youtube.com/get_video_info"
[ "\"#$%'*,./:;<>?^|~\\" member? ] reject [ "\"#$%'*,./:;<>?^|~\\" member? ] reject
200 short head ; 200 short head ;
: downloadable? ( video-info -- ? )
"use_cipher_signature" of "False" = ;
: download-video ( video-id -- ) : download-video ( video-id -- )
get-video-info [ get-video-info [
downloadable? [ "Video is encrypted." throw ] unless
] [
video-formats [ "type" of "video/mp4" head? ] find nip video-formats [ "type" of "video/mp4" head? ] find nip
video-download-url video-download-url
] [ ] [
"title" of sanitize ".mp4" append download-to "title" of sanitize ".mp4" append download-to
] bi ; ] tri ;