Author: sparky Date: Tue Aug 17 13:59:18 2010 New Revision: 11783 Added: toys/rsget.pl/Get/FileSonic (contents, props changed) Log: - NEW, basic support (cannot handle most errors)
Added: toys/rsget.pl/Get/FileSonic ============================================================================== --- (empty file) +++ toys/rsget.pl/Get/FileSonic Tue Aug 17 13:59:18 2010 @@ -0,0 +1,42 @@ +# $Id$ +# Get::FileSonic - File getter 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: FileSonic +short: FSC +web: "http://www.filesonic.com/"; +tos: "http://www.filesonic.com/terms-and-conditions"; +uri: qr{filesonic\.com/file/\d+} +uri: qr{(?:www\d+\.)?sharingmatrix\.com/file/\d+} +status: OK 2010-08-17 + +unify: + return "http://www.filesonic.com/file/$1"; + if m{/file/(\d+)}; + +start: + GET( $-{_uri} ); + + ERROR( "file not found: $1" ) + if m#<div class="section CL1 errorMessage">.*?<p>(.*)</p>#; + + ! m#<p class="fileInfo filename">.*?<strong>(.*?)</strong>#; + my $fn = $1; + ! m#<span class="size">($STDSIZE)</span>#; + INFO( name => $fn, asize => $1 ); + + ! m#<a class="downloadNow" href="(.*?)" id="free_download">#; + CLICK( $1, keep_referer => 1 ); + + ! m#downloadUrl = "(.*?)"#; + $-{file_uri} = $1; + + ! /var countDownDelay = (\d+);/; + WAIT( $1, "starting download" ); + + CLICK_DOWNLOAD( $-{file_uri} ); + +# vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
