SVN: toys/rsget.pl/Get/TurboBit

Sat Dec 18 22:44:41 CET 2010

Author: sparky
Date: Sat Dec 18 22:44:41 2010
New Revision: 11994

Modified:
   toys/rsget.pl/Get/TurboBit
Log:
- improved error handling, should fix RSGETPL-40


Modified: toys/rsget.pl/Get/TurboBit
==============================================================================

--- toys/rsget.pl/Get/TurboBit	(original)
+++ toys/rsget.pl/Get/TurboBit	Sat Dec 18 22:44:41 2010
@@ -29,9 +29,14 @@
 	MULTI( "e502, will try again" ) if m#<head><title>502 Bad Gateway</title></head>#;
 	ERROR( "file not found" ) if m#<div class="code-404">404</div>#;
 	ERROR( "file not found" ) if m#Файл не найден. Возможно он был удален|File was not found. It could possibly be deleted#;
+	ERROR( "file not found" ) if m#\Q'h1').html('File not found. Probably it was deleted\E#;
 
 	! m#<h1 class="download-file">.*?<span.*?>(.*?)</span></h1>#;
 	my $name = $1;
+	if ( $name =~ /\.\.\./ ) {
+		$name =~ s/\.\.\./\0/;
+		m#<title>\s+Download (.*?)\. Free download#s and $name = $1;
+	}
 	! m#<b>File size:</b> ([\d,\.]+ .b)</div>#;
 	( my $size = $1 ) =~ tr/,/./;
 	INFO( name => $name, asize => $size );
