SVN: toys/rsget.pl/Get/MegaUpload
sparky
sparky at pld-linux.org
Sat Jun 26 13:51:58 CEST 2010
Author: sparky
Date: Sat Jun 26 13:51:57 2010
New Revision: 11583
Modified:
toys/rsget.pl/Get/MegaUpload
Log:
- modev DELAY() after INFO()
Modified: toys/rsget.pl/Get/MegaUpload
==============================================================================
--- toys/rsget.pl/Get/MegaUpload (original)
+++ toys/rsget.pl/Get/MegaUpload Sat Jun 26 13:51:57 2010
@@ -48,8 +48,6 @@
RESTART( 10 * 60, "temporarily blocked" )
if m{document\.location='http://www\.megaupload\.com/\?c=msg'};
- DELAY( 600, "temporarily unavailable" )
- if /The file you are trying to access is temporarily unavailable/;
ERROR( "file not found" )
if /Unfortunately, the link you have clicked is not available/
or /This file has expired due to inactivity/;
@@ -59,6 +57,9 @@
$name =~ s/(.*)\.(\..{1,5})$/$1\0$2/; # mark truncated name
INFO( iname => $name, asize => $f[5] );
+ DELAY( 600, "temporarily unavailable" )
+ if /The file you are trying to access is temporarily unavailable/;
+
if ( /The file you're trying to download is password protected/ ) {
ERROR( "password required" ) unless exists $-{_opts}->{pass};
More information about the pld-cvs-commit
mailing list