Author: sparky
Date: Sun Oct 4 15:57:25 2009
New Revision: 10677
Modified:
toys/rsget.pl/Link/CryptedBiz
Log:
- simplified
Modified: toys/rsget.pl/Link/CryptedBiz
==============================================================================
--- toys/rsget.pl/Link/CryptedBiz (original)
+++ toys/rsget.pl/Link/CryptedBiz Sun Oct 4 15:57:25 2009
@@ -10,26 +10,24 @@
start:
GET( $-{_uri} );
- $-{referer} = $-{_referer};
my @list;
push @list, $1
while s/className='inner_link\d+';window\.open\('(.*?)'\)">//;
+
ERROR("no links") unless @list;
+
$-{list} = \...@list;
$-{outlist} = [];
- GET( shift @{$-{list}} );
-stage_next_uri:
+stage_get_link:
+ GET( shift @{$-{list}}, keep_referer => 1 );
m{var versch = '(.*?)';};
$_ = decode_base64( $1 );
m{ src="(.*?)">};
push @{$-{outlist}}, $1;
- if ( @{$-{list}} ) {
- $-{_referer} = $-{referer};
- GET_NEXT( stage_next_uri, shift @{$-{list}} );
- }
+ GOTO stage_get_link if @{$-{list}};
LINK( @{$-{outlist}} );
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
