SVN: toys/rsget.pl/Get: StorageTo X7

[sparky]

Author: sparky
Date: Tue Jul 13 13:57:38 2010
New Revision: 11665

Modified:
   toys/rsget.pl/Get/StorageTo
   toys/rsget.pl/Get/X7
Log:
- improved


Modified: toys/rsget.pl/Get/StorageTo
==============================================================================
--- toys/rsget.pl/Get/StorageTo	(original)
+++ toys/rsget.pl/Get/StorageTo	Tue Jul 13 13:57:38 2010
@@ -9,7 +9,7 @@
 short: ST
 web: "http://storage.to/"
 uri: qr{storage\.to/get/[a-zA-Z0-9]{8}([\?/].*?)?$}
-status: OK 2010-06-04
+status: OK 2010-07-13
 
 start:
 	GET( $-{_uri} );
@@ -24,7 +24,7 @@
 	! s/^.*?{\s+//;
 	! s/\s+}.*?$//;
 
-	ERROR( "download failed" ) if /'state'\s*:\s*'failed'/;
+	DELAY( 5 * 60, "download failed" ) if /'state'\s*:\s*'failed'/;
 
 	! /'countdown'\s*:\s*(\d+)/;
 	my $wait = $1;

Modified: toys/rsget.pl/Get/X7
==============================================================================
--- toys/rsget.pl/Get/X7	(original)
+++ toys/rsget.pl/Get/X7	Tue Jul 13 13:57:38 2010
@@ -23,6 +23,8 @@
 
 	ERROR( "file not found" )
 		if /<title>File not found/;
+	ERROR( "not allowed: $1" )
+		if /(The requested file is larger.*only premium.*?)</;
 
 	! m#<b>Download</b>\s+\((\d+(?:,\d+)?\s*[KMG]?B)\)#s;
 	my $asize = $1;