cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Download higher quality videos (fmt=6) if available.

Browse Source 
ok martynas@
This commit is contained in:
jsg 2008-09-14 12:28:10 +00:00
parent 9e7a3cc3f2
commit 71dfa24664
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
net/yt/Makefile
View File

@ -1,8 +1,8 @@
# $OpenBSD: Makefile,v 1.19 2008/09/11 11:58:09 jsg Exp $
# $OpenBSD: Makefile,v 1.20 2008/09/14 12:28:10 jsg Exp $
COMMENT= customizable script to fetch youtube videos
PKGNAME= yt-8p8
PKGNAME= yt-9
CATEGORIES= net
DISTFILES=

11
net/yt/files/yt.lua
View File

@ -1,5 +1,5 @@
#!/usr/local/bin/lua
-- $OpenBSD: yt.lua,v 1.13 2008/09/11 11:58:09 jsg Exp $
-- $OpenBSD: yt.lua,v 1.14 2008/09/14 12:28:11 jsg Exp $
-- Fetch videos from YouTube.com and convert them to MPEG.
-- Written by Pedro Martelletto in August 2006. Public domain.
-- Example: lua yt.lua http://www.youtube.com/watch?v=c5uoo1Kl_uA
@ -29,6 +29,13 @@ body = assert(http.request(url))
pattern = "<title>(.-)</title>"
title = assert(string.match(body, pattern))
-- Fetch high quality if available
if (string.match(body, "yt.VideoQualityConstants.HIGH") ~= nil) then
fmt = "&fmt=6"
else
fmt = ""
end
-- Build a name for the files the video will be stored in.
file = string.gsub(title, "[^%w-]", "_")
file = string.lower(file)
@ -48,7 +55,7 @@ if video_id then
pattern = "/watch_fullscreen%?.*&t=(.-)&"
t = assert(string.match(body, pattern))
url = string.format("%q", base_url .. "?video_id=" .. video_id
.. "&t=" .. t)
.. "&t=" .. t .. fmt)
else
-- We assume it's Google Video URL.
pattern = "'/googleplayer.swf%?videoUrl(.-)'"