SVN: toys/rsget.pl/Get/FileServe
sparky
sparky at pld-linux.org
Fri Oct 8 22:23:42 CEST 2010
Author: sparky
Date: Fri Oct 8 22:23:41 2010
New Revision: 11835
Modified:
toys/rsget.pl/Get/FileServe
Log:
- fixed unify, detect more "file not found" problems
- that should fix RSGETPL-35
Modified: toys/rsget.pl/Get/FileServe
==============================================================================
--- toys/rsget.pl/Get/FileServe (original)
+++ toys/rsget.pl/Get/FileServe Fri Oct 8 22:23:41 2010
@@ -15,13 +15,14 @@
unify:
s/#.*//;
- return "http://fileserve.com/files/$1"
- if m{fileserve\.com/files/([A-Za-z0-9]+)};
+ return "http://fileserve.com/file/$1"
+ if m{fileserve\.com/file/([A-Za-z0-9]+)};
start:
GET( $-{_uri} );
- ERROR( "file not found: $1" ) if m#<span class="fail_info">\s*(.*?)\s*</span>#s;
+ ERROR( "file not found: $1" ) if m#<span class="fail_info">\s*(.*?)\s*</span>#s
+ or m{<img src="/images/stop_error\.gif".*?<h1>.*?</h1></li><li>(.*?)</li>}s;
! m#<h1>(.+?)<br/></h1>#;
my $fname = $1;
More information about the pld-cvs-commit
mailing list