SVN: toys/rsget.pl/Get/HotFile

[sparky]

Author: sparky
Date: Thu Oct 22 03:31:05 2009
New Revision: 10809

Modified:
   toys/rsget.pl/Get/HotFile
Log:
- use new qools: forms, click
- added captcha processor


Modified: toys/rsget.pl/Get/HotFile
==============================================================================
--- toys/rsget.pl/Get/HotFile	(original)
+++ toys/rsget.pl/Get/HotFile	Thu Oct 22 03:31:05 2009
@@ -3,7 +3,7 @@
 name: HotFile
 short: HF
 uri: qr{hotfile\.com/}
-status: OK 2009-08-29
+status: OK 2009-10-22
 
 start:
 	GET( $-{_uri} );
@@ -22,50 +22,54 @@
 	! /starttimer.*?timerend=d\.getTime\(\)\+(\d+);/s;
 	my $wait = $1 / 1000;
 
-	! s/^.*?<form style=".*?" action="(.*?)" method=post name=f>//s;
-	$-{action} = $1;
-	! s#^(.*?)</form>.*#$1#s;
-	my %post;
-	$post{$1} = $2 while s/<input type=hidden name=(.*?) value=(.*?)>//;
-	$-{post} = \%post;
+	! $-{form} = $self->form( name => "f" );
 
 	WAIT( $wait, "starting download" );
 
-	GET( $-{action}, post => $-{post} );
-	$-{dl_page} = $-{_referer};
+stage_getcaptcha:
+	CLICK( $-{form}->post() );
 
-	if ( m#<a href="(.*?)">Click here to download</a># ) {
-		return $self->stage_download();
-	}
-
-	! s#^.*<form action="(.*?)" method="post">##s;
-	$-{form_uri} = $1;
+	GOTO stage_download if m#<a href="(.*?)">Click here to download</a>#;
 
-	my %post = ( action => "checkcaptcha" );
-	! m#<input type=hidden name=captchaid value=(\d+)>#;
-	$post{captchaid} = $1;
-	! m#<input type=hidden name=hash1 value=(\S+?)>#;
-	$post{hash1} = $1;
-	! m#<input type=hidden name=hash2 value=(\S+?)>#;
-	$post{hash2} = $1;
-
-	$-{post} = \%post;
+	! $-{capform} = $self->form( match => { body => qr/Enter word above/ } );
 
 	! m#<img src="(/captcha\.php.*?)">#;
-	my $img = $1;
-
-	GET( $img );
-	$-{_referer} = $-{dl_page};
+	GET( $1, keep_referer => 1 );
 
-	CAPTCHA( "image/jpeg" );
+	CAPTCHA(
+		qr/[a-zA-Z]{5,6}/,
+		process => \&hf_decaptcha
+	);
 
-	$-{post}->{captcha} = $_;
+	GOTO stage_getcaptcha unless defined $_;
+	$-{capform}->set( captcha => $_ );
 
-	GET( $-{form_uri}, post => $-{post} );
+	GET( $-{capform}->post() );
 stage_download:
 
-	RESTART( 0, "invalid captcha ?" ) unless m#<a href="(.*?)">Click here to download</a>#;
+	if ( m#<a href="(.*?)">Click here to download</a># ) {
+		CAPTCHA_RESULT( "OK" );
+	} else {
+		CAPTCHA_RESULT( "FAIL" );
+		GOTO stage_getcaptcha;
+	}
+
+	CLICK_DOWNLOAD( $1 );
+
+perl:
 
-	DOWNLOAD( $1 );
+sub hf_color_select_lowest
+{
+	my @s = sort { $a <=> $b } @_;
+	return $s[0];
+}
+
+sub hf_decaptcha
+{
+	my $img = shift;
+	$img->color_filter( \&hf_color_select_lowest );
+	$img->luma_emphasize( 90, 130 );
+	return $img->ocr();
+}
 
 # vim:ts=4:sw=4