SVN: toys/rsget.pl/Link/LinkProtector

[sparky]

Author: sparky
Date: Wed Jul 14 16:29:14 2010
New Revision: 11669

Modified:
   toys/rsget.pl/Link/LinkProtector
Log:
- support new-type links


Modified: toys/rsget.pl/Link/LinkProtector
==============================================================================
--- toys/rsget.pl/Link/LinkProtector	(original)
+++ toys/rsget.pl/Link/LinkProtector	Wed Jul 14 16:29:14 2010
@@ -5,19 +5,25 @@
 #		This program is free software,
 # you may distribute it under GPL v2 or newer.
 
-# TODO: support new-type links links (dedicated subdomain)
-
 name: LinkProtector
 short: L:LinkProtector
 web: "http://link-protector.com/"
-uri: qr{link-protector\.com/}
+uri: qr{link-protector\.com/\d+}
 uri: qr{[a-z]{6}\.link-protector\.com}
 slots: max
 status: OK 2010-06-04
 
+unify:
+	return "http://$1.link-protector.com/"
+		if m{([a-z]{6})\.link-protector\.com};
+
 start:
+	$-{_referer} = $-{_uri};
+
 	GET( $-{_uri} );
-	! m#<INPUT type="button" value="CONTINUE ..." name="Continue" onClick="window.location='(.*?)'"#;
+
+	! m#<INPUT type="button" value="CONTINUE ..." name="Continue" onClick="window.location='(.*?)'"#
+		or m#<frame name="protected" src="(.*?)">#;
 
 	LINK( $1 );