SVN: toys/rsget.pl/Get/MegaUpload

Mon Dec 14 15:35:05 CET 2009

Author: sparky
Date: Mon Dec 14 15:35:04 2009
New Revision: 11041

Modified:
   toys/rsget.pl/Get/MegaUpload
Log:
- some downloads don't start right away but instead redirect to download page
  - restart download in such cases


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

--- toys/rsget.pl/Get/MegaUpload	(original)
+++ toys/rsget.pl/Get/MegaUpload	Mon Dec 14 15:35:04 2009
@@ -43,6 +43,7 @@
 start:
 	GET( unify( $-{_uri} ) );
 
+stage_init:
 	RESTART( 10 * 60, "temporarily blocked" )
 		if m{document\.location='http://www\.megaupload\.com/\?c=msg'};
 
@@ -102,6 +103,7 @@
 
 	CLICK_DOWNLOAD( $-{file_uri} );
 
+	GOTO stage_init if m{/download\.jpg'.*Filename:}s;
 
 perl:
 	
