SVN: toys/rsget.pl/Get/EasyShare

[pawelz]

Author: pawelz
Date: Thu Feb 25 21:12:18 2010
New Revision: 11177

Modified:
   toys/rsget.pl/Get/EasyShare
Log:
- Captcha seems to be (temporary?) disabled on EasyShare.


Modified: toys/rsget.pl/Get/EasyShare
==============================================================================
--- toys/rsget.pl/Get/EasyShare	(original)
+++ toys/rsget.pl/Get/EasyShare	Thu Feb 25 21:12:18 2010
@@ -49,18 +49,20 @@
 
 	! $-{capform} = $self->form( match => { class => qr/^captcha1$/ } );
 
-	! m#<p class="pb0"><img src="(.*?)" width="220" height="50" alt="" border="1"></p>#;
-	my $img = $1;
-
-	GET( $img, keep_referer => 1 );
-
-	CAPTCHA(
-		qr/[2-9abcdeghkmnpqsuvxyz]{5,6}/,
-		process => \&es_decaptcha
-	);
-
-	GOTO stage_cappage unless defined $_;
-	$-{capform}->set( captcha => $_ );
+	if ( /<img src/ ) {
+	  ! m#<p class="pb0"><img src="(.*?)" width="220" height="50" alt="" border="1"></p>#;
+	  my $img = $1;
+
+	  GET( $img, keep_referer => 1 );
+
+	  CAPTCHA(
+	  	qr/[2-9abcdeghkmnpqsuvxyz]{5,6}/,
+	  	process => \&es_decaptcha
+	  );
+
+	  GOTO stage_cappage unless defined $_;
+	  $-{capform}->set( captcha => $_ );
+    }
 
 	DOWNLOAD( $-{capform}->post() );