SVN: toys/rsget.pl/Link/RapidShare

[sparky]

Author: sparky
Date: Sun Dec  5 16:59:01 2010
New Revision: 11948

Modified:
   toys/rsget.pl/Link/RapidShare
Log:
- updated, works now, fixes RSGETPL-48


Modified: toys/rsget.pl/Link/RapidShare
==============================================================================
--- toys/rsget.pl/Link/RapidShare	(original)
+++ toys/rsget.pl/Link/RapidShare	Sun Dec  5 16:59:01 2010
@@ -10,13 +10,23 @@
 web: "http://rapidshare.com/"
 tos: "http://rapidshare.com/agb.html"
 uri: qr{(?:rs[a-z0-9]+\.)?rapidshare\.com/users/[A-Z0-9]+}
+uri: qr{(?:rs[a-z0-9]+\.)?rapidshare\.com/#!linklist|[A-Z0-9]+}
 slots: max
-status: OK 2010-07-25
+status: OK 2010-12-05
 
 start:
-	GET( $-{_uri} );
+	! $-{_uri} =~ m{(?:users/|#!linklist\|)([A-Z0-9]+)};
+	my $id = $1;
+
+	$-{_referer} = "http://rapidshare.com/";
+	GET( "http://api.rapidshare.com/cgi-bin/rsapi.cgi?sub=viewlinklist_v1&linklist=$id&cbf=RSAPIDispatcher&cbid=1" );
+
+	my @list;
+	foreach ( split /\\n/, $_ ) {
+		next unless /\\"1\\",\\"0\\",\\"(\d+)\\",\\"(.*?)\\"/;
+		push @list, "http://rapidshare.com/files/$1/$2";
+	}
 
-	my @list = /<a href="(.*?)" target="_blank">Start/g;
 	ERROR( "no links" ) unless @list;
 
 	LINK( @list );