# $Id: Veoh 11662 2010-07-13 01:31:48Z sparky $
# Video::Veoh - Video getter plugin for rsget.pl
#
# 2009-2010 (c) Przemysław Iskra <sparky@pld-linux.org>
#		This program is free software,
# you may distribute it under GPL v2 or newer.

name: Veoh
short: V:Veoh
web: "http://www.veoh.com/"
uri: qr{veoh\.com/}
slots: max
status: OK 2010-07-13

unify:
	my $id;
	$id = $1 if m{.*/(?:watch|videos)/(v.*?)(#.*)?$};
	$id = $1 if m{#watch%3D(v.*)$};
	return "http://www.veoh.com/browse/videos/watch/" . $id if $id;

start:
	GET( unify( $-{_uri} ) );

	! m/"videoId":"(.*?)",/;
	my $id = $1;
	my $ex_uri = "http://www.veoh.com/rest/v2/execute.xml?"
		. "apiKey=5697781E-1C60-663B-FFD8-9B49D2B56D36&method=veoh.video.findByPermalink"
		. "&permalink=$id&";
	GET( $ex_uri );

	! m/title="(.*?)"/;
	my $fname = de_ml( $1 );
	$fname =~ tr{/}{_};
	$fname .= ".flv";

	INFO( name => $fname, quality => "flv" );

	! m/fullPreviewHashPath="(.*?)"/;
	DOWNLOAD( de_ml( $1 ), fname => $fname );

# vim: filetype=perl:ts=4:sw=4
