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 );
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
