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