SVN: toys/rsget.pl/Get/FileSonic

sparky sparky at pld-linux.org
Tue Aug 17 14:11:25 CEST 2010


Author: sparky
Date: Tue Aug 17 14:11:24 2010
New Revision: 11784

Modified:
   toys/rsget.pl/Get/FileSonic
Log:
- improved


Modified: toys/rsget.pl/Get/FileSonic
==============================================================================
--- toys/rsget.pl/Get/FileSonic	(original)
+++ toys/rsget.pl/Get/FileSonic	Tue Aug 17 14:11:24 2010
@@ -21,16 +21,18 @@
 	GET( $-{_uri} );
 
 	ERROR( "file not found: $1" )
-		if m#<div class="section CL1 errorMessage">.*?<p>(.*)</p>#;
+		if m#<div class="section CL1 errorMessage">.*?<p>(.*?)</p>#s;
 
 	! m#<p class="fileInfo filename">.*?<strong>(.*?)</strong>#;
-	my $fn = $1;
+	( my $fn = $1 ) =~ s/\.\.\./\0/;
 	! m#<span class="size">($STDSIZE)</span>#;
-	INFO( name => $fn, asize => $1 );
+	INFO( aname => $fn, asize => $1 );
 
 	! m#<a class="downloadNow" href="(.*?)" id="free_download">#;
 	CLICK( $1, keep_referer => 1 );
 
+	MULTI() if m#<span>Download session in progress</span>#;
+
 	! m#downloadUrl = "(.*?)"#;
 	$-{file_uri} = $1;
 


More information about the pld-cvs-commit mailing list