SVN: toys/rsget.pl/Video/Break

[sparky]

Author: sparky
Date: Mon Oct  5 01:31:00 2009
New Revision: 10692

Added:
   toys/rsget.pl/Video/Break
Log:
- new


Added: toys/rsget.pl/Video/Break
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Video/Break	Mon Oct  5 01:31:00 2009
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+name: Break
+short: V:Break
+uri: qr{break\.com}
+slots: 8
+status: OK 2009-10-05
+
+start:
+	GET( $-{_uri} );
+
+	! m{sGlobalFileName='(.*?)'};
+	my $name = $1;
+	$name .= ".flv";
+	# there are .mp4 files as well, but seem to have lower quality
+	INFO( name => $name, quality => "flv" );
+
+	! m{sGlobalContentFilePath='(.*?)'};
+	my $fp = $1;
+	! m{\s+videoPath\s*=\s*"(.*?)"};
+	my $vp = $1;
+
+	DOWNLOAD( "$vp/$fp/$name" );
+
+# vim:ts=4:sw=4