SVN: toys/rsget.pl/Get/FreakShare

sparky sparky at pld-linux.org
Sun Feb 28 12:27:30 CET 2010


Author: sparky
Date: Sun Feb 28 12:27:29 2010
New Revision: 11217

Modified:
   toys/rsget.pl/Get/FreakShare
Log:
- add file size information, captcha not suported yet


Modified: toys/rsget.pl/Get/FreakShare
==============================================================================
--- toys/rsget.pl/Get/FreakShare	(original)
+++ toys/rsget.pl/Get/FreakShare	Sun Feb 28 12:27:29 2010
@@ -20,8 +20,8 @@
 	RESTART( - irand( 60, 300 ), "free limit reached" )
 		if /Sorry, your Traffic is used up for today/;
 
-	! m#<h1 class="box_heading" style="text-align:center;">(.*)</h1>#;
-	INFO( name => $1, size => -1 );
+	! m#<h1 class="box_heading" style="text-align:center;">(.*?) - (\d+ MB)yte</h1>#;
+	INFO( name => $1, asize => $2 );
 
 	! $-{form} = $self->form( match => { body => qr/"Free Download"/ } );
 


More information about the pld-cvs-commit mailing list