Author: sparky
Date: Wed Oct 21 21:29:50 2009
New Revision: 10798
Modified:
toys/rsget.pl/RSGet/Processor.pm
Log:
- add new commands: CLICK, CLICK_DOWNLOAD and CAPTCHA_RESULT
Modified: toys/rsget.pl/RSGet/Processor.pm
==============================================================================
--- toys/rsget.pl/RSGet/Processor.pm (original)
+++ toys/rsget.pl/RSGet/Processor.pm Wed Oct 21 21:29:50 2009
@@ -171,7 +171,7 @@
$space = "";
$space = $1 if s/^(\s+)//;
- if ( s/^(GET|WAIT|CAPTCHA|DOWNLOAD)\s*\(// ) {
+ if ( s/^(GET|WAIT|CAPTCHA|(?:CLICK_)?DOWNLOAD|CLICK)\s*\(// ) {
my $cmd = lc $1;
my $next_stage = "stage" . ++$stage;
my @skip;
@@ -187,7 +187,7 @@
p_subend();
$last_cmd = $cmd;
p_sub( $next_stage );
- } elsif ( s/^(GET|WAIT|CAPTCHA)_NEXT\s*\(\s*(.*?)\s*,// ) {
+ } elsif ( s/^(GET|WAIT|CAPTCHA|CLICK)_NEXT\s*\(\s*(.*?)\s*,// )
{
my $cmd = lc $1;
my $next_stage = $2;
p_ret( $cmd, "\\&$next_stage" );
@@ -214,7 +214,7 @@
} elsif ( s/^SEARCH\s*\(// ) {
pr $space . 'return if $self->search( ';
p_line();
- } elsif ( s/^(PRINT|LOG|COOKIE)\s*\(// ) {
+ } elsif ( s/^(PRINT|LOG|COOKIE|CAPTCHA_RESULT)\s*\(// ) {
p_func( lc $1 );
p_line();
} elsif ( s/^!\s+// ) {
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
