SVN: toys/rsget.pl/Get/MegaShares

[sparky]

Author: sparky
Date: Thu Dec 10 16:40:05 2009
New Revision: 11024

Modified:
   toys/rsget.pl/Get/MegaShares
Log:
- updated


Modified: toys/rsget.pl/Get/MegaShares
==============================================================================
--- toys/rsget.pl/Get/MegaShares        (original)
+++ toys/rsget.pl/Get/MegaShares        Thu Dec 10 16:40:05 2009
@@ -37,16 +37,18 @@
        RESTART( 600, "servers overloaded" )
                if m{All download slots for this link are currently filled};
 
-       m{<dt>Filename:&nbsp;<strong>(.*?)</strong>&nbsp;&nbsp;&nbsp;size: 
($STDSIZE)(?:ytes)?</dt>};
-       my ( $name, $size ) = ( $1, $2 );
+       ! m{<!-- download page link title //-->\s*<h1.*>(.+?)</h1>}s;
+       my $name = $1;
        $name =~ s/\.\.\.$/\0/;
+       ! m{<strong><span.*>Filesize:</span></strong> ($STDSIZE)<br />}so;
+       my $size = $1;
        INFO( iname => $name, asize => $size );
 
        RESTART( $1 * 60 + $2, "free limit reached" )
                if m{Your download passport will renew\s*in 
00:<strong>(\d+)</strong>:<strong>(\d+)</strong>};
 
        unless( m{<dt>Your Passport needs to be reactivated.</dt>} ) {
-               ! m{<a href="(.*?)">Click here to download</a>};
+               ! 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.};
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit