SVN: toys/rsget.pl/Link/CryptedBiz

[sparky]

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}} );