# $Id: .template 10867 2009-10-26 22:47:10Z sparky $
# Link::[NAME] - Link decrypter plugin for rsget.pl
#
# 2009 (c) ??? <???@???.??>
#		This program is free software,
# you may distribute it under GPL v2 or newer.

name: [NAME]
short: L:[NAME]
uri: qr{lsite\.com/}
slots: max
status: OK [DATE]

pre:
	use MIME::Base64;

	sub decrypt
	{
		...
		return $decrypted;
	}

start:
	GET( $-{_uri} );

	my @list;
	push @list, $1 while s/link: '(\d+-[0-9a-f]+)';//;

	ERROR("no links") unless @list;

	$-{list} = \@list;
	$-{outlist} = [];

stage_get_link:
	GET( "getlink",
		post => { link_id => shift @{$-{list}} },
		keep_referer => 1 );

	my $uri = decrypt( $_ );
	push @{$-{outlist}}, $uri;

	GOTO stage_get_link if @{$-{list}};

	LINK( @{$-{outlist}} );

# vim: filetype=perl:ts=4:sw=4
