SVN: toys/rsget.pl/Get/MegaShares

sparky sparky at pld-linux.org
Tue May 4 16:08:37 CEST 2010


Author: sparky
Date: Tue May  4 16:08:37 2010
New Revision: 11369

Modified:
   toys/rsget.pl/Get/MegaShares
Log:
- hopefully fixed passport information


Modified: toys/rsget.pl/Get/MegaShares
==============================================================================
--- toys/rsget.pl/Get/MegaShares	(original)
+++ toys/rsget.pl/Get/MegaShares	Tue May  4 16:08:37 2010
@@ -57,7 +57,7 @@
 		! m{.*<a href="(.+?)">\s*<img.*src="images/download_file\.png" alt="download file"}s;
 		$-{file_uri} = $1;
 
-		m{You have ([\d\.]+ .*?) left that you can download with this passport.};
+		m{You have.*\s+([\d\.]+)\s+.*?left that you can download with this passport.}s;
 		my $left = $1;
 		m{Your download passport will renew in\s*<strong>0</strong>:<strong>(\d+)</strong>:<strong>(\d+)</strong>}s;
 		my $time = s2string( $1 * 60 + $2 );


More information about the pld-cvs-commit mailing list