Author: sparky Date: Sat May 8 18:40:38 2010 New Revision: 11402 Added: toys/rsget.pl/Link/MultiUpload (contents, props changed) Log: - added multiupload.com support
Added: toys/rsget.pl/Link/MultiUpload ============================================================================== --- (empty file) +++ toys/rsget.pl/Link/MultiUpload Sat May 8 18:40:38 2010 @@ -0,0 +1,37 @@ +# $Id$ +# Link::MultiUpload - Link retriever plugin for rsget.pl +# +# 2010 (c) Przemysław Iskra <[email protected]> +# This program is free software, +# you may distribute it under GPL v2 or newer. + +name: MultiUpload +short: L:MultiUpload +web: "http://multiupload.com/"; +tos: "http://multiupload.com/terms"; +uri: qr{multiupload\.com/[A-Z0-9]{10}} +slots: max +status: OK 2010-05-08 + +start: + GET( $-{_uri} ); + + my @list; + push @list, $1 while s/<div .*?id="url_\d+"><a href="(.+?)"//; + + ERROR( "no links" ) unless @list; + + $-{list} = \...@list; + $-{outlist} = []; + $-{referer} = $-{_referer}; + +stage_get_link: + $-{_referer} = $-{referer}; + GET( shift @{$-{list}} ); + + push @{$-{outlist}}, $-{_referer}; + GOTO stage_get_link if @{$-{list}}; + + LINK( @{$-{outlist}} ); + +# vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
