SVN: toys/rsget.pl/Get/MegaShares

[sparky]

Author: sparky
Date: Tue May  4 17:42:30 2010
New Revision: 11370

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


Modified: toys/rsget.pl/Get/MegaShares
==============================================================================
--- toys/rsget.pl/Get/MegaShares	(original)
+++ toys/rsget.pl/Get/MegaShares	Tue May  4 17:42:30 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.*\s+([\d\.]+)\s+.*?left that you can download with this passport.}s;
+		m{You have\s+<.*?>\s+([\d\.]+ \S+?)\s+<.*?>\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 );