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 <[email protected]> +# 2011 (c) Elan Ruusamäe <[email protected]> # 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','(.*?)'}; _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
