Author: pawelz Date: Mon Jul 26 01:25:40 2010 New Revision: 11709 Added: toys/rsget.pl/Get/FileServe (contents, props changed) Log: - new plugin
Added: toys/rsget.pl/Get/FileServe ============================================================================== --- (empty file) +++ toys/rsget.pl/Get/FileServe Mon Jul 26 01:25:40 2010 @@ -0,0 +1,35 @@ +# $Id$ +# Get::FileServe - File getter plugin for rsget.pl +# +# 2010 (c) Paweł Zuzelski <[email protected]> +# This program is free software, +# you may distribute it under GPL v2 or newer. + +name: FileServe +short: FSRV +web: "http://fileserve.com/"; +uri: qr{www\.fileserve\.com/file/[A-Za-z0-9]+(/.*)?} +cookie: fsrv +status: OK 2010-07-25 + +unify: + s/#.*//; + return "http://fileserve.com/files/$1"; + if m{fileserve\.com/files/([A-Za-z0-9]+)}; + +start: + GET( $-{_uri} ); + + ERROR( "file not found: $1" ) if m#<span class="fail_info">\s*(.*?)\s*</span>#s; + + ! m#<h1>(.+)<br/></h1>#; + my $fname = $1; + ! m#<span><strong>($STDSIZE)</strong> \| Uploaded on #; + INFO( name => $fname, asize => $1 ); + + CLICK( $-{_uri}, post => { downloadLink => "wait" } ); + WAIT( 30, "waiting for download link" ); + CLICK( $-{_uri}, post => { downloadLink => "show" } ); + CLICK_DOWNLOAD( $-{_uri}, post => { download => "normal" } ); + +# vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
