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;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
