SVN: toys/rsget.pl/Get/FileServe

[sparky]

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;