SVN: toys/rsget.pl/Video/Delfi

[glen]

Author: glen
Date: Thu Feb  3 10:44:17 2011
New Revision: 12105

Modified:
   toys/rsget.pl/Video/Delfi
Log:
update to support other video site brands

http://tv.delfi.lv/
http://tv.delfi.lt/
http://tv.delfi.ee/
http://video.delfi.ee/



Modified: toys/rsget.pl/Video/Delfi
==============================================================================
--- toys/rsget.pl/Video/Delfi	(original)
+++ toys/rsget.pl/Video/Delfi	Thu Feb  3 10:44:17 2011
@@ -2,6 +2,7 @@
 # Video::Delfi - Video getter plugin for rsget.pl
 #
 # 2009-2010 (c) Przemysław Iskra <sparky at pld-linux.org>
+# 2011 (c) Elan Ruusamäe <glen at pld-linux.org>
 #		This program is free software,
 # you may distribute it under GPL v2 or newer.
 
@@ -10,21 +11,23 @@
 web: "http://tv.delfi.ee/"
 uri: qr{(?:rus\.)?tv\.delfi\.ee/video/[a-zA-Z0-9]+}
 uri: qr{video\.delfi\.ee/(?:ru/)?video/[a-zA-Z0-9]+}
+uri: qr{tv\.delfi\.lv/(?:ru/)?video/[a-zA-Z0-9]+}
+uri: qr{tv\.delfi\.lt/(?:ru/)?video/[a-zA-Z0-9]+}
 slots: max
-status: OK 2010-08-01
+status: OK 2011-02-03
 
 unify:
-	return "http://$1.delfi.ee/video/$2"
-		if m{([^/]+)\.delfi\.ee/(?:ru/)?video/([a-zA-Z0-9]+)};
+	return "http://$1.delfi.$2/video/$3"
+		if m{([^/]+)\.delfi\.(ee|lv|lt)/(?:ru/)?video/([a-zA-Z0-9]+)};
 
 start:
 	GET( $-{_uri} );
 
-	! m{<title>(?:DELFI TV > (?:Video|Видео) >\s+)?(.*?)</title>};
+	! m{<title>(?:DELFI (?:TV|Video) > (?:Video|Видео) >\s+)?(.*?)</title>};
 	my $fname = de_ml( $1 );
 	$fname =~ s{/}{_}g;
-	$fname .= ".flv";
-	INFO( name => $fname, quality => "flv" );
+	$fname .= ".mp4";
+	INFO( name => $fname, quality => "mp4" );
 
 	! m{addVariable\('file','(.*?)'};