Paste: Youtube download

Author: doublec
Mode: factor
Date: Thu, 2 Oct 2008 00:06:43
Plain Text | 
: youtube-mp4-url ( url -- url )
    http-get nip dup 
    [ "&video_id=" swap start ] [ "&title=" swap start ] bi
    rot subseq "http://www.youtube.com/get_video.php?" prepend 
    "&fmt=18" append ;

"http://www.youtube.com/watch?v=foobarbaz" youtube-mp4-url http-get nip "foo.mp4" download-to

Annotation: Oops, error

Author: doublec
Mode: factor
Date: Thu, 2 Oct 2008 00:08:37
Plain Text | 
: youtube-mp4-url ( url -- url )
    http-get nip dup 
    [ "&video_id=" swap start ] [ "&title=" swap start ] bi
    rot subseq "http://www.youtube.com/get_video.php?" prepend 
    "&fmt=18" append ;

"http://www.youtube.com/watch?v=foobarbaz" youtube-mp4-url "foo.mp4" download-to

New Annotation

Summary:
Author:
Mode:
Body: