# $Id: Simple 10867 2009-10-26 22:47:10Z sparky $
# Link::Simple - Link retriever plugin for rsget.pl
#
# 2009 (c) Przemysław Iskra <sparky@pld-linux.org>
#		This program is free software,
# you may distribute it under GPL v2 or newer.

name: Simple
short: L:Simple
uri: qr{4gk\.com/}
uri: qr{xurl\.jp/}
uri: qr{tinyurl\.com/}
uri: qr{linkhider\.com/}
slots: max
status: OK 2009-10-24

start:
	my $uri = $-{_uri};
	$uri =~ s#(xurl.*)\.html#$1#;
	GET( $uri );
	$-{_uri} =~ m#^(http://.*?/)#;
	my $serv = quotemeta $1;

	my $link;
	if ( $-{_referer} =~ m#^$serv# ) {
		if ( m#<meta http-equiv="refresh" content="\d+;url='(.*?)'">#i ) {
			$link = $1;
		} elsif ( m#<i?frame\s+.*?src="(http://.*?)">#i ) {
			$link = $1;
		} else {
			ERROR( "can't find link" );
		}
	} else {
		$link = $-{_referer};
	}

	LINK( $link );

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