SVN: toys/rsget.pl/Link: AnonymTo LinkHider LinkProtector Simple

[sparky]

Author: sparky
Date: Wed Sep 16 17:46:23 2009
New Revision: 10610

Added:
   toys/rsget.pl/Link/LinkProtector
   toys/rsget.pl/Link/Simple
Removed:
   toys/rsget.pl/Link/LinkHider
Modified:
   toys/rsget.pl/Link/AnonymTo
Log:
- Simple takes care of all simple redirections and frames
- added LinkProtector


Modified: toys/rsget.pl/Link/AnonymTo
==============================================================================
--- toys/rsget.pl/Link/AnonymTo	(original)
+++ toys/rsget.pl/Link/AnonymTo	Wed Sep 16 17:46:23 2009
@@ -6,6 +6,7 @@
 status: OK 2009-08-25
 
 start:
+	GET( $-{_uri} );
 	$_ = $-{_uri};
 	s{^http://anonym.to/\?}{};
 	LINK( $_ );

Added: toys/rsget.pl/Link/LinkProtector
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Link/LinkProtector	Wed Sep 16 17:46:23 2009
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+name: LinkProtector
+short: link-protector
+uri: qr{link-protector\.com/}
+status: OK 2009-09-12
+
+start:
+	GET( $-{_uri} );
+	! m#<INPUT type="button" value="CONTINUE ..." name="Continue" onClick="window.location='(.*?)'"#;
+
+	LINK( $1 );
+
+# vim:ts=4:sw=4

Added: toys/rsget.pl/Link/Simple
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Link/Simple	Wed Sep 16 17:46:23 2009
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+name: Simple
+short: simple.link
+uri: qr{4gk\.com/|xurl\.jp/|tinyurl\.com/|linkhider\.com/}
+status: OK 2009-09-12
+
+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:ts=4:sw=4