# $Id: MySpace 10867 2009-10-26 22:47:10Z sparky $
# Video::MySpace - Video getter plugin for rsget.pl
#
# 2009 (c) Przemysław Iskra <sparky@pld-linux.org>
#		This program is free software,
# you may distribute it under GPL v2 or newer.

name: MySpace
short: V:MySpace
uri: qr{vids\.myspace\.com/index\.cfm\?fuseaction=vids\.individual&VideoID=\d+(?:#.*)?}i;
slots: max
status: OK 2009-10-09

unify:
	return "http://vids.myspace.com/index.cfm?fuseaction=vids.individual&videoid=$1"
		if m{videoid=(\d+)}i;

start:
	GET( $-{_uri} );

	! m{<h1 id="tv_tbar_title">(.*?)</h1>};
	$-{fname} = de_ml( $1 );
	$-{fname} =~ s{/}{_}g;
	$-{fname} .= ".flv";

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

	! m{var videoid = (\d+);};
	GET( "http://mediaservices.myspace.com/services/rss.ashx?videoID=$1&type=video" );

	! m{<media:content url="(.*?)"};
	my $file_uri = $1;
	DOWNLOAD( $file_uri, fname => $-{fname} );

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