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