SVN: toys/rsget.pl/Get/FreakShare

sparky sparky at pld-linux.org
Tue May 4 15:58:05 CEST 2010


Author: sparky
Date: Tue May  4 15:58:05 2010
New Revision: 11368

Modified:
   toys/rsget.pl/Get/FreakShare
Log:
- updated recaptcha, based on hotfile problems


Modified: toys/rsget.pl/Get/FreakShare
==============================================================================
--- toys/rsget.pl/Get/FreakShare	(original)
+++ toys/rsget.pl/Get/FreakShare	Tue May  4 15:58:05 2010
@@ -41,10 +41,13 @@
 
 	GET( $1, keep_referer => 1 );
 
-	! m{challenge : '(\S+)',};
+	! m{server\s*:\s*'(\S+?)'};
+	my $server = $1;
+	
+	! m{challenge\s*:\s*'(\S+?)',};
 	$-{capform}->set( recaptcha_challenge_field => $1 );
 
-	GET( "http://api.recaptcha.net/image?c=" . $1, keep_referer => 1 );
+	GET( $server . "image?c=" . $1, keep_referer => 1 );
 
 	CAPTCHA(
 		qr/\S+ \S+/


More information about the pld-cvs-commit mailing list