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