SVN: toys/rsget.pl/Video/Delfi

[pawelz]

Author: pawelz
Date: Sun Aug  1 21:44:47 2010
New Revision: 11744

Modified:
   toys/rsget.pl/Video/Delfi
Log:
- support russian version of tv.delfi.ee and video.delfi.ee
- status: OK 2010-08-01


Modified: toys/rsget.pl/Video/Delfi
==============================================================================
--- toys/rsget.pl/Video/Delfi   (original)
+++ toys/rsget.pl/Video/Delfi   Sun Aug  1 21:44:47 2010
@@ -8,14 +8,19 @@
 name: Delfi
 short: V:Delfi
 web: "http://tv.delfi.ee/";
-uri: qr{(tv|video)\.delfi\.ee/video/[a-zA-Z0-9]+}
+uri: qr{(?:rus\.)?tv\.delfi\.ee/video/[a-zA-Z0-9]+}
+uri: qr{video\.delfi\.ee/(?:ru/)?video/[a-zA-Z0-9]+}
 slots: max
-status: OK 2010-07-13
+status: OK 2010-08-01
+
+unify:
+       return "http://$1.delfi.ee/video/$2";
+               if m{"([^/]+)\.delfi\.ee/(?:ru/)?/video/([a-zA-Z0-9]+)};
 
 start:
        GET( $-{_uri} );
 
-       ! m{<title>(?:DELFI TV &#62; Video &#62; )?(.*?)</title>};
+       ! m{<title>(?:DELFI TV &#62; (?:Video|Видео) &#62; )?(.*?)</title>};
        my $fname = de_ml( $1 );
        $fname =~ s{/}{_}g;
        $fname .= ".flv";
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit