SVN: toys/rsget.pl/Video/XVideos

[sparky]

Author: sparky
Date: Sat Jul  3 02:49:49 2010
New Revision: 11627

Modified:
   toys/rsget.pl/Video/XVideos
Log:
- file not found detection
- added unify


Modified: toys/rsget.pl/Video/XVideos
==============================================================================
--- toys/rsget.pl/Video/XVideos	(original)
+++ toys/rsget.pl/Video/XVideos	Sat Jul  3 02:49:49 2010
@@ -8,13 +8,19 @@
 name: XVideos
 short: V:XVideos
 web: "http://xvideos.com/"
-uri: qr{xvideos\.com/video\d+/}
+uri: qr{xvideos\.com/video\d+}
 slots: max
 status: OK 2010-07-03
 
+unify:
+	return "http://www.xvideos.com/video$1/"
+		if m{xvideos\.com/video(\d+)};
+
 start:
 	GET( $-{_uri} );
 
+	ERROR( "file not found" ) if m{<h2>Page not found</h2>};
+
 	! m{<meta name=description content="XVIDEOS (.*?)">};
 	my $fname = de_ml( $1 );
 	$fname =~ s{/}{_}g;