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 ); _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
